Affichage ADO
La manière la plus courante d'afficher les données d'un jeu d'enregistrements consiste à afficher les données dans un tableau HTML.
Afficher les noms de champ et les valeurs de champ
Nous avons une base de données nommée "Northwind" et nous voulons afficher les données de la table "Clients" (n'oubliez pas d'enregistrer le fichier avec une extension .asp) :
Exemple
<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>
Afficher les noms de champ et les valeurs de champ dans un tableau HTML
On peut aussi afficher les données du tableau "Clients" dans un tableau HTML avec les lignes suivantes (n'oubliez pas d'enregistrer le fichier avec une extension .asp) :
Exemple
<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>
Ajouter des en-têtes au tableau HTML
Nous voulons ajouter des en-têtes au tableau HTML pour le rendre plus lisible (n'oubliez pas d'enregistrer le fichier avec une extension .asp) :
Exemple
<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>
Plus d'exemples
Comment ajouter des couleurs au tableau HTML pour le rendre plus beau.