Feldwerte kopieren

[needatip]

Hallo,
wie kann man bestimmte Felder eines Datensatzes einer Tabelle1 mit den Feldwerten eines Datensatzes einer anderen Tabelle2 ersetzen?
z.B. Tabelle Kunden: Name,Strasse,Plz,Ort,Land,Tel,Fax
Tabelle Adressen: Name,Strasse,Ort
Jetzt soll ein einzelner aktueller Datensatz der Tabelle Kunden mit den Feldwerten des aktuellen Datensatzes der Tabelle Adressen
geändert bzw. überschrieben werden.

Natürlich kann ich es so machen:

Delphi-Quellcode:

Kunden.FieldByName('Name').AsString := Adressen.FieldByName('Name').AsString;
Kunden.FieldByName('Strasse').AsString := Adressen.FieldByName('Strasse').AsString;
Kunden.FieldByName('Ort').AsString := Adressen.FieldByName('Ort').AsString;

Da dies aber nur ein Beispiel ist und ich ca. 40 Felder kopieren muss, frage ich ob es nicht eine elegantere Lösung gibt.

Vielleicht mit SQL

SQL-Code:

UPDATE Kunden
SET (Kunden.Feldliste) = (Adressen.Feldliste)
WHERE Kunden.Nr = Adressen.Nr

o. so ähnlich?