数据库连接时出现的错误，怎么解决 .. - 编程论坛

#2

不夜星空2008-06-26 22:58

用下面那个试一下!
<%
Dim Conn,ConnStr
Set Conn=Server.CreateObject("Adodb.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("admin/data.mdb")
Conn.open ConnStr
%>

#3

atwight2008-06-28 17:56

[bo][un]不夜星空[/un] 在 2008-6-26 22:58 的发言：[/bo]

用下面那个试一下!

我试验了无数次了。。

#4

atwight2008-06-28 17:58

到底有没有比我的水平更高一点的？谁的水平高，那就站出来指点一下嘛。

#5

tianyu1232008-06-28 18:09

把你的连接代码粘贴出来看一下

#6

multiple19022008-06-28 19:27

遇到问题不会解决=水平高？

#7

atwight2008-06-28 20:22

[bo][un]multiple1902[/un] 在 2008-6-28 19:27 的发言：[/bo]

遇到问题不会解决=水平高？

你的理解力有点问题。我的意思——我的水平不高，所以会出错，我向别人（包括你）求助时却没人能解决问题，看来别的人（包括你）的水平也不高。。
我使用的连接代码如二楼所说，出现帖子中所说的错误。

#8

multiple19022008-06-28 20:28

哦懂了……
提供一下你的“如二楼所说”的部分代码吧，说不定真的有小问题

#9

atwight2008-06-28 20:54

跟楼上的没法沟通。。]
二楼的代码很清楚不过，只需要把server.mappath括号内的改成自己的数据库就成了，还要什么代码？ ..
代码没有什么问题，问题是它会出现那些错误。。
上面的那位，能解决吗. 我还是自己钻研吧！

#10

anlige2008-06-29 01:12

Connstr="DRIVER=Microsoft  Access  Driver  (*.mdb);DBQ="+server.mappath("mdb.mdb")
Set  Conn=Server.CreateObject("ADODB.Connection")
conn.Open  connstr
顺便检查下数据库权限~

#11

atwight2008-07-02 21:45

经过自己的钻研，这个问题已经解决。我使用的程序如下：

<%
on error resume next
dim conn
Set conn=Server.CreateObject("ADODB.Connection")
conn.connectionstring="dsn=register" '-------register为数据源名称-------
conn.open
set conn=nothing
'-------以下是监视数据库连接状况的代码---------
if conn.state=1 then
response.write ""&"连接数据库成功！"&""&" " '试验结果为连接成功
else
response.write ""&"连接数据库失败..."&""&" "
end if
for i=1 to conn.errors.count-1
cause=conn.errors(i).description
idnum=conn.errors(i).number
source=conn.errors(i).source
response.write "错误数量："&i &" "
response.write "错误代号："&idnum&" "
response.write "错误来源："&source&" "
response.write "错误描述："&cause&" "
response.write "<hr>"
next
conn.close
set conn=nothing
%>