UC知道高手过来看看我的数据库连接文件conn.asp为什么提示连接数据库失败？
来源：百度知道 编辑：UC知道 时间：2024/07/02 13:17:13
<%
dim db
const DatabaseType="ACCESS"
db="cnhwwdata\cnhww.asp"
On Error Resume Next
dim ConnStr
dim conn
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
Response.End
End If
sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%>
我看了，文件名，路径倒也没错，可就是提示数据库连接失败，请问，这段代码有问题么？谁来帮我改改
dim db
const DatabaseType="ACCESS"
db="cnhwwdata\cnhww.asp"
On Error Resume Next
dim ConnStr
dim conn
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
Response.End
End If
sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%>
我看了，文件名，路径倒也没错，可就是提示数据库连接失败，请问，这段代码有问题么？谁来帮我改改
const DatabaseType="ACCESS" ...应该是connstr吧？而且你事先还没定义一下。
<%
dim conn,db,connstr
db="cnhwwdata\cnhww.asp"
connstr="DBQ="+server.MapPath(""&db&"")+";DefaultDir=;driver={Microsoft Access driver (*.mdb)};"
set conn=server.CreateObject("adodb.connection")
conn.open connstr
sub CloseConn()
conn.Close()
Set conn = Nothing
end sub
%>
换上这段测试一下吧 .这是ACCESS的。