ADO Gösterim

Kayıt kümesinden verileri görüntülemek için en yaygın yöntem, verileri HTML tablosunda görüntülemektir.

Örnek

Kayıtları görüntüleme
Öncelikle bir veritabanı bağlantısı oluşturmak, ardından bir kayıt kümesi oluşturmak ve bu kayıt kümesindeki verileri HTML'de görüntülemek nasıl yapılır.
HTML tablosunda kayıtları görüntüleme
Veri tablosundaki verileri HTML tablosunda nasıl görüntülenir.
HTML tablosuna başlık ekleyin
HTML tablosuna nasıl başlık eklenir, okunabilirliğini artırır.
HTML tablosuna renk ekleyin
HTML tablosuna nasıl renk eklenir, daha güzel görünmesini sağlar.

Alan adlarını ve alan değerlerini görüntüleme

Bir "Northwind" adında bir veritabanımız var ve "Customers" tablosundaki verileri görüntülemek istiyoruz (dosyayı .asp uzantısı ile kaydedin):

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

Alan adlarını ve alan değerlerini bir HTML tablosunda görüntüleme

Ayrıca, aşağıdaki kod ile "Customers" tablosundaki verileri HTML tablosunda görüntüleyebiliriz:

<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 tablosuna başlık ekleyin

Bu HTML tablosuna bir başlık eklemek istiyoruz, böylece daha okunabilir hale gelir:

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