Feld wird nicht aktualisiert. Warum?

[FBrust]

Hallo,

in meinem Programm steht folgender Code:

Delphi-Quellcode:

    with dmInput.tblIP_Current do begin
      Close;
      Open;
      while not Eof do begin
        Edit;
        FieldbyName('intDone').AsInteger := -1;
        Post;
        Next;
      end;
      Close;
    end;

In dem Feld "intDone" steht zu Beginn in jedem Datensatz eine 0, sie soll durch die obige Schleife durch eine -1 ersetzt werden. Die Tabelle ist vorhanden (Paradox), hat 473 Datensätze und die Schleife wird auch 473-mal durchlaufen (habe Zähler eingebaut).

Allerdings steht nach dem Durchlauf immer noch 0 in jedem Datensatz! Warum? Ich komm einfach nicht drauf :wall: , vielleicht hat ja jemand von euch einen Tip...

Grüße

Frank

[markon]

probier mal n refresh

wird der wert nur in der db nicht verändert?

[PeterRettig]

Hallo,

einmal abgesehen von deinem Problem wäre hier die
Benutzung eines Querys stark anzuraten!

UPDATE TABELLENNAME SET intDone = -1

Ciao Peter

[FBrust]

Hallo markon,
danke für Deine Antwort.

Der Refresh hat nichts gebracht.

Zitat:

wird der wert nur in der db nicht verändert?

Wo sollte der Wert denn sonst noch verändert werden können?

Gruß

Frank

[markon]

hmm, sorry.
dachte da ist ne table im einsatz in der du gleich zur laufzeit die tabelle anzeigst.. :wink:

[eddy]

Hallo FBrust,

interessantes Problem. In Deinem Quellcode ist kein Fehler zu sehen.

Hast Du mal einen Haltepunkt (F5) gesetzt und geprüft, ob

Code:

FieldbyName('intDone').AsInteger := -1;

im Einzelschrittmodus (F8 oder F7) den zugewiesenen Wert enthält.

Ist Dein Feld intDone vom Typ Integer oder Short?

Ich habe so eine ähnliche Routine, um einem Feld einer Datenbank ein Wert zuweisen zu können. Fast identischer Programmcode und hat funktioniert.

mfg
eddy