请问如何具体捕捉远程连接SQL 2000的错误。现在出问题了
On Error Resume NextstrConnect = "Persist Security Info=True"
strConnect = strConnect & ";Data Source=" & j.JieMi(strHost)
strConnect = strConnect & ";User ID=" & j.JieMi(strDbUser)
strConnect = strConnect & ";Password=" & j.JieMi(strDbPass)
strConnect = strConnect & ";Initial Catalog=Psyp"
With Deyp.cnYp
If .State = adStateOpen Then .Close
.Provider = "SQLOLEDB.1;Network=DBMSSOCN"
.ConnectionString = strConnect
.ConnectionTimeout = 30
.Open
End With
If Err <> 0 Then
FrmUnLink.Show vbModal
Err.Clear
end
Else
End If
On Error GoTo 0
这是连接代码
是通过把主机IP.UID.PWD写在外部配置文件里面的.当网络断开或者以为其他原因无法连接服务器时.返回错误.请问该如何捕捉.
现在的判断方法是err<>0则判断连接失败。弹出连接失败窗体出来。可是明明连接成功了还是弹出连接失败窗体出来呢。如果屏蔽掉FrmUnLink.Show vbModal这句又能正常连接. --------------------编程问答-------------------- 还有:如果.Provider = "SQLOLEDB.1;Network=DBMSSOCN"
这里改为.Provider = "SQLOLEDB.1"的话.就可以正常连接.err=0的
;Network=DBMSSOCN的意思是默认用TCP/IP协议.1433端口连接数据库的.而不是什么命名管道 --------------------编程问答-------------------- 刚开始写程序时,不要用
On Error Resume Next
只有程序错误排除完后再用你才能知道为什么出错啊
补充:VB , 数据库(包含打印,安装,报表)