Wyświetlanie ADO

Najczęstszy sposób wyświetlania danych z zestawu rekordów to wyświetlenie danych w tabeli HTML.

Przykład

Wyświetl rekordy
Jak najpierw utworzyć połączenie z bazą danych, a następnie utworzyć zestaw rekordów i wyświetlić dane w HTML?
Wyświetl rekordy w tabeli HTML
Jak wyświetlić dane z tabeli w tabeli HTML?
Dodaj tytuł do tabeli HTML
Jak dodać tytuł do tabeli HTML, aby była bardziej czytelna?
Dodaj kolor do tabeli HTML
Jak dodać kolor do tabeli HTML, aby była bardziej atrakcyjna?

Wyświetl nazwy pól i wartości pól

Mamy bazę danych o nazwie "Northwind" i chcemy wyświetlić dane z tabeli "Customers" (pamiętaj, aby zapisywać plik z rozszerzeniem .asp):

<html>
<body>
<%
ustaw conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
ustaw 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>

Wyświetl nazwy pól i wartości pól w tabeli HTML

Możemy również wyświetlić dane z tabeli "Customers" w tabeli HTML za pomocą poniższego kodu:

<html>
<body>
<%
ustaw conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
ustaw 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>

Dodaj tytuł do tabeli HTML

Chcemy dodać tytuł do tej tabeli HTML, aby była łatwiejsza do przeczytania:

<html>
<body>
<%
ustaw conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
ustaw 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>