在IIS中浏览带ACCESS数据库的ASP网页，执行把数据库上的表输出到浏览器上，为什么没法执行

其中的ACCESS数据库是在本机上建立的，而要执行的数据库也已经通过ODBC加入系统数据源（用户DSN和系统DSN两个选项卡都加），其中的用户代码（代码中的client是我在电脑上建立的数据库，rentendclient是client数据库上的表）如下：
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ch8-6.asp</title>client数据库的rentendclient
</head>
<%
set dbconn=Server.Createobject("ADODB.Connection")
dbconn.open"client"
sql="select * from rentendclient"
set dbrs=dbconn.Execute(sql)
response.write"<table border=1>"
response.write"<tr>"
for i=0 to dbrs.fields.count-1
response.write"<td>"&dbrs.fields(i).name&</td>"
next
response.write"</tr>"

do while not dbrs.eof
response.write"<tr>"
for i=0 to dbrs.fields.count-1
response.write"<td>"&dbrs.fields(i).value&"</td>"
next
response.write"</tr>"
dbrs.movenext
loop

response.write"</table>“

dbconn.close
dbrs.close
%>
其中IIS环境按

http://zhidao.baidu.com/question/95306218.html?si=1

这个设置好了。上面发的代码有点小错误，改了如下：<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ch8-6.asp</title>client数据库的rentendclient
</head>
<%set dbconn=Server.Createobject("ADODB.Connection")
dbconn.open"client"
sql="select * from rentendclient"
set dbrs=dbconn.Execute(sql)
response.write"<table border=1>"
response.write"<tr>"
for i=0 to dbrs.fields.count-1
response.write"<td>"&dbrs.fields(i).name&"</td>"
next
response.write"</tr>"
do while not dbrs.eof
response.write"<tr>"
for i=0 to dbrs.fields.count-1
response.write"<td>"&dbrs.fields(i).value&"</td>"
next
response.write"</tr>"
dbrs.movenext
loop
response.write"</table>"
dbconn.close
dbrs.close
%>
错误提示：Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序

/Ch8-6.asp，行 8

最新回答

东风软

2024-12-01 14:07:40

都是DW害人，什么时代了，还用那种方式连接数据库？
你在查询中不就是要读fields字段的值吗，为何要用了三次循环？
现在已知：你的数据库名叫client，client什么？数据库得有扩展名，既然是ACCESS的，那就是client.mdb了，按我下面的方法建立连接：

假设你的网站目录下有个data文件夹，那就把client.mdb移动到里面，如果没有，新建一个。

<%
Dim db,Conn,Connstr
db="data/client.mdb" '数据库文件的位置
Set Conn = Server.CreateObject("ADODB.Connection")
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Conn.Open Connstr

'数据库连上了，进行查询吧：
Response.write"<table border=1>"
Response.write"<tr>"
Set dbrs=Conn.Execute("select * from rentendclient")
If dbrs.eof and dbrs.bof then
Response.write"暂无任何数据"
Else
dim fields
do while not dbrs.eof
fields = dbrs("fields")
Response.write"<td>"&fields&"</td>"
dbrs.movenext
loop
End If
dbrs.close
Set dbrs = Nothing
Response.write"</tr>"
Response.write"</table>"

'完了记得断开数据库连接：
Conn.Close
Set Conn = Nothing
%>

橘萝卜蹲

2024-12-01 17:08:15

把不能执行的错误提示复制出来。

我要回答

匿名回答

在IIS中浏览带ACCESS数据库的ASP网页，执行把数据库上的表输出到浏览器上，为什么没法执行

您可能感兴趣问答

Collapsible

热门标签

热点问答