Muonekesho wa ADO

Jaribu zaidi zilizootumiwa kushonza data kutoka recordset ni kushonza data katika tabia ya HTML.

Mfano

Kuonyesha rekodi
Je, hujui kama unatokana na kuanzisha kina wa database, kuanzisha recordset, na kushonza data katika HTML?
Kuonyesha rekodi katika tabia ya HTML
Je, hujui kama unatokana na kuingiza data ya tabia katika tabia ya HTML?
Kununua kichwa cha tabia ya HTML
Je, hujui kama unatokana na kuingiza kichwa katika tabia ya HTML, inayofanya kwamba itafuthezi vizuri?
Kununua rangia katika tabia ya HTML
Je, hujui kama unatokana na kuingiza rangia katika tabia ya HTML, inayofanya kwamba itafuthezi vizuri?

Kuonyesha jina la kiini na thamani ya kiini

Nina database yenye jina "Northwind", na tunanafikia kushonza data ya tabia "Customers" (ingatathikia kuonesha faili hii kwa kifupi ya .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>

Kuonyesha jina la kiini na thamani ya kiini katika tabia ya HTML

Tunaweza kwa ujumbe huu pia kushonza data ya tabia "Customers" katika tabia ya HTML:

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

Kununua kichwa cha tabia ya HTML

Tuniana tuwaleza kwa tabia ya HTML hii, inayofanya kwamba itafuthezi vizuri:

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