ADO Demonstration

Home >> ASP >> ADO Demonstration

ADO Demonstration

Do demonstrate a small real life ADO application, we have put together a few ADO demos.

Listing Database Records

Listing database records

Coding

<html>

<head><title>List Database</title></head>

<body>

set conn=Server.CreateObject("ADODB.Connection")

conn.provider="Microsoft.Jet.OLEDB.4.0;"

conn.open server.mappath("database.mdb")

set rs = Server.CreateObject("ADODB.Recordset")

rs.open "Select * from tblGuestBook" , conn

<h2>List Database (click on button to edit)</h2>

<tr>

for each x in rs.Fields

response.write("<th>" & x.name & "</th>")

</tr>

<%do until rs.EOF%>

<tr>

for each x in rs.Fields

if x.name="no" then%>

</form>

<%else%>

<%end if

rs.MoveNext

</tr>

loop

rs.close

set rs=nothing

conn.close

set conn=nothing

</table>

<p><a href="ado_demo.asp">Return</a></p>

<p><a href="showcode.asp?source=demo_db_list.asp">View source code</a></p>

</body>

</html>

Adding Database Records

Adding database records

Coding

<html>

<head>

<title>Add DataBase</title>

</head>

<body>

set conn=Server.CreateObject("ADODB.Connection")

conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("database.mdb")

conn.open

set rs = Server.CreateObject("ADODB.Recordset")

rs.Open "tblGuestBook", conn , 1 , ,&H0002

<h2>Adding Records</h2>

<table>

for each x in RS.Fields

if x.name <> "no" and x.name <> "dateadded" then%>

<tr>

<td><input name="<%=x.name%>" value="N/A"></td>

end if

</tr></table>

</form>

<p><a href="ado_demo.asp">Return</a></p>

<p><a href="showcode.asp?source=demo_db_add.asp">View source code</a>.</p>

</body>

</html>

Open Directory Site ASP Tutorials