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?