Datensatz in einer Datenbank kopieren

[philubb]

Hallo

habe eine procedure geschrieben, die einen ausgewählten Datensatz in einer Datenbank kopieren soll. Diese wird per Klick auf einen Button aufgerufen.

Code entspricht in etwa diesem hier von USER shmia:

http://www.delphipraxis.net/17291-ak...plizieren.html

Nun zu meinem Problem:

Immer wenn ich die beiden letzten Zeilen

aDataSet.Append; <- Funktioniert noch
aDataSet.SetFields(aRecord); <- kommt Exception

aufrufe kommt eine Exception: "ClientDataSet: Datenmenge weder im Einfüge - noch im Editiermodus"

Wenn ich den Button direkt danach nochmal klicke, funktioniert es plötzlich.

Jemand eine Idee woran das liegt?

Hab keine Lust andauernd den Aufruf doppelt machen zu müssen.

[Blup]

Versuch mal direkt AppendRecord, AutoInc-Felder müssen mit Variants.NULL gefüllt werden.

[philubb]

Danke für die schnelle Antwort.

An AppendRecord hab ich auch schon gedacht.

Aber ich verwende schon ganz bewusst Append, weil hierbei die Datenmenge nach dem einfügen im Editmodus bleibt, damit der Anwender die kopierten Daten kontrolliert, gegebenfalls ändert und dann erst bestätigt, dass der Datensatz hinzugefügt wird.

Benutze ich nun AppendRecord, wird nach dem hinzufügen, gleich ein POST gesendet und der Anwender kann den Datensatz nicht mehr bearbeiten.

[Furtbichler]

Zitat:

Zitat von philubb (Beitrag 1172612)

...Code entspricht in etwa diesem hier von USER shmia:

'In etwa' klingt schon mal verdächtig.

Zeige mal deinen Code.

[jobo]

Zitat:

Zitat von philubb (Beitrag 1172617)

Aber ich verwende schon ganz bewusst Append, weil hierbei die Datenmenge nach dem einfügen im Editmodus bleibt

Wahrscheinlich hast Du Dir da schon die Antwort gegeben.
Setz doch selbst den Editmodus, bevor Du Daten änderst.

[philubb]

hier mein code:

Aufruf einfach per OnClickEvent eines Buttons.

Delphi-Quellcode:

procedure TFormMain.Kopieren(aDataSet:TDataSet);
var
  Data : array of Variant;
  aRecord : array of TVarRec;
  i : integer;
  max : integer;
begin

  max := 8;
  SetLength(arecord,max+1);
  SetLength(data,max+1);

  for i := 0 to max do
  begin
    arecord[i].VType := vtVariant;
    arecord[i].VVariant := @data[i];
  end;

  Data[1] := aDataSet.FieldValues['BESCHREIBUNG'];
  Data[2] := aDataSet.FieldValues['NENNSTROM'];
  Data[3] := aDataSet.FieldValues['NENNSPANNUNG'];      //Felder die ich kopieren möchte, andere bleiben leer;
  Data[4] := aDataSet.FieldValues['HZ'];
  Data[5] := aDataSet.FieldValues['DREHM_ZAHL'];
  Data[6] := aDataSet.FieldValues['KAUFPREIS'];
  Data[7] := aDataSet.FieldValues['PRIORITAET'];
  Data[8] := aDataSet.FieldValues['BESTELL_NR'];


  aDataSet.Append;
  aDataSet.SetFields(aRecord);

end;

[DeddyH]

Abgesehen von der Bereichsüberschreitung (Indizes von 1 bis 8 statt von 0 bis 7) kann ich da nichts Falsches entdecken.

[Uwe Raabe]

Zitat:

Zitat von philubb (Beitrag 1172649)

Delphi-Quellcode:

  Data[1] := aDataSet.FieldValues['BESCHREIBUNG'];
  Data[2] := aDataSet.FieldValues['NENNSTROM'];
  Data[3] := aDataSet.FieldValues['NENNSPANNUNG'];      //Felder die ich kopieren möchte, andere bleiben leer;
  Data[4] := aDataSet.FieldValues['HZ'];
  Data[5] := aDataSet.FieldValues['DREHM_ZAHL'];
  Data[6] := aDataSet.FieldValues['KAUFPREIS'];
  Data[7] := aDataSet.FieldValues['PRIORITAET'];
  Data[8] := aDataSet.FieldValues['BESTELL_NR'];


  aDataSet.Append;
  aDataSet.SetFields(aRecord);

1. DeddyH hat ja schon angemerkt, daß der Index von Data von 0..7 und nicht von 1..8 geht.
2. Du erwähnst im Kommentar zu Data[3] "Felder die ich kopieren möchte, andere bleiben leer;". Woher soll SetFields denn wissen, welche Felder es mit den Daten des Variant-Arrays setzen soll? SetFields geht davon aus, daß das Array Daten für alle Felder in der richtigen Reihenfolge enthält. Willst du nur einzelne Felder befüllen, dann musst du jedes Feld einzeln setzen.

[philubb]

1.INDEX:

Setze ich den INDEX von 0 - 7 bekomme ich eine EBcdException: "Test hge (//Wert in Feld "Beschreibung") ist kein gültiger BCD-Wert"

Wenn ich den Index von 1 - 8 setze, kommt diese Meldung nicht, sondern nur die vom Anfang :)


2.Felder:

Es sind schon die richtigen Felder. Diese sind auch in dieser Reihenfolge vorhanden.
Die Felder die leer bleiben sollen, kommen nach denen die ich kopieren möchte.

Oder muss ich das so verstehen, dass SetFields alle Felder belegt, auch wenn ich nur ein paar angebe?

[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 :roll: