Visualizzazione ADO

Il metodo più comune per visualizzare i dati di un recordset è quello di visualizzare i dati in una tabella HTML.

Esempio

Visualizzare i record
Come creare prima una connessione al database, quindi creare un recordset e infine visualizzare i dati in HTML.
Visualizzare i record in una tabella HTML
Come visualizzare i dati di un elenco di dati in una tabella HTML.
Aggiungere un titolo alla tabella HTML
Come aggiungere un titolo alla tabella HTML per migliorare la leggibilità.
Aggiungere un colore alla tabella HTML
Come aggiungere un colore alla tabella HTML per renderla più attraente.

Visualizzare i nomi dei campi e i valori dei campi

Abbiamo un database chiamato "Northwind" e vogliamo visualizzare i dati della tabella "Customers" (ricorda di salvare il file con estensione .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>

Visualizzare i nomi dei campi e i valori dei campi in una tabella HTML

Possiamo anche visualizzare i dati della tabella "Customers" in una tabella HTML con il seguente codice:

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

Aggiungere un titolo alla tabella HTML

Vogliamo aggiungere un titolo a questa tabella HTML per renderla più leggibile:

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