求ASP中连接ACCESS数据库出错的原因

来源:百度知道 编辑:UC知道 时间:2024/06/02 08:55:45
语句如下:
<%
Dim DBpath,ConnStr,Conn
DBpath =server.mappath("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
%>
数据库放在根目录下。提示连接出错
一楼的回答还是有问题。结果还是出错

修改如下:

<%
Dim DBpath,ConnStr,Conn
DBpath =server.mappath("/test/points.mdb") '数据库文件的位置
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB;Data Source="&DBpath
On Error Resume Next '启用错误处理程序
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
If Err=0 Then
err.Clear
Set Conn = Nothing
Response.Write "<p> </p><p align='center'>数据库连接出错,请检查链接路径和数据库名称!</p>"
Response.End
else
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
%>

Asp连接Access和MSSQL可切换代码
access数据库''建义采用sqlserver来开发 ...

分类: Asp编程 点击: 4 日期: 2009-07-0