欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

vb判断数据库连接下否,如果连接失败,还没有判断就已经提示出错了,怎么办

更新时间: 2014-05-14 08:09:56 责任编辑: Author_N2

 

vb判断数据库连接上否,如果连接失败,还没有判断就已经提示出错了,怎么处理啊
Set conn1 = New ADODB.Connection
conn1.ConnectionString = "driver={SQL Server};server=" & S(0) & ";uid=" & S(1) & ";pwd=" & S(2) & ";database=master"
conn1.Open
If conn1.State = 0 Then
还没有到if,由于连接本来就是失败的,到conn1.open时就提示报错了,这个怎么处理啊
--参考方法--
'使用on error goto错误跳转
private sub command1_click()
on error goto ErrHandle:
    Set conn1 = New ADODB.Connection
    conn1.ConnectionString = "driver={SQL Server};server=" & S(0) & ";uid=" & S(1) & ";pwd=" & S(2) & ";database=master"
    conn1.Open
    If conn1.State = 0 Then
    '...
    '...
    exit sub
'错误处理
ErrHandle:
    msgbox "操作失败,错误原因为:" & err.description,48,"提示"
    exit sub
end sub

--参考方法--
引用:
VB code
'使用on error goto错误跳转
private sub command1_click()
on error goto ErrHandle:
    Set conn1 = New ADODB.Connection
    conn1.ConnectionString = "driver={SQL Server};server=" & S(0) &……

+1
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-05-14 08:09:56
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/217120/
本文WWW.DOC100.NET DOC100.NET版权所有。