如何检查adodb.connection的连接状态

S_OK == _m_opConn->Open(_bstr_t(lpczConn), BARE, BARE, lOption)

就表明连接上了。

------------------------------- 补充1

_m_opConn->GetState()

AdStateClosed 默认，指示对象是关闭的。

AdStateOpen 指示对象是打开的。

AdStateConnecting 指示 Recordset 对象正在连接。

AdStateExecuting 指示 Recordset 对象正在执行命令。

AdStateFetching 指示 Recordset 对象的行正在被读取。

Public dbConn As ADODB.Connection '定义一个ADODB连接

Public stuRs As ADODB.Recordset '定义Recordset对象

Public SqlFindStr As String

Public Function Conn2DB() As Boolean

'公共Access数据库连函数

Dim connStr As String

Dim dbName As String

dbName = App.Path &"\" &"StudentDB.mdb" '返回程序所在路径

' Access连接字符串

conStr = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &dbName

Set dbConn = New ADODB.Connection '定义一个ADODB连接对象

If dbConn.State <>adStateOpen Then '判断ADODB连接是否打开

dbConn.Open conStr '如果不是打开状态 就打开连接

End If

Conn2DB = True

End Function

Public Function ExcSQL(ByVal sql As String) As ADODB.Recordset

Dim rst As ADODB.Recordset

'执行一条SQL查询,得到一个记录集

Set rst = New ADODB.Recordset

rst.Open Trim$(sql), dbConn, adOpenKeyset, adLockOptimistic '得到记录

Set ExcSQL = rst

End Function

---