我建了一个test.mdb的Access的数据库，内有一个user的表，表中有ID,user,pwd,addres等字段，表中写了三条记录，现想写一段代程，读取这些记录，我写的代码如下，但有错误，请帮忙改一下，多谢了！
＜html＞
＜head＞＜title＞∷∷∷∷∷∷＜/title＞＜/head＞
＜body＞
＜%
Dim objConn
Set objConn=Server.CreateObject(＂ADODB.Connection＂)
objConn.ConnectionString=＂Provider=Microsoft.Jet.OLEDB.4.0;＂＆＂Data Source=＂＆Server.MapPath(＂test.mdb＂)
objConn.Open
Dim objRS
Set objRS=Server.CreateObject(＂ADODB.Recordset＂)
objRS.Open＂user＂,objConn
sql=select ID,user,pwd,addres from user ';这一行有错，该怎么写呢？
If Not ObjRS.EOF Then
Response.Write＂编号：＂＆objRS(＂ID＂)＆＂＜br＞＂
Response.Write＂用户：＂＆objRS(＂user＂)＆＂＜br＞＂
Response.Write＂密码：＂＆objRS(＂pwd＂)＆＂＜br＞＂
Response.Write＂地址：＂＆objRS(＂addres＂)＆＂＜br＞＂
Else
Response.Write＂到达数据库的结尾，无法打印记录。＂
End If
objRS.Close
Set objRS=Nothing
objConn.Close
Set objConn=Nothing
%＞
＜/body＞
＜/html＞
＜html＞
＜head＞＜title＞∷∷∷∷∷∷＜/title＞＜/head＞
＜body＞
＜%
Dim objConn
Set objConn=Server.CreateObject(＂ADODB.Connection＂)
objConn.Open ＂Provider=Microsoft.Jet.OLEDB.4.0;＂＆＂Data Source=＂＆Server.MapPath(＂test.mdb＂)
Dim objRS
sql=＂select * from user order by id desc＂
set objRS=objConn.execute(sql)
If Not ObjRS.EOF Then
Response.Write＂编号：＂＆objRS(＂ID＂)＆＂＜br＞＂
Response.Write＂用户：＂＆objRS(＂user＂)＆＂＜br＞＂
Response.Write＂密码：＂＆objRS(＂pwd＂)＆＂＜br＞＂
Response.Write＂地址：＂＆objRS(＂addres＂)＆＂＜br＞＂
Else
Response.Write＂到达数据库的结尾，无法打印记录。＂
End If
objRS.Close
Set objRS=Nothing
objConn.Close
Set objConn=Nothing
%＞ |
|
设为首页
加入收藏
联系我们
打印本文 
返回顶部 
加入收藏 
关闭窗口
