2 Datenbanken abgleichen

[Walter Landwehr]

Hallo,

also ich möchte Daten einer bestehenden Datenbank in eine neue Datenbank übernehmen. Es geht hier um ein Programmupdate wobei das Update ohne Einwirkung des Anwenders funktionieren sollte.

Zur Zeit versuche ich es so.

Delphi-Quellcode:

procedure TfrmUebernahme.Optionen;
var i, Saetze : Integer;
begin
  if cbxOptionen.Checked then
  begin
    Query_Quelle.Close;
    Query_Quelle.SQL.Clear;
    Query_Quelle.SQL.Add('select * from TBL_OPTIONEN');
    Query_Quelle.Open;
    Query_Ziel.Close;
    Query_Ziel.SQL.Clear;
    Query_Ziel.SQL.Add('select * from TBL_OPTIONEN');
    Query_Ziel.Open;
    Query_Ziel.Edit;
    for i := 0 to Query_Quelle.fieldcount -1 do
    begin
       Query_Ziel.Fields[i].asvariant := Query_Quelle.Fields[i].asvariant;
    end;
    Query_Ziel.post;
    dmMain.ibqryOptionen.Refresh;
  end;
end;

Bei diesen Code hat die Tabelle nur einen Datensatz.

Das funktioniert auch ganz gut. Nur wenn die Struktur unterschiedlich ist knallt es. Ich werde mich mal an
die Lösung von himitsu wagen. Der Ansatz sieht gut.