ADO初学者教程：ADO 显示
程序员文章站
2024-01-28 17:15:22
显示来自记录集中的数据的最常用的方法，就是把数据显示在html表格中。
显示字段名称和字段值
我们有一个名为"northwind"的，并且我们希望显示出"customers"表中的数据（记得以....
显示来自记录集中的数据的最常用的方法，就是把数据显示在html表格中。
显示字段名称和字段值
我们有一个名为"northwind"的，并且我们希望显示出"customers"表中的数据（记得以.为扩展名来保存这个文件）：
<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>