ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ListBox не читает больше 65534 строк?
10 сообщений из 10, страница 1 из 1
ListBox не читает больше 65534 строк?
    #39197613
Shart_Sonia
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shart_Sonia
Гость
Access 2007, Есть форма для выборки данных по людям с определенными критериями. Выбираю в List, хочу вывести количество отобранных записей. Если отобрано немного записей - то все корректно, если число большое - выводится всегда 65534. Для подсчета количества записей использую сам List:
Код: vbnet
1.
2.
3.
 qsql = "Select " & Whatstr & " From PERSONS Left Join DDPROF_OSM on Persons.P_Num=DDProf_OSM.P_num where " & wherestr & " group by " & GroupByStr & " order by [SNAME], [FI], [SI]"
    frm.List1.RowSource = qsql
    frm.Kol_Label.Caption = "Количество отобрано: " & Format(frm.List1.ListCount - 1)


Пробовала делать через отдельный Recordset:
Код: vbnet
1.
2.
recordset.MoveLast
recordset.RecordCount


работает корректно, но в два раза дольше (один запрос грузится в List, второй отдельный считает кол-во записей). Очень не хочется лишний раз нагружать базу. Можно ли одним запросом и данные в лист вывести и количество адекватное увидеть?
...
Рейтинг: 0 / 0
22.03.2016, 08:21
| Ответить | Цитировать | Написать  
ListBox не читает больше 65534 строк?
    #39197623
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
Shart_Sonia,

Me!Kol_Label.Caption = "Количество отобрано: " & Me!List1.Recordset.RecordCount
...
Рейтинг: 0 / 0
22.03.2016, 08:37
| Ответить | Цитировать | Написать  
ListBox не читает больше 65534 строк?
    #39197626
\\\\
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
\\\\
Гость
Shart_SoniaМожно ли одним запросом и данные в лист вывести и количество адекватное увидеть? Используй свойство Recordset ListBox . Открыл набор записей, посмотрел количество записей и присвоил списку.

Зачем такое количество (65534 и больше) записей пользователю? Тут только листать устанешь!
...
Рейтинг: 0 / 0
22.03.2016, 08:43
| Ответить | Цитировать | Написать  
ListBox не читает больше 65534 строк?
    #39197633
Shart_Sonia
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shart_Sonia
Гость
vmag,
заменила на
Код: vbnet
1.
2.
3.
frm.List1.RowSource = qsql
    frm.List1.Recordset.MoveLast
    frm.Kol_Label.Caption = "Количество отобрано: " & Format(frm.List1.Recordset.RecordCount)


Один раз отрабатывает правильно, при попытке второй раз отфильтровать записи выдает Недопустимая операция... на строке
Код: vbnet
1.
 frm.Kol_Label.Caption = "Количество отобрано: " & Format(frm.List1.Recordset.RecordCount)

что-то сбрасывается что ли при переприсвоении свойства RowSource...пока не могу понять...
...
Рейтинг: 0 / 0
22.03.2016, 08:56
| Ответить | Цитировать | Написать  
ListBox не читает больше 65534 строк?
    #39197634
Shart_Sonia
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shart_Sonia
Гость
Теперь "Указан недопустимый объект или объект более не задан"
на строке
Код: vbnet
1.
frm.List1.Recordset.MoveLast
...
Рейтинг: 0 / 0
22.03.2016, 09:01
| Ответить | Цитировать | Написать  
ListBox не читает больше 65534 строк?
    #39197636
\\\\
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
\\\\
Гость
Shart_Soniavmag,
заменила на
Код: vbnet
1.
2.
3.
frm.List1.RowSource = qsql
    frm.List1.Recordset.MoveLast
    frm.Kol_Label.Caption = "Количество отобрано: " & Format(frm.List1.Recordset.RecordCount)


Один раз отрабатывает правильно, при попытке второй раз отфильтровать записи выдает Недопустимая операция... на строке
Код: vbnet
1.
 frm.Kol_Label.Caption = "Количество отобрано: " & Format(frm.List1.Recordset.RecordCount)

что-то сбрасывается что ли при переприсвоении свойства RowSource...пока не могу понять...Смысл в этих телодвижениях? При количестве записей больше 65534 будет ошибка. Узнавай потом количество записей - не узнавай, какая разница...
...
Рейтинг: 0 / 0
22.03.2016, 09:05
| Ответить | Цитировать | Написать  
ListBox не читает больше 65534 строк?
    #39197643
Shart_Sonia
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shart_Sonia
Гость
\\\\,
Ошибки нет при первой фильтрации, даже на большом числе записей. Ошибка теперь появляется на второй фильтрации (после переприсвоения RowSource) и не зависит от количества записей.
...
Рейтинг: 0 / 0
22.03.2016, 09:09
| Ответить | Цитировать | Написать  
ListBox не читает больше 65534 строк?
    #39197644
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
Shart_Sonia,

frm.List1.RowSource = qsql
frm.List1.Requery
frm.Kol_Label.Caption = "Количество отобрано: " & Format(frm.List1.Recordset.RecordCount)
...
Рейтинг: 0 / 0
22.03.2016, 09:09
| Ответить | Цитировать | Написать  
ListBox не читает больше 65534 строк?
    #39197647
Shart_Sonia
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shart_Sonia
Гость
vmag, я тоже про это подумала, но не помогло почему-то
...
Рейтинг: 0 / 0
22.03.2016, 09:13
| Ответить | Цитировать | Написать  
ListBox не читает больше 65534 строк?
    #39197659
Shart_Sonia
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shart_Sonia
Гость
vmag,
сделала через присвоение отдельного Recordset и убрала вообще RowSource:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Public RecTest As Recordset
Set RecTest = Nothing
qsql = "Select " & Whatstr & " From PERSONS Left Join DDPROF_OSM on Persons.P_Num=DDProf_OSM.P_num where " & wherestr & " group by " & GroupByStr & " order by [SNAME], [FI], [SI]"
Set RecTest = CurrentDb.OpenRecordset(qsql)
Set frm.List1.Recordset = RecTest
frm.List1.Requery
frm.List1.Recordset.MoveLast
frm.Kol_Label.Caption = "Количество отобрано: " & Format(frm.List1.Recordset.RecordCount)



Все заработала как надо. Теперь бы еще понять почему предыдущий вариант не работал... для очистки совести.
...
Рейтинг: 0 / 0
22.03.2016, 09:26
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ListBox не читает больше 65534 строк?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39197633&tid=1613790]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 58ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 16ms
total:  173ms
созд. / загр.: 173ms
x
x
Закрыть


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