powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Recrdset ADO шалит
5 сообщений из 5, страница 1 из 1
Recrdset ADO шалит
    #33824046
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подскажите пожалуйста почему не открывается recordset после перехода по ошибке:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
For zay =  1  To kolvo_zay
On Error GoTo errDesc
a = df(zay,  1 )
record.Open "select * from allmt where request_id='" & a & "'"
xxx=Trim(record.Fields("name_rus"))
.
.
.
dalee:
record.Close
Next zay

errDesc:
GoTo dalee
...
Рейтинг: 0 / 0
Recrdset ADO шалит
    #33824077
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
record.Fields("name_rus").Value


перед меткой exit sub или exit function
...
Рейтинг: 0 / 0
Recrdset ADO шалит
    #33824105
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
смысл этого dalee:?


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
For zay =  1  To kolvo_zay
On Error GoTo errDesc
a = df(zay,  1 )
record.Open "select * from allmt where request_id='" & a & "'"
xxx=Trim(record.Fields("name_rus"))
.
.
.
record.Close
Next zay



Exit sub
errDesc:
record.Close
если ошибка закрывает

или

If record.State=adStateOpen Then record.Close
можно ставить в начале открытия рекодсета
какая именно ошибка должна игнорироваться для перехода метки
...
Рейтинг: 0 / 0
Recrdset ADO шалит
    #33824667
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
если "а" не найдено надо перейти к следующему "а"
...
Рейтинг: 0 / 0
Recrdset ADO шалит
    #33824758
Думающий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
For zay =  1  To kolvo_zay
a = df(zay,  1 )
record.Open "select * from allmt where request_id='" & a & "'"
if record.eof=false then 
   xxx=Trim(record.Fields("name_rus"))
end if

record.close
next zay
Может так сойдет?
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Recrdset ADO шалит
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]