Affichage ADO

La méthode la plus courante pour afficher les données d'un ensemble d'enregistrements consiste à les afficher dans un tableau HTML.

Exemple

Afficher les enregistrements
Comment créer d'abord une connexion de base de données, puis un ensemble de enregistrements, et enfin afficher les données dans HTML ?
Afficher les enregistrements dans un tableau HTML
Comment afficher les données d'un tableau de données dans un tableau HTML ?
Ajouter un titre au tableau HTML
Comment ajouter un titre à un tableau HTML pour améliorer sa lisibilité ?
Ajouter une couleur au tableau HTML
Comment ajouter une couleur à un tableau HTML pour le rendre plus beau ?

Afficher les noms de champs et les valeurs des champs

Nous avons une base de données nommée "Northwind" et nous souhaitons afficher les données de la table "Customers" (n'oubliez pas de sauvegarder ce fichier avec l'extension .asp) :

<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 champs et les valeurs des champs dans un tableau HTML

Nous pouvons également afficher les données de la table "Customers" dans un tableau HTML avec le code suivant :

<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 un titre au tableau HTML

Nous souhaitons ajouter un titre à ce tableau HTML pour qu'il soit plus facile à lire :

<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>