نمایش ADO

یکی از رایج‌ترین روش‌ها برای نمایش داده‌های موجود در یک مجموعه‌ی ضبط، نمایش داده‌ها در یک جدول HTML است.

مثال

نمایش داده‌ها
چگونه می‌توانیم ابتدا یک اتصال به پایگاه داده ایجاد کنیم، سپس یک مجموعه‌ی ضبط ایجاد کنیم و سپس داده‌های آن را در HTML نمایش دهیم.
نمایش داده‌ها در جدول HTML
چگونه می‌توانیم داده‌های جدول را در یک جدول HTML نمایش دهیم.
اضافه کردن عنوان به جدول HTML
چگونه می‌توانیم عنوانی به جدول HTML اضافه کنیم تا خوانایی بیشتری داشته باشد.
اضافه کردن رنگ به جدول HTML
چگونه می‌توانیم به جدول HTML رنگ اضافه کنیم تا زیباتر شود.

نمایش نام فیلد‌ها و مقادیر فیلد‌ها

ما یک پایگاه داده به نام "Northwind" داریم و می‌خواهیم داده‌های جدول "Customers" را نمایش دهیم (به خاطر داشته باشید که باید فایل را با расширение .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>

نمایش نام فیلد‌ها و مقادیر فیلد‌ها در یک جدول HTML

ما همچنین می‌توانیم با استفاده از کد زیر داده‌های جدول "Customers" را در یک جدول 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>

اضافه کردن عنوان به جدول HTML

ما می‌خواهیم عنوانی به این جدول 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")
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>