如何判断ADODB.Connection是否close?

[chenkangli]

如何判断ADODB.Connection是否close?

[palmkey]

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

[chanet]

用 状态 State 属性

[chenkangli]

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

[palmkey]

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
'我不知道你为什么不行,上面的代码已经过调试

[hnhl]

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

[suntt]

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

[j4sxw]

If con.State = 0 Then '关闭