asp连接access数据库

答案:5 悬赏:40 手机版

解决时间 2021-08-17 13:00

提问者网友：蓝莓格格巫
2021-08-17 09:13

dim conn,connstr,TimesDB,rsTimesDB="data/data.mdb"connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&TimesDB&"")On Error Resume Next Set conn = Server.CreateObject("ADODB.Connection") conn.open connstr If Err Then err.Clear Set Conn = Nothing Response.Write "<center>数据库连接错误，请检查Conn.asp文件连接字符串！</center>" Response.End End If
set rs=server.CreateObject("adodb.recordset")
这几句什么意思啊？网页提示说：数据库连接错误，请检查Conn.asp文件连接字符串！怎样解决？

最佳答案

五星知识达人网友：蓝房子
2021-08-17 10:49

dim conn,connstr,TimesDB:rsTimesDB="data/data.mdb" ' 连写语句要用：分隔，第一个不妥之处
  On Error Resume Next
  Set conn=server.CreateObject("ADODB.Connection")
  connstr="Provider=Microsoft.Jet.OLEDB.4.0;data source="&server.MapPath(rsTimesDB)   ' 直接引用变量，不需要加引号
  conn.Open connstr

  If Err.number<>0 Then
   response.write"<script>window.alert(""数据库连接错误,"&Err.Description&""")</script>"
   Err.clear
   conn.close
  Set conn=Nothing

response.End
End If

全部回答

1楼网友：举杯邀酒敬孤独
2021-08-17 14:16

dim conn,connstr,//TimesDB,

rsTimesDB="data/data.mdb"connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&TimesDB&"") '有问题

On Error Resume Next Set conn = Server.CreateObject("ADODB.Connection") conn.open connstr If Err Then err.Clear Set Conn = Nothing Response.Write "<center>数据库连接错误，请检查Conn.asp文件连接字符串！</center>" Response.End End If set rs=server.CreateObject("adodb.recordset") 将你以上的代码这样改：

<% On Error Resume Next '错误的话继续执行 Dim conn,connstr,TimesDB '定义变量

TimesDB="/data/data.mdb" '赋路径 connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath(TimesDB) '用OLEDE提供者的方式来链接ACCESS数据库 Set conn=Server.CreateObject("ADODB.Connection") '建立链接 conn.Open connstr '打开链接

If Err Then '如果错误 Err.clear '则清空 Response.Write"数据库连接出现错误！" '显示数据库连接出现错误 Response.End '结束response End If '结束判断 %>

2楼网友：鱼芗
2021-08-17 13:00

定义了几个变量，分别是conn connstr TimesDB rs。 TimesDB这个为数据库路径变量，他的值为data/data.mdb，你检查一下路径是否正确。其它的变量就不用解释了吧。

你唯一可能出错的地方就是数据库路径。再不懂可以加我qq437960263，慢慢指导，嘿！

那你试试修改为：

Dim Conn,ConnStr,rs,TimesDB

TimesDB="data/data.mdb" Set Conn=Server.CreateObject("Adodb.Connection") ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(TimesDB) Conn.open ConnStr If err Then err.clear Set Conn = Nothing Response.Write "数据库连接错误，请检查Conn.asp文件连接字符串!" Response.End End If %>

3楼网友：走死在岁月里
2021-08-17 12:03

connstr="provider=microsoft.jet.4.0;data source="&server.mappath(rstimesdb)

4楼网友：胯下狙击手
2021-08-17 11:22

你的路径有没有问题！

data/data.mdb

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息