ADO- weergave
De meest gebruikelijke manier om gegevens uit een recordset weer te geven, is om de gegevens in een HTML-tabel weer te geven.
De veldnamen en veldwaarden weergeven
We hebben een database met de naam "Northwind" en we willen de gegevens uit de tabel "Klanten" weergeven (vergeet niet om het bestand op te slaan met de extensie .asp):
Voorbeeld
<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "SELECT * FROM Customers", conn
do until rs.EOF
for each x in rs.Fields
Response.Write(x.name)
Response.Write(" = ")
Response.Write(x.value & "<br>")
next
Response.Write("<br>")
rs.MoveNext
loop
rs.close
conn.close
%>
</body>
</html>
De veldnamen en veldwaarden weergeven in een HTML-tabel
We kunnen de gegevens uit de tabel "Klanten" ook weergeven in een HTML-tabel met de volgende regels (vergeet niet om het bestand op te slaan met de extensie .asp):
Voorbeeld
<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "SELECT Companyname, Contactname FROM Customers", conn
%>
<table border="1" width="100%">
<%do until rs.EOF%>
<tr>
<%for each x in rs.Fields%>
<td><%Response.Write(x.value)%></td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
conn.close
%>
</table>
</body>
</html>
Kopteksten toevoegen aan de HTML-tabel
We willen headers aan de HTML-tabel toevoegen om deze leesbaarder te maken (vergeet niet om het bestand op te slaan met de extensie .asp):
Voorbeeld
<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Companyname, Contactname FROM Customers"
rs.Open sql, conn
%>
<table border="1" width="100%">
<tr>
<%for each x in rs.Fields
response.write("<th>" & x.name & "</th>")
next%>
</tr>
<%do until rs.EOF%>
<tr>
<%for each x in rs.Fields%>
<td><%Response.Write(x.value)%></td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
conn.close
%>
</table>
</body>
</html>
Meer voorbeelden
Hoe u kleuren aan de HTML-tabel kunt toevoegen om deze er mooi uit te laten zien.