当前位置:编程学习 > VB >>

请问如何具体捕捉远程连接SQL 2000的错误。现在出问题了

On Error Resume Next
        strConnect = "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 ,  数据库(包含打印,安装,报表)
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,