ADO显示记录 - ADO - 软晨网（RuanChen.com）

当前位置: 首页 > 网络学院 > 服务端脚本教程 > ADO > ADO显示记录

学院文章搜索

关键字

ADO 中的 ADO显示记录

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-03-01 浏览: 929 ::

收藏到网摘: n/a

ADO记录集 ADO查询语句

The most common way to display data from a recordset, is to display the data in an HTML table.
ADO显示记录中数据的最常用方法：在HTML表格中显示数据。

Examples
案例

Display records
显示记录
How to first create a database connection, then a recordset, and then display the data in HTML.
如果建立数据库连接以及记录集，并在HTML中显示数据。

Display records in an HTML table
在一张HTML表格中显示记录
How to display the data from the database table in an HTML table.
如何在一张HTML表格中显示来自数据库表中的数据。

Add headers to the HTML table
在HTML表格中加入标头[header]
How to add headers to the HTML table to make it more readable.
如何在HTML表格中加入标头[header]信息，使其可读性变得更强。

Add colors to the HTML table
在HTML表格中添加颜色
How to add colors to the HTML table to make it look nice.
如何在HTML表格中添加颜色使其更美观。

Display the Field Names and Field Values
显示字段名和字段值

We have a database named "Northwind" and we want to display the data from the "Customers" table (remember to save the file with an .asp extension):
我们现在已经拥有了一个名为“Northwind”的数据库。我们希望能够显示名为“Customers”表格中的数据信息（记住：使用“.asp”扩展名保存文件）：

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

Here is the result:
输出结果：

CustomerID = ALFKI
CompanyName = Alfreds Futterkiste
ContactName = Maria Anders
ContactTitle = Sales Representative
Address = Obere Str. 57
City = Berlin
PostalCode = 12209
Country = Germany

CustomerID = BERGS
CompanyName = Berglunds snabbköp
ContactName = Christina Berglund
ContactTitle = Order Administrator
Address = Berguvsvägen 8
City = Luleå
PostalCode = S-958 22
Country = Sweden

CustomerID = CENTC
CompanyName = Centro comercial Moctezuma
ContactName = Francisco Chang
ContactTitle = Marketing Manager
Address = Sierras de Granada 9993
City = México D.F.
PostalCode = 05022
Country = Mexico

....
....
....

Display the Field Names and Field Values in an HTML Table
显示一张HTML表格中的字段名和字段值：

We can also display the data from the "Customers" table inside an HTML table with the following lines (remember to save the file with an .asp extension):
我们同样可以通过使用下面的代码在一张HTML表格中显示“Customers”表中的数据信息（记住：使用“.asp”扩展名保存文件）：

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

Here is the result:
输出结果：

Alfreds Futterkiste	Maria Anders
Berglunds snabbköp	Christina Berglund
Centro comercial Moctezuma	Francisco Chang
Ernst Handel	Roland Mendel
FISSA Fabrica Inter. Salchichas S.A.	Diego Roel
Galería del gastrónomo	Eduardo Saavedra
Island Trading	Helen Bennett
Königlich Essen	Philip Cramer
Laughing Bacchus Wine Cellars	Yoshi Tannamuri
Magazzini Alimentari Riuniti	Giovanni Rovelli
North/South	Simon Crowther
Paris spécialités	Marie Bertrand
Rattlesnake Canyon Grocery	Paula Wilson
Simons bistro	Jytte Petersen
The Big Cheese	Liz Nixon
Vaffeljernet	Palle Ibsen
Wolski Zajazd	Zbyszek Piestrzeniewicz

Add Headers to the HTML Table
向HTML表格中加入标头信息[header]

We want to add headers to the HTML table to make it more readable (remember to save the file with an .asp extension):
我们希望向HTML表中加入标头[header]信息以增强其可读性（记住：使用“.asp”扩展名保存文件）：

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

Here is the result:
输出结果：

Companyname	Contactname
Alfreds Futterkiste	Maria Anders
Berglunds snabbköp	Christina Berglund
Centro comercial Moctezuma	Francisco Chang
Ernst Handel	Roland Mendel
FISSA Fabrica Inter. Salchichas S.A.	Diego Roel
Galería del gastrónomo	Eduardo Saavedra
Island Trading	Helen Bennett
Königlich Essen	Philip Cramer
Laughing Bacchus Wine Cellars	Yoshi Tannamuri
Magazzini Alimentari Riuniti	Giovanni Rovelli
North/South	Simon Crowther
Paris spécialités	Marie Bertrand
Rattlesnake Canyon Grocery	Paula Wilson
Simons bistro	Jytte Petersen
The Big Cheese	Liz Nixon
Vaffeljernet	Palle Ibsen
Wolski Zajazd	Zbyszek Piestrzeniewicz

ADO记录集 ADO查询语句

ADO 中的 ADO显示记录

Examples 案例

Display the Field Names and Field Values 显示字段名和字段值

Display the Field Names and Field Values in an HTML Table 显示一张HTML表格中的字段名和字段值：

Add Headers to the HTML Table 向HTML表格中加入标头信息[header]

评论 (1) 1 All

Examples
案例

Display the Field Names and Field Values
显示字段名和字段值

Display the Field Names and Field Values in an HTML Table
显示一张HTML表格中的字段名和字段值：

Add Headers to the HTML Table
向HTML表格中加入标头信息[header]