请教：如何判断与数据库是连接状态还是断开？

Question

Dim rs As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim strcnn As Stringif  **********(连接状态)  then 
    cnn.close
end if

Answer 1

首先要说明的一点就是 通过 cnn.State 这个属性来判断 连接对象的 状态时，有时候不准确。。我通常是通过以下的方法来判断 连接状态的。public function ConnState(conn as adodb.connection ) as Booleam
       on error goto err1
       conn.execute "select 1",,adcmdtext  '仅限 MSSQL
       ConnState = True
       Exit Function
err1:
       err.clear 
       ConnState = False
end function