Я использую следующее из некоторых процедур excel, чтобы установить соединение с нашей базой данных.
Private Const strConn As String = _
"PROVIDER=SQLOLEDB.1 ..."
Sub OpenConnection()
Set cn = CreateObject("ADODB.Connection")
cn.Open strConn
cn.CommandTimeout = 0
Set rs = CreateObject("ADODB.Recordset")
Set rs.ActiveConnection = cn
End Sub
В следующем коде я открываю соединение, используя различные строки SQL.
Я бы хотел проверить, открыт ли rs
, поэтому я знаю, что его нужно закрыть, но следующее не работает. Как я могу изменить условие в следующем для работы?
If (rs.Open = True) Then
rs.Close
End If
Следующие действия, но я бы предпочел не использовать захват ошибок таким образом:
On Error Resume Next
rs.Close