نمایش (ADO Display)

در این درس با «نمایش داده ADO» آشنا می شویم. ADO یعنی راه ساده وصل شدن به پایگاه داده. «رکوردست (Recordset)» لیست نتیجه پرس وجو است. داده ها را مثل فهرست دانش آموزان کلاس، تمیز نمایش می دهیم.

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

اول همه فیلدها و مقدارشان را چاپ می کنیم. این روش ساده است. مثل این که اسم ستون و مقدارش را پشت سرهم بنویسیم.

<%
  Dim conn
  Dim rs
  Dim x
  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
%>

مشاهده در ادیتور

نمایش داده ها داخل جدول HTML

حالا داده ها را جدول بندی می کنیم. جدول خواندن را راحت می کند. مثل جدول نمرات مدرسه است.

<%
  Dim conn2
  Dim rs2
  Dim f
  Set conn2 = Server.CreateObject("ADODB.Connection")
  conn2.Provider = "Microsoft.Jet.OLEDB.4.0"
  conn2.Open "c:/webdata/northwind.mdb"
  Set rs2 = Server.CreateObject("ADODB.Recordset")
  rs2.Open "SELECT CompanyName, ContactName FROM Customers", conn2
%>
<table border="1" width="100%">
<% Do Until rs2.EOF %>
  <tr>
  <% For Each f In rs2.Fields %>
    <td><% Response.Write f.Value %></td>
  <% Next %>
  <% rs2.MoveNext %>
  </tr>
<% Loop %>
<%
  rs2.Close
  conn2.Close
%>

مشاهده در ادیتور

افزودن هدر برای ستون ها

با «هدر (Header)» عنوان ستون ها مشخص می شود. پیدا کردن معنا آسان تر می شود.

<%
  Dim conn3
  Dim rs3
  Dim h
  Dim sql
  Set conn3 = Server.CreateObject("ADODB.Connection")
  conn3.Provider = "Microsoft.Jet.OLEDB.4.0"
  conn3.Open "c:/webdata/northwind.mdb"
  Set rs3 = Server.CreateObject("ADODB.Recordset")
  sql = "SELECT CompanyName, ContactName FROM Customers"
  rs3.Open sql, conn3
%>
<table border="1" width="100%">
  <tr>
  <% For Each h In rs3.Fields %>
    <th><% Response.Write h.Name %></th>
  <% Next %>
  </tr>
  <% Do Until rs3.EOF %>
    <tr>
    <% For Each h In rs3.Fields %>
      <td><% Response.Write h.Value %></td>
    <% Next %>
    <% rs3.MoveNext %>
    </tr>
  <% Loop %>
<%
  rs3.Close
  conn3.Close
%>

مشاهده در ادیتور

رنگ آمیزی جدول برای خوانایی بهتر

با رنگ ملایم، جدول چشم نواز می شود. تمرکز کاربر بیشتر می شود.

<%
  Dim conn4
  Dim rs4
  Dim c
  Dim q
  Set conn4 = Server.CreateObject("ADODB.Connection")
  conn4.Provider = "Microsoft.Jet.OLEDB.4.0"
  conn4.Open "c:/webdata/northwind.mdb"
  Set rs4 = Server.CreateObject("ADODB.Recordset")
  q = "SELECT CompanyName, ContactName FROM Customers"
  rs4.Open q, conn4
%>
<table border="1" style="width:100%;background-color:#fff5ee;">
  <tr>
  <% For Each c In rs4.Fields %>
    <th style='text-align:left;background-color:#b0c4de;'><% Response.Write c.Name %></th>
  <% Next %>
  </tr>
  <% Do Until rs4.EOF %>
    <tr>
    <% For Each c In rs4.Fields %>
      <td><% Response.Write c.Value %></td>
    <% Next %>
    <% rs4.MoveNext %>
    </tr>
  <% Loop %>
<%
  rs4.Close
  conn4.Close
%>

مشاهده در ادیتور

گام های عملی سریع

1. اتصال ADO بساز. مسیر دیتابیس درست باشد.
2. پرس وجو بنویس. ستون های لازم را انتخاب کن.
3. رکوردست را باز کن. تا آخر حلقه بزن.
4. خروجی را در جدول چاپ کن. هدر اضافه کن.
5. در پایان، همه آبجکت ها را ببند.

نکته: نام ستون ها حساس نیست؛ اما املای صحیح مهم است.

هشدار: مسیر دیتابیس را روی سرور تولید تغییر بده. مسیر محلی نگذار.

برای مرور بیشتر، صفحه نمایش داده ADO و همچنین پرس وجو در ADO را ببین.

جمع بندی سریع

• ADO اتصال می دهد و رکوردست برمی گرداند.
• نمایش ساده، فهم اولیه می دهد.
• جدول، خوانایی را بهتر می کند.
• هدر و رنگ، تجربه را بهتر می کند.
• منابع را همیشه ببند.