2 Datenbanken abgleichen

[Walter Landwehr]

Hallo Uwe,

CopyFields funktioniert bei mir nicht so richtig.

Delphi-Quellcode:

procedure TfrmUebernahme.Optionen;
//procedure CopyRecord(dsSource, dsTarget: TDataSet);
    var varCopyData: Variant;
     i: Integer;
   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;

   with Query_Quelle do
   begin
     varCopyData := VarArrayCreate([0, FieldCount-1], varVariant);
     for i := 0 to FieldCount-1 do
       varCopyData[i] := Fields[i].Value;
   end;

  with Query_Ziel do
   begin
//     Insert;
    for i := 0 to FieldCount-1 do
       Fields[i].Value := varCopyData[i]; // Hier Knalls bei Feld 90.
   end;
   Query_Ziel.Post;
 end;

was mache ich denn falsch. Irgendwie erkennt mein Code nicht die Feldreihenfolge.

Und was ist wenn das Ziel neue Felder hat. Es sollen natürlich nur die alten Einträge übernommen werden.