Конференция VBStreets

**SergT** » 02.11.2006 (Чт) 10:10

Доброе время суток всем Форумчанам!
Необходимо найти самый быстрый способ сравнения 2-х (одинаковых по структуре) таблиц Access на предмет точного совпадения данных, желательно прогой, написанной на VB. Записей около 100 000, полей - 30. Простым перебором - занимает уйму времени.
Чего хочется? А хочется, хотя бы, убедиться, что обе таблицы идентичны друг другу. Может что-то типа чекСуммы? Может их экспортировать в текст и потом сравнить? Что-то мне подсказывает, что решение должно быть простым, но... Главное -СКОРОСТЬ

**alibek** » 02.11.2006 (Чт) 10:12

Какие поля сравниваются? Есть ли среди них ключевые поля? Поля, которые надо игнорировать?

**SergT** » 02.11.2006 (Чт) 10:16

Изменения могли пройти в любом из полей. Поля разного типа, и ключевые и... Нужно отловить несоответсвие в любом из 30 полей всей таблицы

**alibek** » 02.11.2006 (Чт) 10:32

Тогда делай .Save для каждого рекордсета, вычисляй MD5 и сравнивай.

**Antonariy** » 02.11.2006 (Чт) 10:40

Ё-маё. Мне ж тоже самое нужно было сделать, а до такого простого фокуса не догадался...

**SergT** » 02.11.2006 (Чт) 10:41

alibek писал(а):Тогда делай .Save для каждого рекордсета, вычисляй MD5 и сравнивай.

TO alibek : Мона чу-у-уть подробнее?

---- добавлено позднее ---
Собственно, во что сохранять и вот по поводу MD5 не лестно отзывались:
http://bbs.vbstreets.ru/viewtopic.php?t ... hlight=md5

**alibek** » 02.11.2006 (Чт) 10:56

Recordset1.Save "C:\dump1", adPersistADTG
Recordset2.Save "C:\dump2", adPersistADTG

А далее сравниваешь файлы dump1 и dump2.

**SergT** » 02.11.2006 (Чт) 11:05

Посетила еще одна идея. Создать рекордсет, с условием совпадения полей, типа "Select.. join.. Where t1.F1=t2.F1 and... t1.F30=t2.F30"
Если кол-во записей в обоих таблицах совпадает с записями рекордсета - все Ок. Но грамотно ли так делать? И.. СКОРОСТЬ?

Спасибо за подсказки - пойду пробовать

**Antonariy** » 02.11.2006 (Чт) 11:15

alibek писал(а):Recordset1.Save "C:\dump1", adPersistADTG
Recordset2.Save "C:\dump2", adPersistADTG

А далее сравниваешь файлы dump1 и dump2.

А можно
Set st1 = New ADODB.Stream
Set st2 = New ADODB.Stream
Recordset1.Save st1, adPersistADTG
Recordset1.Save st2, adPersistADTG
И сравниваешь два байтовых массива.

**BasiС** » 02.11.2006 (Чт) 14:14

Запрос для выявления отличий DB2 относительно DB1
(выводит все поля DB1, которых нет в DB2)

SELECT Tb1.Fld1
FROM
(SELECT * FROM DB1) AS Tb1
RIGHT JOIN
(SELECT * FROM DB2) AS Tb2
ON
Tb1.Fld1=Tb2.Fld1 AND Tb1.Fld2=Tb2.Fld2 AND ...... Tb1.Fld30=Tb2.Fld30
WHERE
ISNULL(Tb1.Fld1)

И второй запрос - тот-же запрос (вместо RIGHT - LEFT вместо ISNULL(Tb1.Fld1) - ISNULL(Tb1.Fld2)) .
Насчёт скорости - надо проверять.

**alibek** » 02.11.2006 (Чт) 14:16

Antonariy писал(а):А можно

Кстати, да, как-то сразу не подумал. Так гораздо лучше.

**alibek** » 02.11.2006 (Чт) 14:17

BasiС, ну-ну, дерзай. Поля могут быть memo или binary, ты знаешь?

**SergT** » 03.11.2006 (Пт) 9:21

alibek писал(а):А далее сравниваешь файлы dump1 и dump2.

Antonariy писал(а):
И сравниваешь два байтовых массива.

Не пойму, как сравнивать :oops:

**alibek** » 03.11.2006 (Пт) 9:24

Как хочешь, так и сравниваешь.
Можно посчитать MD5 и сравнить.
Можно не считать MD5 (все-равно при этом весь файл будет считываться), а читать оба файла одинаковыми блоками и сравнивать блоки.

**Antonariy** » 03.11.2006 (Пт) 10:33

А можно и так:

Код: Выделить всё: Function RssEqual(Recordset1, Recordset2) As Boolean Set xml1 = New MSXML2.DOMDocument Set xml2 = New MSXML2.DOMDocument Recordset1.Save xml1, adPersistXML Recordset2.Save xml2, adPersistXML RssEqual = xml1.xml = xml2.xml End Function

Конференция VBStreets

Сравнение таблиц Access из разных БД

Сравнение таблиц Access из разных БД

Кто сейчас на конференции