关于ASP连接ACCESS数据库代码的问题
'打开数据库连接SubOpenConn()OnErrorResumeNextIfFR_HR_DataBaseType=1ThenConnStr="Provider=Sql...
'打开数据库连接
Sub OpenConn()
On Error Resume Next
If FR_HR_DataBaseType = 1 Then
ConnStr = "Provider = Sqloledb; User ID = " & Username & "; Password = " & Password & "; Initial Catalog = " & DatabaseName & "; Data Source = " & HostIP & ";"
Else
ConnStr = "DBQ=" + Server.MapPath(Add_Root_Dir(Database)) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
ConnStr = "provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath(Add_Root_Dir(Database))
End If
Set Conn = Server.CreateObject(FR_HR_Conn)
Conn.open ConnStr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "<br><br><br><br><br><br><br><div align='center'>数据库连接出错，错误编号10001。</div>"
Response.End
以上就是原代码，我运行了报错数据库连接出错，错误编号10001
我找不出哪里错误，请大家帮忙..我用的是ACCESS数据库 展开
Sub OpenConn()
On Error Resume Next
If FR_HR_DataBaseType = 1 Then
ConnStr = "Provider = Sqloledb; User ID = " & Username & "; Password = " & Password & "; Initial Catalog = " & DatabaseName & "; Data Source = " & HostIP & ";"
Else
ConnStr = "DBQ=" + Server.MapPath(Add_Root_Dir(Database)) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
ConnStr = "provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath(Add_Root_Dir(Database))
End If
Set Conn = Server.CreateObject(FR_HR_Conn)
Conn.open ConnStr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "<br><br><br><br><br><br><br><div align='center'>数据库连接出错，错误编号10001。</div>"
Response.End
以上就是原代码，我运行了报错数据库连接出错，错误编号10001
我找不出哪里错误，请大家帮忙..我用的是ACCESS数据库 展开
1个回答
展开全部
你给的代码不完全，没法帮你搞的。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
小鹿管家
2025-03-12 广告
AD账户批量创建工具是河南九维网络科技有限公司针对Active Directory（AD）环境设计的高效管理工具。该工具能够简化用户账号的批量创建流程，大幅提高管理员的工作效率。通过导入包含用户信息的文件，管理员可以快速创建多个用户账号，同...
点击进入详情页
本回答由小鹿管家提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
