|
Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
Delphi 11 Alexandria
|
AW: 2 Datenbanken abgleichen
13. Feb 2015, 09:38
Delphi-Quellcode:
for i := 0 to Query_Quelle.fieldcount -1 do
begin
ZielFeld := Query_Ziel.FieldByName(Query_Quelle.Fields[i].FieldName);
If Assigned(ZielFeld) then
begin
ZielFeld.asvariant := Query_Quelle.Fields[i].asvariant;
end;
end;
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)
|