UC知道asp连接ACCESS数据库出错拉
来源：百度知道 编辑：UC知道 时间：2024/05/15 10:40:30
代码如下:
<%
Dim DBpath,ConnStr,Conn
DBpath =DBpath & "\wdwz\data.mdb" '数据库文件的位置
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB;Data Source="& Server.MapPath(DBPath)
On Error Resume Next '启用错误处理程序
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<p> </p><p align='center'>数据库连接出错！</p>"
Response.End
End If
On Error GoTo 0 '禁用错误处理程序
sub CloseConnDB()
Conn.Close
set conn=nothing
end sub
%>
提示 数据库连接出错！
请问为什么
MapPath 方法的路径参数必须是一个虚拟路径。使用的路径是实际,改了路径后就提示这样
2楼的不行，
3楼的提示这句语句出错conn.open "driver=driver do microsoft access (*.mdb);dbq="&server.MapPath(DB)
<%
Dim DBpath,ConnStr,Conn
DBpath =DBpath & "\wdwz\data.mdb" '数据库文件的位置
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB;Data Source="& Server.MapPath(DBPath)
On Error Resume Next '启用错误处理程序
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<p> </p><p align='center'>数据库连接出错！</p>"
Response.End
End If
On Error GoTo 0 '禁用错误处理程序
sub CloseConnDB()
Conn.Close
set conn=nothing
end sub
%>
提示 数据库连接出错！
请问为什么
MapPath 方法的路径参数必须是一个虚拟路径。使用的路径是实际,改了路径后就提示这样
2楼的不行，
3楼的提示这句语句出错conn.open "driver=driver do microsoft access (*.mdb);dbq="&server.MapPath(DB)
把数据库路径改成绝对路经试下。比如你的程序放在D:\wwwroot\下面，那你就写成d:\wwwroot\wdwz\data.mdb
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath(DBPath) '前提：数据库路径没错
用这个试下
<%
dim DB,conn
DB="wdwz\data.mdb"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(server.MapPath("wdwz"))=false then
DB="../"&DB
end if
set fso=nothing
set conn=server.CreateObject("adodb.connection")
conn.open "driver=driver do microsoft access (*.mdb);dbq="&server.MapPath(DB)
'禁用错误报告代码省...
%>
DBpath =DBpath & "\wdwz\data.mdb" '数据库文件的位置
修改为DBpath =DBpath & "/wdwz/data.mdb" '数据库文件的位置