Angenommen du hast zwei baugleiche Tabellen in versch. Datenbanken (mit Primärschlüssel!!!).
Ohne Primärschlüssel ist ein Abgleich nicht möglich!
Du öffnest beide Tabellen mit SELECT * FROM Tabelle ORDER BY Pkfelder.
Du durchläufst beide Tabellen und vergleichst jeweils den Primärschlüssel.
Sind beide Schlüssel gleich, musst du herausfinden, ob du A->B oder B->A aktualisieren willst.
Vielleicht willst du immer nur A->B, das ist einfacher.
Delphi-Quellcode:
procedure CopyDataSetRecord(Src,Dst: TDataSet; TagMask:Integer=0);
var
i: Integer;
fSrc,fDst: TField;
begin
for i := 0 to Src.FieldCount-1 do
begin
fSrc := Src.Fields[i];
fDst := Dst.FindField(fSrc.FieldName);
if Assigned(fDst) and ((fSrc.Tag and TagMask)=0) then
begin
fDst.Value := fSrc.Value;
end;
end;
end;
Wichtig beim Kopieren ist, dass die Primärschlüsselfeld(er) nicht mitkopiert werden.
Das lässt sich durch geschicktes Einsetzen der TagMask erreichen.
Sind die Primärschlüssel unterschiedlich, musst du schauen, ob in der Tabelle von
DB-A ein Datensatz vorhanden ist, der in
DB-B fehlt (oder umgekehrt).
Jenachdem wird ein Delete oder Insert fällig und wieder dient obige Prozedure zum Kopieren der Daten.
Dann solange weitermachen, bis bei beiden Datensets Eof=True ist.