Tampilan ADO
Cara paling umum untuk menampilkan data dari recordset, adalah dengan menampilkan data dalam tabel HTML.
Tampilkan Nama Bidang dan Nilai Bidang
Kami memiliki database bernama "Northwind" dan kami ingin menampilkan data dari tabel "Pelanggan" (ingat untuk menyimpan file dengan ekstensi .asp):
Contoh
<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>
Menampilkan Nama Bidang dan Nilai Bidang dalam Tabel HTML
Kami juga dapat menampilkan data dari tabel "Pelanggan" di dalam tabel HTML dengan baris berikut (ingat untuk menyimpan file dengan ekstensi .asp):
Contoh
<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>
Tambahkan Header ke Tabel HTML
Kami ingin menambahkan header ke tabel HTML agar lebih mudah dibaca (ingat untuk menyimpan file dengan ekstensi .asp):
Contoh
<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>
Lebih Banyak Contoh
Bagaimana menambahkan warna ke tabel HTML agar terlihat bagus.