عرض ADO

من الطرق الأكثر شيوعًا لعرض البيانات من مجموعة السجلات هي عرض البيانات في جدول HTML.

مثال

عرض السجلات
كيفية إنشاء اتصال قاعدة بيانات أولاً، ثم إنشاء مجموعة سجلات، ثم عرض البيانات في HTML.
عرض السجلات في جدول HTML
كيفية عرض بيانات جدول البيانات في جدول HTML.
إضافة عنوان إلى جدول HTML
كيفية إضافة عنوان إلى جدول HTML لجعله أكثر وضوحًا.
إضافة لون إلى جدول HTML
كيفية إضافة لون إلى جدول HTML لجعله أكثر جمالًا.

عرض اسم الحقل وقيمة الحقل

لدينا قاعدة بيانات تُدعى "Northwind" ونريد عرض بيانات جدول "Customers" (تذكر أن تحفظ الملف بامتداد .asp):

<html>
<body>
<%
تعيين conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
فتح conn "c:/webdata/northwind.mdb"
تعيين rs = Server.CreateObject("ADODB.recordset")
فتح rs "SELECT * FROM Customers", conn
فعل حتى rs.EOF
  للجميع x في rs.Fields
    Response.Write(x.name)
    Response.Write(" = ")
    Response.Write(x.value & "<br />") 
  التالي
  Response.Write("<br />")
  تحرك rs.MoveNext
loop
rs.close
conn.close
%>
</body>
</html>

عرض اسم الحقل وقيمة الحقل في جدول HTML

يمكننا أيضًا عرض بيانات الجدول "Customers" في جدول HTML باستخدام الكود التالي:

<html>
<body>
<%
تعيين conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
فتح conn "c:/webdata/northwind.mdb"
تعيين rs = Server.CreateObject("ADODB.recordset")
فتح rs "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>
<%
تعيين conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
فتح conn "c:/webdata/northwind.mdb"
تعيين 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>