ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Рекордсет открывается пустой, хотя есть записи в таблице
13 сообщений из 13, страница 1 из 1
Рекордсет открывается пустой, хотя есть записи в таблице
    #39579798
IFK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IFK
Гость
Уважаемый форум,

Не могу понять, почему рекордсет открывается пустым, хотя в таблице 100% есть записи:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim db As New ADODB.Connection, rs As New ADODB.Recordset
Dim case_range_submit As String

Set db = CurrentProject.Connection
rs.Open ("SELECT Case_from, Case_to From Case_ranges ORDER BY Case_from"), db, adOpenDynamic, adLockOptimistic
If rs.RecordCount > 0 Then
    rs.MoveFirst
    Do Until rs.EOF
        case_range_submit = rs.Fields("Case_from").Value & "-" & rs.Fields("Case_to").Value & ","
        rs.MoveNext
    Loop
    case_range_submit = Left(case_range_submit, Len(case_range_submit) - 1)
End If
rs.Close

Debug.Print case_range_submit



При пошаговом выполнении rs.RecordCount =-1, т.е. пустой рекордсет. Не могу понять, почему?
...
Рейтинг: 0 / 0
05.01.2018, 17:12
| Ответить | Цитировать | Написать  
Рекордсет открывается пустой, хотя есть записи в таблице
    #39579806
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
IFK,
А Вы справку про RecordCount читали? Там написано что значение будет верным только после перемещения на последнюю запись. Рекомендую пользоваться конструкцией:
Код: vbnet
1.
2.
3.
4.
Do Until rs.EOF
   'Ваши действия
    rs.MoveNext
Loop
...
Рейтинг: 0 / 0
05.01.2018, 17:33
| Ответить | Цитировать | Написать  
Рекордсет открывается пустой, хотя есть записи в таблице
    #39579807
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
sdku,
Знаю, читал, но уже давно делаю именно так, по чему уже не помню, но чего то по иному глючило и не получалось, теперь при создании форм беру за основу бланк формы и в ней создаю иное.
А в чём собственно проблемма, разьясните, а то я весь такой несовершенный ни как не пойму сути вопроса.
...
Рейтинг: 0 / 0
05.01.2018, 17:40
| Ответить | Цитировать | Написать  
Рекордсет открывается пустой, хотя есть записи в таблице
    #39579808
IFK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IFK
Гость
sdkuIFK,
А Вы справку про RecordCount читали? Там написано что значение будет верным только после перемещения на последнюю запись. Рекомендую пользоваться конструкцией:
Код: vbnet
1.
2.
3.
4.
Do Until rs.EOF
   'Ваши действия
    rs.MoveNext
Loop



Я убрал проверку по RecordCount - все заработало, но остался вопрос, почему даже после принудительного rs.MoveFirst и rs.MoveLast, RecordCount все равно показывает -1?
...
Рейтинг: 0 / 0
05.01.2018, 17:40
| Ответить | Цитировать | Написать  
Рекордсет открывается пустой, хотя есть записи в таблице
    #39579810
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
вдогонку:
зачем проверять IFом-если в rs записей нет цикл не выполняется
...
Рейтинг: 0 / 0
05.01.2018, 17:44
| Ответить | Цитировать | Написать  
Рекордсет открывается пустой, хотя есть записи в таблице
    #39579811
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
IFK... но остался вопрос, почему даже после принудительного rs.MoveFirst и rs.MoveLast, RecordCount все равно показывает -1?...
Пальцем покажите в ГДЕ , а то сёдня как то не шибко соображается, да еще и хрустальный шар в ремонте.
...
Рейтинг: 0 / 0
05.01.2018, 17:44
| Ответить | Цитировать | Написать  
Рекордсет открывается пустой, хотя есть записи в таблице
    #39579813
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
Блин, это я не в ту тему случайно попал.
А то думаю, по чему я ни чего не пойму.
Если возможно, то прошу модераторов поудалять мои сообщения.
...
Рейтинг: 0 / 0
05.01.2018, 17:46
| Ответить | Цитировать | Написать  
Рекордсет открывается пустой, хотя есть записи в таблице
    #39579815
adOpenDynamic,
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
adOpenDynamic,
Гость
IFKЯ убрал проверку по RecordCount - все заработало, но остался вопрос, почему даже после принудительного rs.MoveFirst и rs.MoveLast, RecordCount все равно показывает -1?Задумка у разработчиков АДО была такая, что динам.курсор будет (будучи уже открытым) "дополняться" / "избавляться" от записей которые добавили / удалили в других сессиях.
А поддерживать значение к-ва записей в акктуальном значении посчитали, при таком подходе, излишним.

Выбери статик курсор, наверняка начальный код окажеться робочим.
...
Рейтинг: 0 / 0
05.01.2018, 17:47
| Ответить | Цитировать | Написать  
Рекордсет открывается пустой, хотя есть записи в таблице
    #39579818
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
а так:
Код: vbnet
1.
set rs = db.openRecordset(....)
...
Рейтинг: 0 / 0
05.01.2018, 17:49
| Ответить | Цитировать | Написать  
Рекордсет открывается пустой, хотя есть записи в таблице
    #39579819
IFK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IFK
Гость
sdku,

Правильно, но каким образом узнать, что рекордсет пустой?
Попробовал
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Set db = CurrentProject.Connection
rs.Open ("SELECT * FROM Case_ranges ORDER BY Case_from"), db, adOpenDynamic, adLockOptimistic
If rs.EOF = False Then
    rs.MoveFirst
    Do Until rs.EOF
        case_range_submit = case_range_submit & rs.Fields("Case_from").Value & "-" & rs.Fields("Case_to").Value & ", "
        rs.MoveNext
    Loop
    case_range_submit = Left(case_range_submit, Len(case_range_submit) - 2)
End If
rs.Close



Все отработало штатно. Осадочек все равно остался: как определить размер рекордсета, если RecordCount в Access 2013 работает через ...опу? В предыдущих версиях Акссесса все было ок - всегда так делал, проблем не возникало.

Для Лапух:

Код: vbnet
1.
2.
3.
4.
5.
Set db = CurrentProject.Connection
rs.Open ("SELECT * FROM Case_ranges ORDER BY Case_from"), db, adOpenDynamic, adLockOptimistic
rs.MoveFirst
rs.Movelast
===> rs.Recordcount =-1
...
Рейтинг: 0 / 0
05.01.2018, 17:51
| Ответить | Цитировать | Написать  
Рекордсет открывается пустой, хотя есть записи в таблице
    #39579820
IFK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IFK
Гость
sdku,

А так нет опции db.OpenRecordset, есть только db.Open
...
Рейтинг: 0 / 0
05.01.2018, 17:53
| Ответить | Цитировать | Написать  
Рекордсет открывается пустой, хотя есть записи в таблице
    #39579821
IFK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IFK
Гость
adOpenDynamic,IFKЯ убрал проверку по RecordCount - все заработало, но остался вопрос, почему даже после принудительного rs.MoveFirst и rs.MoveLast, RecordCount все равно показывает -1?Задумка у разработчиков АДО была такая, что динам.курсор будет (будучи уже открытым) "дополняться" / "избавляться" от записей которые добавили / удалили в других сессиях.
А поддерживать значение к-ва записей в акктуальном значении посчитали, при таком подходе, излишним.

Выбери статик курсор, наверняка начальный код окажеться робочим.

Точно, сработало. :) Спасибо!
...
Рейтинг: 0 / 0
05.01.2018, 17:54
| Ответить | Цитировать | Написать  
Рекордсет открывается пустой, хотя есть записи в таблице
    #39579824
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
прошу пардону перепутал с DAO
...
Рейтинг: 0 / 0
05.01.2018, 17:57
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Рекордсет открывается пустой, хотя есть записи в таблице
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39579824&tid=1611822]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 52ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 268ms
total:  418ms
созд. / загр.: 418ms
x
x
Закрыть


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