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?

[Hansa]

Das ist nicht viel, aber eher Sache der Zugriffskomponenten. Würde da jedenfalls keine Zusatztabelle nehmen. Bei IB/FB und FIBPlus siehts z.B. so aus :

procedure CloneCurRecord (..Ignorefields : array of ...) Herrje, ADO und Micky-SQL ? Da muss ich konkret zumindest passen.

[needatip]

Das hilft mir nicht wirklich weiter.
Gibt es nicht soetwas wie 'Fieldmapping' mit SQL, so dass man die Felder vorher zuordnen kann?

[mkinzler]

select <Feldliste> from <Tabelle1> into ...

[needatip]

Wird mit SELECT INTO nicht ein neuer Datensatz angefügt?
Das möchte ich aber vermeiden. Die Daten sollen in den aktuellen Datensatz eingefügt werden.

[mkinzler]

Zitat:

Wird mit SELECT INTO nicht ein neuer Datensatz angefügt?

Ja.

[Hansa]

Zitat von needatip:

...Die Daten sollen in den aktuellen Datensatz eingefügt werden.

Ja dann ist die Frage doch schon von Dir selber beantwortet. Entweder feldweise oder per Cloning (Teil)-Datensätze herumschieben. Ob MS-SQL das kann ? KA.

P.S.: SELECT INTO betrifft übrigens das :

Zitat von Hansa:

Würde da jedenfalls keine Zusatztabelle nehmen.

[needatip]

OK, dann bleibt mir nichts anderes übrig als feldweise zu übertragen !
Trotzdem vielen Dank.