Datenbanken abgleichen

[joachimd]

quick'n'dirty Methode:

Delphi-Quellcode:

table1.open;
table2.open;
table1.first;
while not table1.eof do
begin
  if table2.locate('id','table2.fieldbyname('id').value,[])
    then table2.edit
    else table2.append;
  //Felder füllen
  table2.post;
  table1.next;
end;

manche DB unterstützen auch den SQL MERGE Befehl:

SQL-Code:

MERGE TableA AS ta
USING TableB AS tb
  ON (ta.ID = tb.ID)
  WHEN MATCHED THEN UPDATE SET ta.value = tb.value
  WHEN NOT MATCHED THEN INSERT(ID, value) VALUES (tb.ID, tb.value)