如何判断ADODB.Connection是否close?

如何判断ADODB.Connection是否close?

解决方案 »

  1.   

    Dim con As New ADODB.Connection
     If con.State = 0 Then '关闭
      

  2.   

    用 状态 State 属性
      

  3.   

    不行吧
    我试了,出现错误(声明的字符与声明的数据类型不符合)在STATE处
      

  4.   

    Private Sub Command1_Click()
    Dim con As New ADODB.Connection
    con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=192.168.0.1"
     If con.State = 0 Then
        MsgBox "已关闭"
     Else
        MsgBox "正打开"
     End If
     '关闭End Sub'注意
    '引用ADO 2.6
    '我不知道你为什么不行,上面的代码已经过调试
      

  5.   

    Private Sub Command1_Click()
    Dim ADOcon As New ADODB.Connection
    Dim strAdoCon="providers=masdsql.1;dsn=mmis;uid=sa;pwd=;database=master"con.Open strAdoCon
     If con.State = 0 Then
        MsgBox "已关闭"
     Else
        MsgBox "正打开"
     End If
     '关闭End Sub
      

  6.   

    源水的很对，楼主出错不会是先set con=nothing了吧
      

  7.   

    If con.State = 0 Then '关闭