CopyFields funktioniert bei mir nicht so richtig.
Was funktioniert denn nicht? Eigentlich iteriert CopyFields die Felder der Quelldatenbank, sucht das gleichnamige Feld in der Zieldatenbank und weist dann die Value-Werte zu (entspricht AsVariant).
Delphi-Quellcode:
procedure TfrmUebernahme.Optionen;
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; // oder Append/Insert, wenn noch kein Datensatz da ist
Query_Ziel.CopyFields(Query_Quelle);
Query_Ziel.Post;
end;