ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA - Сравнить RecordSets
13 сообщений из 63, страница 3 из 3
  3  все
VBA - Сравнить RecordSets
    #38262616
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
ShizukuShocker.Proпропущено...
вообще, при открытии рекордсета он и так стоит на первой записи... если только ничего с ним не делали до этого.
Выгружалось на лист, и еще сохранялось в переменные RecordCount.Не обязательно даже сравнивать формулами - тогда эти листы и есть две готовые "таблицы", и нужные данные вы можете получить своим одним SQL-запросом...
...
Рейтинг: 0 / 0
17.05.2013, 19:03
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38262627
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
Shocker.Pro, kiv-1980

Нашел ошибку. Оба примера я трассирую через Debug.Print - как у kiv-1980. Оказывается, лог в окне Immediate обрезает всё, что больше 200 строк, т.е. начала я просто не видел.

Есть возможность убрать ограничение Debug.Print в 200 строк?
...
Рейтинг: 0 / 0
17.05.2013, 19:09
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38262686
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
Внимание, барабанная дробь! Первый рабочий вариант:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
'Встаем на первую запись
rs.MoveFirst
rs2.MoveFirst
'Счетчик найденных
ass = 0
'Цикл поиска
Do Until (rs2.EOF)
    Find_result = False
    rs.MoveFirst
    Do Until (rs.EOF)
        If rs2("n_ls") = rs("n_ls") Then
           Find_result = True
        End If
        rs.MoveNext
    Loop
 If Find_result = False Then
   Debug.Print "Найдено: " & rs2("n_ls")
   ass = ass + 1
 End If
 rs2.MoveNext
Loop
Debug.Print "Всего RS: " & ass - 1



Изменения:
Переписал на поиск в rs2, поиск в rs мне не нужен.
Во вложенном цикле не хватало возврата на первую запись для rs.

Теперь можно пробовать переделывать другие варианты, и оптимизировать по скорости. Перебор по циклу заметно притормаживает...
...
Рейтинг: 0 / 0
17.05.2013, 19:43
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38262691
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Вместо внутреннего цикла:
Код: vbnet
1.
2.
rs.Find "n_ls=" & rs2("n_ls")
Find_result = Not rs.EOF
...
Рейтинг: 0 / 0
17.05.2013, 19:52
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38262713
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
AntonariyВместо внутреннего цикла:
Код: vbnet
1.
2.
rs.Find "n_ls=" & rs2("n_ls")
Find_result = Not rs.EOF



Не пошло. В переменной ass насчитало всё подряд, а не найденные
...
Рейтинг: 0 / 0
17.05.2013, 20:10
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38262727
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
ShizukuAntonariyВместо внутреннего цикла:
Код: vbnet
1.
2.
rs.Find "n_ls=" & rs2("n_ls")
Find_result = Not rs.EOF



Не пошло. В переменной ass насчитало всё подряд, а не найденныеПолностью код покажите.
...
Рейтинг: 0 / 0
17.05.2013, 20:26
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38262740
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
Antonariy,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
'Встаем на первую запись
rs.MoveFirst
rs2.MoveFirst
'Счетчик найденных
ass = 0
'Цикл поиска
Do Until (rs2.EOF)
    Find_result = False
    rs.MoveFirst
    rs.Find "n_ls=" & rs2("n_ls")
    Find_result = Not rs.EOF
 If Find_result = False Then
   Debug.Print "Найдено: " & rs2("n_ls")
   ass = ass + 1
 End If
 rs2.MoveNext
Loop
Debug.Print "Всего RS: " & ass - 1
...
Рейтинг: 0 / 0
17.05.2013, 20:41
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38262745
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
Еще маленький вопрос не по теме. У меня rs.CursorType = adOpenStatic
Для добавления найденных записей в это набор, я должен сменить тип на обновляемый.
Вопрос. Мои добавления и обновления этого rs останутся только в Excel или попортят таблицы -источник в БД, из которой я выборку делал?
...
Рейтинг: 0 / 0
17.05.2013, 20:46
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38262747
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
ShizukuAntonariy,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
'Встаем на первую запись
rs.MoveFirst
rs2.MoveFirst
'Счетчик найденных
ass = 0
'Цикл поиска
Do Until (rs2.EOF)
    Find_result = False
    rs.MoveFirst
    rs.Find "n_ls=" & rs2("n_ls")
    Find_result = Not rs.EOF
 If Find_result = False Then
   Debug.Print "Найдено: " & rs2("n_ls")
   ass = ass + 1
 End If
 rs2.MoveNext
Loop
Debug.Print "Всего RS: " & ass - 1

Что за кривая логика? Если Find_result = False, то что-то там найдено.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
'Встаем на первую запись
rs.MoveFirst
rs2.MoveFirst
'Счетчик найденных
ass = 0
'Цикл поиска
Do Until (rs2.EOF)
    rs.MoveFirst
    rs.Find "n_ls=" & rs2("n_ls")
    If Not rs.EOF Then
       Debug.Print "Найдено: " & rs2("n_ls")
       ass = ass + 1
    End If
    rs2.MoveNext
Loop
Debug.Print "Всего RS: " & ass - 1
...
Рейтинг: 0 / 0
17.05.2013, 20:47
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38262749
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
ShizukuЕще маленький вопрос не по теме. У меня rs.CursorType = adOpenStatic
Для добавления найденных записей в это набор, я должен сменить тип на обновляемый.
Вопрос. Мои добавления и обновления этого rs останутся только в Excel или попортят таблицы -источник в БД, из которой я выборку делал?CursorType не отвечает за возможность редактирования записей, он отвечает за способ. Если со static курсором не делать Update, то изменения рекордсета в базе не зафиксируются.
...
Рейтинг: 0 / 0
17.05.2013, 20:50
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38262769
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
AntonariyCursorType не отвечает за возможность редактирования записей, он отвечает за способ. Если со static курсором не делать Update, то изменения рекордсета в базе не зафиксируются.

В моем случае, ничего не поможет...

При использовании метода Execute установки CursorType игнорируются: http://support.microsoft.com/kb/188857/en
...
Рейтинг: 0 / 0
17.05.2013, 21:19
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38262780
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
AntonariyЧто за кривая логика? Если Find_result = False, то что-то там найдено.

Не так... Тут стоит условие rs2("n_ls") = rs("n_ls")
И мы получаем список тех полей, значения которых в обоих сэтах равны. А надо список тех полей, которых в rs вообще нет.
...
Рейтинг: 0 / 0
17.05.2013, 21:34
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38262794
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
Внимание, рабочий вариант №2!
Оптимизированный Antonariy и исправленный мной.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
ass = 0
ass2 = 0
Do Until (rs2.EOF)
    rs.MoveFirst
    rs.Find "n_ls=" & rs2("n_ls")
    If (rs.EOF) And (ass2 < kl2) Then
       Debug.Print "Найдено: " & rs2("n_ls")
       ass = ass + 1
    End If
    rs2.MoveNext
    ass2 = ass2 + 1
Loop
Debug.Print "Всего: " & ass - 1



Antonariy решил сыграть на том, что Find либо становится на первую найденную запись, либо уходит в BOF/EOF. И это красиво, но мы не поняли друг друга с логикой... Теперь порядок.
...
Рейтинг: 0 / 0
17.05.2013, 21:53
| Ответить | Цитировать | Написать  
13 сообщений из 63, страница 3 из 3
  3  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA - Сравнить RecordSets
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&gotonew=1&tid=2156975]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 42ms
get topic data:
 10ms
get first new msg:
 8ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 13ms
total:  157ms
созд. / загр.: 157ms
x
x
Закрыть


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