Datensatz in einer Datenbank kopieren

[Furtbichler]

Zitat von philubb:

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

'In etwa' klingt schon mal verdächtig.

Zeige mal deinen Code.

[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 von philubb:

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

[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