ADO visning

Den mest almindelige metode til at vise data fra en recordset, er at vise dataene i en HTML-tabel.

Eksempel

Vis record
Hvordan man først opretter en databaseforbindelse, derefter en recordset, og derefter viser dataene i HTML.
Vis record i HTML-tabel
Hvordan man viser data fra en data tabel i HTML-tabel.
Tilføj titel til HTML-tabel
Hvordan man tilføjer en titel til HTML-tabel, så den bliver mere læsbar.
Tilføj farve til HTML-tabel
Hvordan man tilføjer farve til HTML-tabel, så den bliver mere attraktiv.

Vis feltets navn og værdi

Vi har en database ved navn "Northwind", og vi ønsker at vise dataene fra tabellen "Customers" (husk at gemme filen med .asp-udvidelsen):

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

Vis feltets navn og værdi i en HTML-tabel

Vi kan også vise dataene fra tabellen "Customers" i en HTML-tabel ved hjælp af følgende kode:

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

Tilføj titel til HTML-tabel

Vi ønsker at tilføje en titel til denne HTML-tabel, så den bliver lettere at læse:

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