Ipinapakita ng ADO

Ang pinakamadalas na paraan upang ipakita ang datos mula sa recordset ay ipakita ang datos sa HTML table.

Mga halimbawa

Ipakita ang record
Paano unang gumawa ng koneksyon sa database, pagkatapos ay gumawa ng recordset at ipakita ang datos nito sa HTML?
Ipakita ang record sa HTML table
Paano ipakita ang datos ng table sa HTML table?
Magdagdag ng pamagat sa HTML table
Paano magdagdag ng pamagat sa HTML table upang ito ay mas madaling basahin?
Magdagdag ng kulay sa HTML table
Paano magdagdag ng kulay sa HTML table upang ito ay mas maganda?

Ipakita ang pangalan ng field at ang halaga ng field

Mayroon kaming database na may pangalan na "Northwind" at nagnanais naming ipakita ang datos ng table "Customers" (tandaan na ilagay ang .asp bilang ekspansyon ng file):

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

Ipakita ang pangalan ng field at ang halaga ng field sa isang HTML table

Maaari din naming gamitin ang sumusunod na code upang ipakita ang datos ng table "Customers" sa isang HTML table:

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

Magdagdag ng pamagat sa HTML table

Kami ay nagnanais na magdagdag ng pamagat sa HTML table na ito upang ito ay mas madaling basahin:

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