Einzelnen Beitrag anzeigen

harfes

Registriert seit: 25. Jun 2006
Ort: Rand der Scheibe
180 Beiträge
 
Delphi 11 Alexandria
 
#1

Feld in Tabelle nachträglich füllen

  Alt 27. Jun 2015, 16:16
Datenbank: Firebird • Version: 2.1 • Zugriff über: DElphi/Devart-Component
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
Hartmut

Geändert von mkinzler (27. Jun 2015 um 16:18 Uhr) Grund: Delphi-Tag eingefügt
  Mit Zitat antworten Zitat