ADO-Anzeige

Die häufigste Methode, Daten aus einem Recordset anzuzeigen, ist das Anzeigen der Daten in einer HTML-Tabelle.

Beispiel

Einträge anzeigen
Wie man zunächst eine Datenbankverbindung erstellt, dann einen Recordset erstellt und die Daten in HTML anzeigt.
Zeige Einträge in einer HTML-Tabelle an
Daten in einer HTML-Tabelle anzeigen
Titel zur HTML-Tabelle hinzufügen
Wie man einem HTML-Dokument einen Titel hinzufügt, um die Lesbarkeit zu verbessern.
Farben zur HTML-Tabelle hinzufügen
Wie man Farben zu einer HTML-Tabelle hinzufügt, um sie ansprechender zu gestalten.

Feldnamen und Feldwerte anzeigen

Wir haben eine Datenbank namens "Northwind" und möchten die Daten der Tabelle "Customers" anzeigen (denken Sie daran, die Datei mit der Erweiterung .asp zu speichern):

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

Feldnamen und Feldwerte in einer HTML-Tabelle anzeigen

Wir können die Daten der Tabelle "Customers" auch mit dem folgenden Code in einer HTML-Tabelle anzeigen:

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

Titel zur HTML-Tabelle hinzufügen

Wir möchten der HTML-Tabelle einen Titel hinzufügen, damit sie besser lesbar wird:

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