如何判断数据库是否连接成功？

Question

Dim cnn As New ADODB.Connection
Dim cust As New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" +  _
dd+ "\dipanhao2.mdb';Persist Security Info=False"
如何判断cnn是否连接成功？

Answer 1

加一个错误陷阱on error goto err
...
Dim cnn As New ADODB.Connection
Dim cust As New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" +  _
dd+ "\dipanhao2.mdb';Persist Security Info=False"...
err:
select case err.number
case 0
case else
  msgbox err.Description 
  '这里根据错误代码，再判断是否连接成功
end select

Answer 2

Dim cnn As New ADODB.Connection
Dim cust As New ADODB.RecordsetOn Error Goto ConnError
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" +  _
dd+ "\dipanhao2.mdb';Persist Security Info=False"
..................
ConnError:
  MsgBox "数据库连接失败!" & vbCrLf 
      _ & Err.Description

Answer 3

咦!Sorry, 不好意思下划线输到底下来了.

Answer 4

if cnn.state=1 then
    debug.print "Sucess!"
end f

Answer 5

这个是我编的用来判断 ADO或是DAO是否联结成功的！VB6+Win2000没问题！Function Check_DB_Opened(ByVal s_db) As Boolean   '借助出错事件检查数据库是否打开
    
  On Error GoTo err_checkdb
  
    If Not IsNull(s_db.Version) Then
        Check_DB_Opened = True
     End If
    Exit Function
    
err_checkdb:
    If Err.Number = 424 Or Err.Number = 91 Then
        Err.Clear
        Check_DB_Opened = False
     End If
    
End Function

Answer 6

顺便问一下，err.number = 424 和 err.number = 91 分别代表什么意思？？

Answer 7

on error resume nextif cnn.state=AdStateOpen then msgbox "连接成功"