ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA - Сравнить RecordSets
25 сообщений из 63, страница 1 из 3
  1  все
VBA - Сравнить RecordSets
    #38261313
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
У меня есть два заполненных объекта типа RecordSet. Набор полей идентичен.

Код: vbnet
1.
2.
3.
' Вот декларация для моих наборов данных
Dim rs As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset



Как мне вывести на лист или в новый RecordSet те из записей rs2, которых нет в rs ?
...
Рейтинг: 0 / 0
17.05.2013, 08:55
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261325
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
как именно рекордсеты заполняются данными?
гораздо проще и сильно быстрее сделать запрос к БД для выборки таких записей
...
Рейтинг: 0 / 0
17.05.2013, 09:08
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261529
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
Shocker.Pro,

А какая разница? Заполнены они на 100% без ошибок. Если возможно применить SQL к RecordSet так же легко, как к файлам реальной БД - записи в студию.
А обращаться для этого непосредственно к БД я не хочу, так как получится слишком громоздкая конструкция, там и так сложные выборки. Не проще ли поработать с уже отобранными значениями в RecordSet?
...
Рейтинг: 0 / 0
17.05.2013, 10:55
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261539
kiv-1980
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiv-1980
Участник
Shizuku,

Shocker.Pro, прав, я подобное использовал бы исключительно методом sql конструкции:
Код: plsql
1.
select * from table t1 where t1.column1 not in (select t2.column1 from table2 t2)


И это "нагромождение" будет в разы эффективнее.
...
Рейтинг: 0 / 0
17.05.2013, 11:00
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261550
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ShizukuНе проще ли поработать с уже отобранными значениями в RecordSet?не проще. Применить SQL-запрос к рекордсету не получится. Если выборки сложные, существуют механизмы представлений, хранимых процедур, временных таблиц и т.п., в любом случае такие вещи делаются на сервере. Например, никто не мешает сделать две временных таблицы, слить туда результаты и потом сделать выборку, раз уж запросы такие сложные, что нельзя их сравнить как два подзапроса.
...
Рейтинг: 0 / 0
17.05.2013, 11:05
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261559
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwerty112
Гость
ShizukuЕсли возможно применить SQL к RecordSet так же легко, как к файлам реальной БД - записи в студию.
мечтатель ...

kiv-1980И это "нагромождение" будет в разы эффективнее.
если ТС не врёт, и там действительно, "суровые" выборки,
то, всё таки, будет проще "сработать" всё на клиенте - сохранить данные из рекордсетов в файл, и потом, открыть новый рекордсет на этом файле, выбрав только различающиеся записи
...
Рейтинг: 0 / 0
17.05.2013, 11:09
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261563
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
qwerty112если ТС не врёт, и там действительно, "суровые" выборки,
то, всё таки, будет проще "сработать" всё на клиентекакие бы ни были суровые выборки, никто не мешает работать с ними на сервере, а не на клиенте. Что если в исходных выборках будет по миллиону записей, а на выходе всего десять? зачем гнать это на клиента и там обрабатывать?
...
Рейтинг: 0 / 0
17.05.2013, 11:11
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261565
kiv-1980
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiv-1980
Участник
qwerty112,

Как-то сталкивался с подобным, практика показывает, если есть возможность использовать запрос, ею надо пользоваться, есть масса конструкций, которые позволят избежать потери при запросах. А правильные планы, выруливают любые выборки.
...
Рейтинг: 0 / 0
17.05.2013, 11:12
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261578
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwerty112
Гость
Shocker.Proqwerty112если ТС не врёт, и там действительно, "суровые" выборки,
то, всё таки, будет проще "сработать" всё на клиентекакие бы ни были суровые выборки, никто не мешает работать с ними на сервере, а не на клиенте. Что если в исходных выборках будет по миллиону записей, а на выходе всего десять? зачем гнать это на клиента и там обрабатывать?
на сколько я понял стартовый пост, - обе выборки УЖЕ на клиенте

а "суровость" выборки - может быть разной,
может там и возвращается в итоге 10-ть записей, но делает этот возврат ХП, которая выполняется полчаса ...
...
Рейтинг: 0 / 0
17.05.2013, 11:16
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261663
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
И каждая выборка у меня в пределах своего Connection через Connection.Execute("My SQL String")

Как я сделаю выборку сразу из двух Connection? Они на разных наборах данных построены, а не на одних и тех же таблицах, хотя структура и одинакова.

Каждый из двух Connection имеет свой Data Source - не один и тот же.

А если опустить все вложенные и прочие сложности выборок, то мне нужно:

Код: sql
1.
SELECT поле_которое_сравниваю FROM табл_источник_rs WHERE rs.поле_которое_сравниваю NOT IN (SELECT табл_источник_rs2.поле_которое_сравниваю FROM табл_источник_rs2)



Таблицы табл_источник_rs и табл_источник_rs2 - имеют одинаковые структуру, но хранятьсчя в разных папках, и имеют соотвественно разные данные (почему собственно и нужно их сравнить). Если бы это были две таблицы в пределах одного Data Source (в одной папке), то можно было бы попытаться такой запрос сделать. А так...
...
Рейтинг: 0 / 0
17.05.2013, 11:57
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261670
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
причем тут коннекшены и датасоурсы????

БД одна или разные?
...
Рейтинг: 0 / 0
17.05.2013, 12:02
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261678
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Если очень хочется все-таки сравнивать рекордсеты, то самый быстрый способ (но при этом оба рекордсета должны быть отсортированы по полю, по которому идет сравнение) идти двумя курсорами по двум рекордсетам последовательно. Если при очередной итерации в одном рекордсете сравниваемое поле становится больше другого, то значит в том другом есть запись, которая отсутствует в первом. Соответственно, вычленяем эту запись и двигаем курсор только на втором рекордсете. Ну и, разумеется, зеркально.
...
Рейтинг: 0 / 0
17.05.2013, 12:06
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261682
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
Shocker.Pro,

Это dBase IV - dbf файлы. Да, если брать так, то одна папка - одна БД. Я беру из разных папок, значит из разных БД
...
Рейтинг: 0 / 0
17.05.2013, 12:09
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261698
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ShizukuЭто dBase IV - dbf файлы. Да, если брать так, то одна папка - одна БД. Я беру из разных папок, значит из разных БДв аксессе можно объединять запросы к разным файлам с помощью IN (SELECT ... FROM .... IN ("c:\1.mdb")...). Что-то подобное есть и в дибейсе, но тут я не силен, возможно точно такая-же конструкция.
...
Рейтинг: 0 / 0
17.05.2013, 12:17
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261702
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
Shocker.ProЕсли очень хочется все-таки сравнивать рекордсеты, то самый быстрый способ...
Код: vbnet
1.
2.
3.
4.
5.
6.
For j = 1 To rs2_count
  For i = 1 To rs_count
    If rs2.Fields <> rs2.Fields Then rs3.AddNew !ls = fl(0) Else i = i + 1
  Next
  j = j + 1
Next



Так что-ли
...
Рейтинг: 0 / 0
17.05.2013, 12:18
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261706
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Нет, тут, честно говоря, написан сущий бред
...
Рейтинг: 0 / 0
17.05.2013, 12:19
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261718
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Можно объединить оба рекордсета в один xml-документ и сделать xpath-запрос.
...
Рейтинг: 0 / 0
17.05.2013, 12:26
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261725
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Do Until rs.EOF Or rs2.EOF
  Select Case rs("поле_которое_сравниванием").Value
    Case rs2("поле_которое_сравниванием").Value
      rs.MoveNext
      rs2.MoveNext
    Case Is > rs2("поле_которое_сравниванием").Value
      'копируем из rs2 куда-нибудь текущую запись, это запись, которой нет в rs
      rs2.MoveNext
    Case Is < rs2("поле_которое_сравниванием").Value
      'копируем из rs куда-нибудь текущую запись, это запись, которой нет в rs2
      rs.MoveNext
  End Select  
Loop

как-то так. Но сюда еще надо дописать алгоритм, если, к примеру, rs2 уже закончился, а в rs еще есть записи, то все их надо тоже скопировать, так как их нет в rs2. Ну и наоборот.
...
Рейтинг: 0 / 0
17.05.2013, 12:28
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261746
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Shocker.ProЕсли очень хочется все-таки сравнивать рекордсеты, то самый быстрый способ (но при этом оба рекордсета должны быть отсортированы по полю, по которому идет сравнение)ИМХО.
Первое - сравнивать рекордсеты всё-таки нужно по всем полям.
Второе - при наличии полностью дублирующихся строк в каждом рекордсете, возможно, должно совпадать также их количество.
Я уж не говорю о том, что должны полностью совпадать их структуры - по именам, типам и размерам полей. Возможно, допустим различный порядок полей - но и тут я бы поостерёгся. Хотя для именно поставленной задачи порядком можно пренебречь.

Однако всё это должен чётко указать ТС.
...
Рейтинг: 0 / 0
17.05.2013, 12:38
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261751
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Shocker.Proкак-то так. Но сюда еще надо дописать алгоритм, если, к примеру, rs2 уже закончился, а в rs еще есть записи, то все их надо тоже скопировать, так как их нет в rs2. Ну и наоборот.Да уж, проще xml.

1. Загрузить первый рекордсет в первый документ
2. Загрузить второй рекордсет во второй документ
3. Скопировать строки из первого во второй, но в отдельную ноду (любую, можно создать новую в корне документа).
4. Выбрать с помощью xpath те записи, которые дублируются в этой ноде.
5. Удалить их.
6. Очистить/удалить отдельную ноду
7. Загрузить xml обратно в рекордсет
...
Рейтинг: 0 / 0
17.05.2013, 12:40
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261761
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
AkinaОднако всё это должен чётко указать ТС.А ТС и указал четко: набор полей одинаков, проверять наличие записей, а не отличие, то есть лишь по ключевым полям.
...
Рейтинг: 0 / 0
17.05.2013, 12:43
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261764
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwerty112
Гость
Shocker.ProShizukuЭто dBase IV - dbf файлы. Да, если брать так, то одна папка - одна БД. Я беру из разных папок, значит из разных БДв аксессе можно объединять запросы к разным файлам с помощью IN (SELECT ... FROM .... IN ("c:\1.mdb")...). Что-то подобное есть и в дибейсе, но тут я не силен, возможно точно такая-же конструкция.
да, точно такая же конструкция и для dBase
7608932
...
Рейтинг: 0 / 0
17.05.2013, 12:44
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261767
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
Akina,

Структуры идентичны, а количество записей может несовпадать (почему и сравниваем).
В принципе, меня не интересует изменилось там какое-то поле или нет. Меня интересуют новые строки, и есть ключ в первом столбце, по которому можно было бы отобрать такие строки запросом типа SELECT ... NOT IN SELECT... как я писал выше. Но для сравнения RecordSet это конечно не применимо.
...
Рейтинг: 0 / 0
17.05.2013, 12:45
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261772
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
Я когда-то пробовал вариант типа
Код: sql
1.
2.
3.
4.
SELECT Customers.CustomerID
FROM Customers
IN "C:\DBASE\DATA\SALES" "dBASE IV;"
WHERE Customers.CustomerID Like "A*"



Попробую еще раз. Запросик, конечно, будет аховый - строчек на 10-15 ))
- но лишь бы работал.
...
Рейтинг: 0 / 0
17.05.2013, 12:49
| Ответить | Цитировать | Написать  
VBA - Сравнить RecordSets
    #38261780
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ShizukuСтруктуры идентичны... и есть ключ в первом столбцетогда вполне подойдет мой алгоритм, так как будет сделан только один проход по каждому рекордсету. Мне кажется, он отработает быстрее, чем через xml, так как не будет ворочаться лишний объем данных
...
Рейтинг: 0 / 0
17.05.2013, 12:50
| Ответить | Цитировать | Написать  
25 сообщений из 63, страница 1 из 3
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA - Сравнить RecordSets
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38261772&tid=2156975]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 41ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 59ms
get tp. blocked users:
 1ms
others: 13ms
total:  153ms
созд. / загр.: 153ms
x
x
Закрыть


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