Feld in Tabelle nachträglich füllen

[harfes]

Ich versuche, ein Tabellenfeld einer bereits vorhandenen Tabelle nachträglich und einmalig mit einer fortlaufenden Nummer zu füllen (das Feld LLHI_ID habe ich als Integer angelegt und ist jeweils mit "0" gefüllt), bekomme aber nach folgender Routine:

Delphi-Quellcode:

x:=1;
with DM1.DataModule1.LLHITable do
begin
    Close;
    FetchAll:=True;
    Open;
    //w:=RecordCount; showmessage(IntToStr(w));
    First;
    repeat
         Edit;
          FieldByName('LLHI_ID').AsInteger:=x;
         Post;
          inc(x);
         Next;
    until EOF;
    Close;
end;

immer die Fehlermeldung: "Update failed. Found 0 Records".
RecordCount zeigt mir aber vorher korrekt die 3917 Datensätze an. Irgendwie stehe ich da gerade auf dem Schlauch...was mach ich falsch???

Hartmut

[mkinzler]

-Versuch es mal ohne with
-Next führt implizit einen Post durch.

[Perlsau]

Bei leerer Tabelle erhältst du eine Fehlermeldung, wenn du mit Repeat Until arbeitest, weil versucht wird, auf den ersten Datensatz zuzugreifen. Mittels While-Schleife wird der Block nur ausgeführt, wenn ein Datensatz existiert.

Delphi-Quellcode:

  x := 1;
  DM1.DataModule1.LLHITable.Close
  DM1.DataModule1.LLHITable.FetchAll := True;
  DM1.DataModule1.LLHITable.Open;
  DM1.DataModule1.LLHITable.First;

  While Not DM1.DataModule1.LLHITable.Eof Do
  Begin
    DM1.DataModule1.LLHITable.Edit;
    DM1.DataModule1.LLHITable.FieldByName('LLHI_ID').AsInteger := x;
    DM1.DataModule1.LLHITable.Post;
    DM1.DataModule1.LLHITable.Next;
    Inc(x);
  End;
  DM1.DataModule1.LLHITable.Close;

Edit meint noch: Wenn die Tabelle sehr groß ist, kommt es auf Geschwindigkeit an. In diesem Fall empfiehlt es sich, eine Feld-Variable zu deklarieren und ihr das Feld zuzuweisen, weil sonst jedesmal die Spalte anhand des Feldnamens gesucht werden muß, was Zeit kostet:

Delphi-Quellcode:

Var
  Feld : TField;
Begin
  Feld := DM1.DataModule1.LLHITable.FieldByName('LLHI_ID');
...
  Feld.AsInteger := x;

Und wenn du am Ende deiner Procedure den zuletzt in der DB gespeicherten Wert benötigst, setzt du x am Anfang auf 0 und incrementierst es vor der Zuweisung an das Tabellenfeld.

Zitat:

Zitat von mkinzler (Beitrag 1306872)

-Versuch es mal ohne with
-Next führt implizit einen Post durch.

Das ist mir jetzt aber neu. Ich hab solche Konstrukte schon sehr häufig verwendet, insbesondere mit Firebird und IbDac von Devart ... Oder meinst du etwa, daß das Next innerhalb des With-Blocks anders reagiert als

Delphi-Quellcode:

DM1.DataModule1.LLHITable.Next;

?

[harfes]

Danke Perlsau, das funktioniert im Prinzip jetzt (egal, ob mit oder ohne POST - insofern scheint mkinzler wohl Recht zu haben, dass Next auch ein Post auslöst).
ABER: beim Speichern werden jetzt Zahlen doppelt vergeben, soll heissen, ich habe jetzt mehrere Zeilen die die "fortlaufende" Nummer 3 oder 17 etc. haben. Irgendeine Idee dazu? Ich habe noch keinen Trigger oder Generator angelegt (das soll erst nach dem fertigen Eintragen der fortlaufenden Nummer passieren...).

Hartmut

[mkinzler]

Ich würde einen Generator anlegen und das Problem dann per SQL lösen.

SQL-Code:

update 
  <Tabelle>
set
  LLHI_ID = GEN_ID( <Generator>, 1);

[Perlsau]

Zitat:

Zitat von harfes (Beitrag 1306884)

... insofern scheint mkinzler wohl Recht zu haben, dass Next auch ein Post auslöst

Stimmt natürlich, wenn sich der Datensatz im Insert- oder Editmodus befindet. Aber das war ja in deinem Beispiel nicht der Fall, das Post kam auch bei dir oben vor dem Next. Und in diesem Fall macht Next nichts anderes als den nächsten Datensatz zu selektieren.

[hoika]

Hallo,
warum nicht den Generator benutzen,
um einen "Autoinc"-Wert einmalig zu erzeugen?


Heiko

[p80286]

Dann würde man ja die Datenbank nicht als totes Datengrab nutzen. Was glaubst Du wo wir hinkämen wenn kreative Programmierer nicht mehr jedes Rad neu erfinden würden.:evil:

Gruß
K-h

[Neumann]

Die Fehlermeldung im Originalpost sieht für mich nach einem Problem bei dem Update-SQL aus. Vielleicht mal den SQL und den Update-SQL der Query prüfen.