Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Recrdset ADO шалит / 5 сообщений из 5, страница 1 из 1
30.06.2006, 12:55
    #33824046
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recrdset ADO шалит
Подскажите пожалуйста почему не открывается 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
30.06.2006, 13:03
    #33824077
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recrdset ADO шалит
record.Fields("name_rus").Value


перед меткой exit sub или exit function
...
Рейтинг: 0 / 0
30.06.2006, 13:09
    #33824105
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recrdset ADO шалит
смысл этого 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
30.06.2006, 15:50
    #33824667
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recrdset ADO шалит
если "а" не найдено надо перейти к следующему "а"
...
Рейтинг: 0 / 0
30.06.2006, 16:17
    #33824758
Думающий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Recrdset ADO шалит
Код: 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
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Recrdset ADO шалит / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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