Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi in bearbeitenmodus (https://www.delphipraxis.net/391-bearbeitenmodus.html)

theomega 12. Jul 2002 14:00


in bearbeitenmodus
 
Wie muß ich eine TTable einstellen damit der Befehl
Code:
table1.Fields[37].AsBoolean := false;
funktioniert?

Fehler: "Datenmanege weder im Einfüge noch im Editiermodus"

MrSpock 12. Jul 2002 14:10

Hallo theomega,

Code:
table1.Edit;
für den Fall, dass der zu ändernde Datensatz bereits ausgewählt ist.

Oder
Code:
table1.Append;
für den Fall, dass ein neuer Datensatz eingefügt werden soll.

In jedem Fall ist vor einer dieser Anweisungen noch (irgendwo)
Code:
table1.Open;
notwendig.

theomega 12. Jul 2002 16:17

Das funktioniert irgendwie nicht. Der Fehler bleibt. Ich verwenden folgenden Code:

Code:
table1.open;
for i:= 0 to table1.RecordCount do begin;
table1.RecNo := i;
table1.Fields[37].AsBoolean := false;
end;
egal wo ich das table1.edit hinsetzte, der Fehler bleibt gleich.

MrSpock 12. Jul 2002 19:39

Hallo theomega,

hat denn deine Tabelle wirklich 38 Felder? Du solltest sicherheitshalber über den Namen zugreifen, da die Reihenfolge der Felder in der Fields Eigenschaft nicht immer der Feldreihenfolge bei der Definition der Tabelle ist. Nemen wir an, dein Feld heißt "istReich" und ist vom Wert Boolean, dann könntest du folgendes Schreiben:


Code:
Table1.open;
try
  for i := 0 to Table1.RecordCount -1 do
  begin
    Table1.Edit;
    Table1.FieldByName('RecNo').AsInteger := i;
    Table1.FieldByName('istReich').AsBoolean := False;
    Table1.Post;
    Table1.Next;
   end;
except
  on E:exception do
  begin
    Table1.Cancel;
    ShowMessage('Fehler beim Eintragen der Werte.'#13
                  +E.Message);
  end
end;
Table1.Close;
Die Felder RecNo und istReich müssen natürlich existieren.


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:53 Uhr.

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf