Datensatz in einer Datenbank kopieren

[philubb]

Habe mich jetzt für folgende Lösung entschieden.

Habe um die letzten beiden Zeilen ein TRY ... EXCEPT Block gemacht und rufe im EXCEPT Teil nochmal beide auf
Ist zwar nicht ganz sauber, aber es funktioniert zumindest so wie es soll

[mkinzler]

Warum nicht per SQL?

[philubb]

gefallen tut sie mir schon.

ich wollte nur nicht alle felder kopieren, sondern nur ein paar ausgewählte.
deshalb hab ich mur manche sachen bei dir abgeschaut

[shmia]

Zitat von philubb:

ich wollte nur nicht alle felder kopieren, sondern nur ein paar ausgewählte.

Du hast ja die Möglichkeit nach dem Kopieren aller Felder bestimmte Felder wieder zu löschen:

Delphi-Quellcode:

// alle Felder löschen die in der Liste übergeben wurden
procedure ClearDbFields(ds:TDataset; feldliste:array of string);
var
   i : Integer;
   f : TField;
begin
   for i:=Low(feldliste) to High(feldliste) do
   begin
      f := ds.FindField(feldliste[i]);
      if Assigned(f) then
         f.Clear;   // Set Field to NULL
   end;
end;

Auf jeden Fall macht es Sinn deine Anforderung durch Benutzung von "Basisfunktionen" zu lösen, als nur eine Funktion zu haben, die Alles macht.

Delphi-Quellcode:

DuplicateCurrentRecord(aDataset);  // zuerst alles kopieren
ClearDbFields(aDataset, ['Feld1', 'Feld2']); // dann das Löschen was nicht erwünscht ist

Du kannst auch das Property Tag verwenden, um zwischen erwünschten und unerwünschten Feldern zu unterscheiden:

Delphi-Quellcode:

procedure ClearTaggedDbFields(ds:TDataset; mask:integer);
var
   i : Integer;
   f : TField;
begin
   for i:=0 to ds.fields.Count-1 do
   begin
      f := ds.fields[i];
      if (f.Tag and mask) <> 0 then
         f.Clear;
   end;
end;

Auf jeden Fall sind die hier gezeigten Funktionen wiederverwendbar und können so für jede Tabelle benützt werden.

[mschaefer]

Da SQL in der Datenbankangabe steht, könnte es auch sein, dass folgendes über eine abgesetzte Query geht:

Code:

Select * into employee_backup from employee

Grüße in die Runde

Martin

[Furtbichler]

Es geht doch eher darum, einen einzelnen Datensatz zu kopieren

[mschaefer]

In der Tat, der Vorschlag ist updatefähig, z. B. mit folgendem Schnipsel:

Code:

 var V:Variant; 
     i:integer; 
 begin 
       with Query1 do 
       begin 
         if (not Active)or(isEmpty) then exit;
         // Variant Array aufbauen 
         V := VarArrayCreate([0,FieldCount-1], varVariant); 
         for i:=0 to FieldCount-1 
         do 
           // Für alle Felder die Beschreibbar sind hole Werte ins Array
           if (not Fields[i].ReadOnly)
               and(Fields[i].FieldName <> KeyFieldName) 
               then V[i]:=Fields[i].Value; 
           // Leeren Datensatz in Memory anlegen
           Insert; 
           // Wo Werte im Array sind, diese in die Felder eintragen
           for i:=0 to FieldCount-1 do 
             if (not Fields[i].ReadOnly) 
           then Fields[i].Value := V[i]; 
           // schreiben, eventuell auch später
           post;
         end; 
 end;

Grüße in die Runde // Martin