Datensatz von Datenbank zu Datenbank kopieren / updaten

[shmia]

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.