vb sql 怎么样检测连接失败

来源：百度知道 编辑：UC知道 时间：2024/05/31 20:33:22
我想在连接数据库失败时，有个提示，而不是系统的报错
On Error Resume Next
conn.Open "Provider=SQLOLEDB;Data Source=" + Text1.Text + ";UID=" + Text2.Text + ";PWD=" + Text3.Text + ";initial catalog=master"

If Val(conn) <> 0 Then
MsgBox "连接失败"
Err.Raise 1001, , "数据库连接失败"
Exit Sub
End If
______
我这个哪错了呢？
____________
谢谢我找到解决办法了

sub conn()
on error goto CnnErr
连接.open 连接串
......
......
on error goto 0
exit sub
CnnErr:
msgbox "连接失败"
end sub

如果要用if ... end if就需要用:
on error resume next
conn.Open

If Val(conn) <> 0 Then
MsgBox "连接失败"
Err.Raise 1001, , "数据库连接失败"
Exit Sub
End If
on error goto 0

If Not ***Conn Then Err.Raise 1001, , "数据库连接失败"

***Conn 你的连接字符串变量