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

ADO
ADO介绍
ADO数据库连接
ADO记录集
ADO显示记录
ADO查询语句
ADO记录排序
ADO添加记录
ADO更新记录
ADO删除记录
ADO演示
ADO提升执行速度
ADO Command对象
ADO Connection对象
ADO Error
ADO Field
ADO Parameter
ADO 属性
ADO Record
ADO Recordset
ADO Stream

ADO 中的 ADO显示记录


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-03-01   浏览: 905 ::
收藏到网摘: n/a

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

评论 (1) 1 All

登陆 | 还没注册?