Dim rst As ADODB.Recordset
Set rst = New Recordset
' Проверка наличия таблицы в другой базе
If FUN_IS_TABLE_IN_BASA("CLIENT_CARDS_TBL", GLB_DATA_DB_CONNECTION) = True Then
rst.Open " SELECT CLIENT_CARDS_TBL.*" _
& " From CLIENT_CARDS_TBL", GLB_DATA_DB_CONNECTION, adOpenKeyset, adLockOptimistic
Else
Call MsgBox("Отсутствует таблица базы CLIENT_CARDS_TBL", vbCritical)
rst.Close
Set rst = Nothing
Exit Function
End If
If rst.RecordCount = 0 Then
Call MsgBox("Отсутствуют данные в указаном файле", vbCritical)
rst.Close
Set rst = Nothing
Exit Function
End If
КАК БЫТЬ ВОТ С ЭТИМ МЕСТОМ - порою и закрывать нечего - тада ошибка
rst.Close
Set rst = Nothing
|