Provider 错误 '80004005' 未指定的错误

来源：百度知道 编辑：UC知道 时间：2024/05/18 02:17:21
代码为：
dim conn
dim connstr
dbpath="/ajz/ms235.mdb"
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(dbpath)
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
这个问题都好几天了，有时一刷新就好了，有时错误就又出现了，总是这样时好时坏的，不知道是什么原因？
请各位高手指教一下，谢谢！

<%
'Option Explicit '要求变量声明，这样所有包含此文件的都需要声明变量

dim conn '数据库连接
dim connstr '连接字符串
dim db '数据库文件路径

db = "/ajz/ms235.mdb" '用ACCESS数据库
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请打开conn.asp文件检查连接字串。"
Response.End
End If

conn.Open connstr

'关闭数据库连接，在每页中调用此函数，将连接放入连接池
sub rsclose()
rs.Close()
Set rs = Nothing
end sub
sub connclose()
conn.Close()
Set conn = Nothing
end sub
%>

用这个试一下 ，你写的不怎么规范！！主要是数据库的定义！！