ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Поиск в рекордсете по Seek от DAO
10 сообщений из 10, страница 1 из 1
Поиск в рекордсете по Seek от DAO
    #39515415
DAO Seek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DAO Seek
Гость
Делаю поиск сиком в рекордсете. Проблема в поиске всех записей, удовлетворяющих условию. Не получается. Находит только первую из множества возможных в бесконечном цикле. Подскажите, что я делаю не так
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
        Do While True
            rst.Seek ">=", "значение"
            If Not rst.NoMatch Then
                If rst!oldid <= g1 Then
                    'некоторые действия
                    k = k + 1
                End If
            Else
                Exit Do
            End If
         Loop
...
Рейтинг: 0 / 0
05.09.2017, 02:05
| Ответить | Цитировать | Написать  
Поиск в рекордсете по Seek от DAO
    #39515424
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
Так Сик только первую запись находит. Пользуйтесь FindFirst-FindNext
...
Рейтинг: 0 / 0
05.09.2017, 05:46
| Ответить | Цитировать | Написать  
Поиск в рекордсете по Seek от DAO
    #39515536
DAO Seek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DAO Seek
Гость
MrShinТак Сик только первую запись находит. Пользуйтесь FindFirst-FindNextДык рад бы. Но таблица уж больно огромная. Запрос сложностью N*N может идти несколько суток. Сик спас бы. Но вот незадача...

Впрочем, все равно спасибо. Ваш ответ натолкнул на мысль о временной таблице с правильной сортировкой, где сик точно поможет. Наверное (???)
...
Рейтинг: 0 / 0
05.09.2017, 10:38
| Ответить | Цитировать | Написать  
Поиск в рекордсете по Seek от DAO
    #39515587
Анатолий ( Киев )
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий ( Киев )
Гость
quot DAO Seek, если нужно получить все записи для конкретного значения, то, может, лучше применить фильтр (это лучше делать в ADODB.Recordset-е) или открыть Recordset с отбором по конкретному значению и с минимальным количеством необходимых полей. Отбор по индексированному полю выполняется быстро.
Если значений несколько, то эти действия выполнять в цикле для каждого значения.
...
Рейтинг: 0 / 0
05.09.2017, 12:04
| Ответить | Цитировать | Написать  
Поиск в рекордсете по Seek от DAO
    #39515620
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
DAO Seekв бесконечном цикле
не вижу, где вы выходите из цикла, если запись не найдена
...
Рейтинг: 0 / 0
05.09.2017, 12:58
| Ответить | Цитировать | Написать  
Поиск в рекордсете по Seek от DAO
    #39515645
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
DAO Seek,
а зачем вообще Seek?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Set rs = CurrentDb.OpenRecordset("SELECT ..FROM..WHERE..")
Do Until rs.EOF
        If rs!ctl<=5 then
               rs.Edit
                   'действия
              rs.Update
        end if
rs.MoveNext
Loop
...
Рейтинг: 0 / 0
05.09.2017, 13:24
| Ответить | Цитировать | Написать  
Поиск в рекордсете по Seek от DAO
    #39515885
DAO Seek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DAO Seek
Гость
Анатолий ( Киев )если нужно получить все записи для конкретного значения, то, может, лучше применить фильтр
Замучаюсь открывать. Таблица порядка 10 миллионов записей. Для каждой записи надо найти совмещение по интервалам (ValueStart, ValueFinis) с другими записями. Простой запрос типа считает невыразимо долго, дождаться завершения так и не удалось.
Код: sql
1.
2.
3.
4.
SELECT t1.id, t1.ValueStart, t1.ValueFinis, t2.ValueStart, t2.ValueFinis
FROM tbl AS t1, tbl AS t2
WHERE t1.ValueStart<t2.ValueFinis and t1.ValueFinis>=t2.ValueStart and t1.id<t2.id
ORDER BY t1.ValueStart


Использовать Find, FindFirst, FindNext тоже очень долго
Поля конечно индексированные.
...
Рейтинг: 0 / 0
05.09.2017, 16:39
| Ответить | Цитировать | Написать  
Поиск в рекордсете по Seek от DAO
    #39515929
а так?
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
а так?
Гость
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
Option Compare Database
Option Explicit

't - таблица c полями id (счетчик) и n (лонг, с индексом idx)
Sub doit()
    Dim r As DAO.Recordset
    Dim cri&
    
    cri = 3
    Set r = CurrentDb.OpenRecordset("t")
    r.Index = "idx"
    Do
        r.seek "=", cri
        If r.NoMatch Then
            Exit Do
        Else
            Debug.Print r!id, r!n
            r.MoveNext
            Do While r!n = cri
                Debug.Print r!id, r!n
                r.MoveNext
            Loop
            Exit Do
        End If
    Loop
    
    r.Close: Set r = Nothing
End Sub


Код: vbnet
1.
2.
 3             3 
 12            3
...
Рейтинг: 0 / 0
05.09.2017, 17:42
| Ответить | Цитировать | Написать  
Поиск в рекордсете по Seek от DAO
    #39516022
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
DAO Seek,
проверил на 2000000 записей(простенькая таблица из 3 полей)отрабатывает секунд за 35-40 (точно не измерял)
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub my()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tbl")
Do Until rs.EOF
rs.Edit
    If rs!ctl1 Mod 2 = 0 Then
        rs!ctl2 = "чет"
    Else
        rs!ctl2 = "нечет"
    End If
rs.Update
rs.MoveNext
Loop
End Sub
...
Рейтинг: 0 / 0
05.09.2017, 21:29
| Ответить | Цитировать | Написать  
Поиск в рекордсете по Seek от DAO
    #39516838
Nebo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nebo
Участник
DAO SeekАнатолий ( Киев )если нужно получить все записи для конкретного значения, то, может, лучше применить фильтр
Замучаюсь открывать. Таблица порядка 10 миллионов записей. Для каждой записи надо найти совмещение по интервалам (ValueStart, ValueFinis) с другими записями. Простой запрос типа считает невыразимо долго, дождаться завершения так и не удалось.
Код: sql
1.
2.
3.
4.
SELECT t1.id, t1.ValueStart, t1.ValueFinis, t2.ValueStart, t2.ValueFinis
FROM tbl AS t1, tbl AS t2
WHERE t1.ValueStart<t2.ValueFinis and t1.ValueFinis>=t2.ValueStart and t1.id<t2.id
ORDER BY t1.ValueStart


Использовать Find, FindFirst, FindNext тоже очень долго
Поля конечно индексированные.

Такие вещи, наверное, лучше делать на языке Си.
Загружать таблицу в структуру и уже дальше работать средствами Си или С++
...
Рейтинг: 0 / 0
06.09.2017, 23:40
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Поиск в рекордсете по Seek от DAO
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39515645&tid=1612116]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 41ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 16ms
total:  151ms
созд. / загр.: 151ms
x
x
Закрыть


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