Обновление набора данных
Вопрос
Допустим, у меня есть 2 набора данных: A и B, которые имеют одинаковые столбцы. Я хочу получить «Путь расстояния» - необходимо выполнить минимальные операции, чтобы изменить наборы данных на B.
Я могу предположить, что A и B содержат только в нескольких различиях, и я ищу что -то лучшее, тогда:
- Удалить все элементы А
- вставить все элементы B в
Как это можно архивировать?
Решение
Если вы хотите узнать, как преобразовать A в B, вам нужно знать, в чем разница между A и B. Для этого есть очень простой общий алгоритм, хотя он может быть более сложным в зависимости от того, сколько полей находится в вашем наборе данных и сколько из них может отличаться от A до B. Но вот общая идея:
- Сортировать оба набора данных. Обязательно сортируйте по тем же критериям. (На этом этапе, если бы они оба содержали один и тот же набор элементов данных, два списка их содержимого были бы идентичны, если рассматриваться рядом.)
- Начните с первого элемента обоих наборов данных. Сравните два элемента с сравнением, которое может вернуть
less than
,equal
или жеgreater than
. - Если A <B, обратите внимание на разницу и перейдите к следующему ряду А.
- Если a> b, обратите внимание на разницу и перейдите к следующему ряду B.
- Если a = b, выдвините оба набора данных в следующую строку.
- Повторите шаг сравнения и применения, пока не достигнете EOF на обоих наборах данных.
Как только вы закончите, у вас будет полный список различий между A и B, что сделает шаги, необходимые для преобразования A в B, простым для расчета.
Другие советы
Если вы знаете, как использовать SQL:
SELECT a.* FROM a
LEFT JOIN b on (a.field1 = b.field1 AND a.field2 = b.field2 AND ....)
WHERE b.field1 IS NULL
Даст вам все поля в A, которых нет в B.
Теперь делай
INSERT INTO b
SELECT a.* FROM a
LEFT JOIN b on (a.field1 = b.field1 AND a.field2 = b.field2 AND ....)
WHERE b.field1 IS NULL
А затем делай (или не делай в зависимости от ваших потребностей).
DELETE b FROM b
LEFT JOIN a ON (a.field1 = b.field1 and a.field2 = b.field2 AND ...)
a.field1 IS NULL
Теперь таблица a
а также b
будет таким же.
Подобный код Delphi должен сделать трюк, но точный код зависит от вашей базы данных и используемых компонентов запроса.
procedure TForm1.equalize(A, B: TDataset);
var
tablenameA: string;
tablenameB: string;
MyQuery: TQuery;
begin
tablenameA:= IProviderSupport(A).PSGetTableName;
tablenameB:= IProviderSupport(B).PSGetTableName;
MyQuery:= TQuery.Create(self);
MyQuery.Database:= .....
MyQuery.SQL.Text:= ' INSERT INTO '+tablenameA+' .....
MyQuery.ExecSQL;
end;