mit Edit.text in einer Datenbank suchen?

[Newb]

Hallo ;)
also ich hab folgendest problem, ich muss bis montag ein projekt für die schule fertig haben im dem es um eine software für eine videothek, sozusagen ein videoverleihsystem.

Ich habe nun das problem das ich eine paradox tabelle habe, in dieser tabelle möchte ich an eine bestimmte stelle springen, was ich mit locate realisieren wollte, da ich den tabellensatz auch gleichzeitig zum aktuellen satz machen wollte, damit ich dort werte eingeben kann, zum beispiel das der film zur zeit ausgeliehen ist und von wem er ausgeliehen wurde. ich möchte diesen satz über ein editfeld suchen können in dem ich eine feste artikelnummer eingebe, bzw die fortlaufende nummer des medienbestandes.
Danke im vorraus.

[kiar]

hallo newb,

willkommen in der dp praxis.

was genau ist dein problem??

raik

[Newb]

hallo raik;)
also mein problem ist das ich im table1 über locate suchen möchte und dann das suchergebniss zum aktuellen satz mache, hatte mir das ja so vorgestellt:

Table1.Loacate('Mediennummer', '[Edit1.text]', []);

aber das macht der nicht =(.

[Minz]

was für eine Fehlermeldung gibt er aus?

könnte es sein dass in deinem Quellcode Loacate statt locate steht?

achso und '[edit1.text]' sieht verdächtig falsch aus.

du suchst ja nicht nach [edit1.text] als string sondern den Inhalt von edit1.text !

[ims]

hi

muss dafür Edit1.Text nicht vom typ integer sein? probier mal statt Edit1.Text, strtoint(Edit1.Text). damit wandelst du einen string in einen integer um.

ansonsten poste doch mal die fehlermeldung, dann können wir dir besser helfen.

gruss, dave

[kiar]

nimm erstmal die [] um Edit1.text weg

Delphi-Quellcode:

 table1.locate('Mediennummer',Edit1.text,[]);

[Minz]

table1.locate('Feldname',edit1.text,[loCaseInsensitive]);

gehts vielleicht so? habs nicht ausprobiert

[Newb]

*lol* =( ja hattest recht musste ein integer sein, das scheint zu funktionieren danke *g* naja okay jetzt noch eine frage, jetzt springt er ja mit der funktion locate in den datensatz, z.b. zum datensatz 3, dort möchte ich nun mit einem anderen dbedit feld in dem feld 'verliehen' ein ja reinschreiben wie mache ich das? wäre echt lieb wenn mir jemand helfen kann =( die haben die projekte verlost und komme damit voll nicht klar, die benutzeroberfläche ist ja kein problem, aber die datenbanksteuerung =(((

[Minz]

mit

Delphi-Quellcode:

Table1.fieldbyname('verliehen').asString:='ja';

glaube ich :mrgreen:

[Newb]

ich bekomm dann aber die fehlermeldung:
Table1: Datenmenge weder im Editier noch im Einfügemodus, das ist mein quelltext dafür:

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

kann mir jemand helfen?

[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:

[Newb]

kann es gerade nicht testen @alpha sitz in der schule und der rechner schmiert immer ab teste es zuhause mal

[kiar]

hallo newb,

fehler sind erstmal nicht. du solltest aber in beiden tabellen den primärindex erstellen und dann läufst.

solltest du weiter interesse an Datenbanken haben, lege ich dir ans herz sich intensiv damit zu beschäftigen.

raik