如何用ASP返回连接ACCESS数据库是否成功

我想当连接ACCESS数据库不成功时，就执行下面的语句。

if(连接不成功） then
Response.Write("连接不成功")
else
Response.Write("连接成功执行的代码")
end if

上面是我想的，但不知道用什么做。请大家帮忙。

8 个解决方案

#1

dsn="Provider=Microsoft.JET.OLEDB.4.0;" & "Data Source=" & Server.MapPath("data.mdb") & ";User ID=admin;Password=;"
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open dsn

If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
Response.End
End If

#2

If Err Then
err.Clear
其中的Err是什么东西啊？它是一个ASP自带函数？

#3

是自带的对象。
可以直接使用跟response和request对象一样。

#4

On Error Resume Next

If Err Then
    Err.Clear　　　　'清除错误
    Set Conn = Nothing    '释放Conn对象
    Response.Write "连接不成功！"
Else
    Response.Write "连接成功！"
End If

#5

On Error Resume Next '這部分是什麽意思？是在使用Err對像時必須要在前面有的嗎？
各位有沒有相关的这部分资料给发上来看看。谢谢了。

#6

<%
'Serverpath = Server.MapPath
strConnString = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Data/XMdb1.mdb")
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.open strConnString
Set my_rs= Server.CreateObject("ADODB.Recordset")

strSql="select Top 5 * from XM "
strSql=strSql &" order by vProjectNum desc "
'response.write strsql
'response.end
my_rs.open strSql,my_Conn,3,1

If Err Then
  Err.Clear '清除错误
  Set my_Conn=Nothing '释放my_Conn对像
  Response.Write("数据更新中，请稍后再访问，请谅解!")
  Response.End
Else
  Response.Write("连接成功执行的代码")
End If
%>

大家看我就这样引用下Err对像正确吗？我在电脑上调试错误。

#7

是啊，你要忽略错误On Error Resume Next　这一句一定要加上去，看你的代码上好像没加

#8

还有你写的代码也有问题应该在连接后就判断，不要查询数据库后再判断是否连接成功数据库没。
<%
On Error Resume Next
'Serverpath = Server.MapPath
strConnString = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Data/XMdb1.mdb")
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.open strConnString
If Err Then
  Err.Clear '清除错误
  Set my_Conn=Nothing '释放my_Conn对像
  Response.Write("数据更新中，请稍后再访问，请谅解!")
  Response.End
Else
  Response.Write("连接成功执行的代码")
End If

Set my_rs= Server.CreateObject("ADODB.Recordset")

strSql="select Top 5 * from XM "
strSql=strSql &" order by vProjectNum desc "
'response.write strsql
'response.end
my_rs.open strSql,my_Conn,3,1

%>

#1

#2