mit Edit.text in einer Datenbank suchen?

[grayfox]

hallo newb!

wie wäre es wenn du die fehlermeldung lesen würdest, die du erhältst?

Zitat:

Datenmenge weder im Editier noch im Einfügemodus

sie verrät dir alles, was du zu tun hat

zuerst das eingabefeld in den edit-modus schalten
und danach kannst du dem feld erst einen neuen wert zuordnen.
bevor du jetzt im nächsten beitrag dich wunderst, warum du deine änderungen
nicht in der tabelle finden kannst, solltest dir auch post ansehen.

mfg, stefan
ps: lass dich nur nicht unterkriegen! jeder hat irgendwann mal damit angefangen ;)

[Newb]

argg =( ich stehe doch unter zeitstress für die verdammte schule eigetnlich soll das morgen schon fertig sein =((

also so?


procedure TForm4.Button2Click(Sender: TObject);
begin
Table1.Edit;
Table1.Locate('Nr',strtoint(Edit1.Text), []);
Table1.fieldbyname('Verleihstatus').asString:='ja' ;
Table1.fieldbyname('Kundennrv').asString:=Edit2.Te xt;
Table1.post;

das funktioniert nämlich auch nicht, =( ich hab doch keine ahnung hab das projekt doch nur zugelost bekommen, hab doch erst 10 schulstunden delphi hinter mir. kannsu mir nicht bisl genauer sagen was ich machen muss? *verzweifelt guck*

[kiar]

tabelle offen?

[Newb]

arg heul ja und wie bitte? Ich nehme nicht umsonst diesen nick =( hab vom aufm monitor glubschen schon kopfschmerzen.

[kiar]

Delphi-Quellcode:

table1.active :=true;

vielleicht.?

[Newb]

nene ;) das hab ich die ganze zeit auf true, hab ich im objektinspektor so eingestellt =)

[kiar]

versuche mal dein project hochzuladen.

dann kann man es sich mal anschauen!

raik

[Newb]

ohje wie peinlich =( na gut

[kiar]

bitte zippen. rar kann meiner nicht :(

raik

[AlphaBug]

Hi!

@NewB:

und wie siehts hiermit aus:

Delphi-Quellcode:

procedure TForm4.Button2Click(Sender: TObject);
begin
  if not Table1.Active then
    Table1.Active := True;
  Table1.Locate('Nr', StrToInt(Edit1.Text), []);
  if (Table1.State <> dsEdit) or (Table1.State <> dsInsert) then
    Table1.Edit;
  Table1.FieldByName('Verleihstatus').AsString := 'ja';
  Table1.FieldByName('Kundennrv').AsString := Edit2.Text;
  Table1.Post;
end;

Es wird sichergetellt das die Tabelle geöffnet ist, dann wird der Datensatz gesucht.
Nun wird der Datensatz in den Edit-Modus gesetzt (wenn noch nicht geschehen...), die Daten
eingetragen und gespeichert. :wink: