| |
|
|
| | имеется код
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
|
| |
| |
| |
| |
|
|
| | Ловить ошибку по номеру
Хотя Kot_k_k и говорит что это парковаться по звуку
Но я бы сделал так | |
| |
| |
| |
|
|
| | привет!!!  | |
| |
| |
| |
|
|
| | А попробуйте вот так
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
If rst.RecordCount = 0 Then
Call MsgBox("Отсутствуют данные в указаном файле", vbCritical)
rst.Close
Set rst = Nothing
Exit Function
End If
Else
Call MsgBox("Отсутствует таблица базы CLIENT_CARDS_TBL", vbCritical)
Exit Function
End If
|
Ну и бестолковый, Вы - час!!!!!!!! | |
| |
| |
| |
|
|
| | хм ... я бы спросил таблицу MSysObjects друго базы .... ну само сабой ИМХО .... | |
| |
| |
| |
|
|
| |
rst.Close
Set rst = Nothing
|
это как вылезать поссать из душевой кабинки - суперинтилигентность.
п.с. есть сво-ва EOF и BOF | |
| |
| |
|
|
| |
|
|
| | как там рекурсия?
я только не понял зачем закывать переменную, тем более если это небольшая функция, оно само сбросит все переменные при выходе из ф-ции | |
| |
| |
| |
 26 Кб. |
|
| | Рекурсия живёт своей повторяющейся жизнью...
======================================================
Не знаю как само - но я взял за правило - в начале объявил - в конце очистил. | |
| |
| |
| |
|
|
| | В хелпе так:
If Not rs Is Nothing Then
If rs.State = adStateOpen Then rs.Close
Set rs = Nothing
End If
|
| |
| |
| |
| |
|
|
| | Спасибо !!!!!!!!!
- точно !!!!
| |
| |
| |
