Daten in Datenbank übertragen aus editfeldern

[rainman51]

Hallo Leute,

ich soll ein Programm schreiben, mit dem man Daten aus verschieden Editfeldern in eine Access-Tabelle schreiben kann. Könnt mir dabei helfen.

Im gleichen hab ich noch ein weiters Problem mit dem Modulo 11. Bei eingabe einer Zahl in editfeld soll überprüft werden ob die Zahl nach Modulo 11 richtig ist! Danke

[mkinzler]

Zitat:

ich soll ein Programm schreiben, mit dem man Daten aus verschieden Editfeldern in eine Access-Tabelle schreiben kann. Könnt mir dabei helfen.

Nimm DBEdits oder mit

Delphi-Quellcode:

<DS>.FieldByName('<feldname>').asString := <Edit>.Text;

Delphi-Quellcode:

 if TryStrToInt( <edit>.Text, zahl) then if zahl mod 11 then ...

[rainman51]

Was bedeutet das <DS>?

[mkinzler]

Zitat:

Zitat von rainman51

Was bedeutet das <DS>?

Dataset, also TQuery, TTable, TAdoDataset, ...

[rainman51]

So richtig verstehe ich das trotzdem noch nicht..ich hab mal ein bild von dem programm hinzugefügt..

[Hansa]

Du benutzt ADO-Tables. Das riecht nach BDE. Versuche es mal mit ADODataset. Besser noch, ganz ohne ADO. :mrgreen:

[mkinzler]

Zitat:

Zitat von Hansa

Du benutzt ADO-Tables. Das riecht nach BDE. Versuche es mal mit ADODataset. Besser noch, ganz ohne ADO. :mrgreen:

Access ohne ADO?

[rainman51]

Mein problem ...das ganz soll ausgelöst werden, wenn ich auf den button klicke und dann soll alles in Access geschrieben werde aber ich weis nicht so recht wie.....

[mkinzler]

Nimm wie gesagt DBEdits, verbinde diese über eine mit dem Dataset. Beim Klicken des Buttons kannst du dann die Änderungen mit <DS>.Post in die Datenbank schreiben.

[Hansa]

Zitat:

Zitat von mkinzler

..Access ohne ADO?

Ne, besser gleich ohne Access. Das war gemeint. :mrgreen:

Zur Frage an sich :

Delphi-Quellcode:

        DM.DS.insert;
        DM.DS.FieldByName('NR').AsInteger := StrToInt (edKuNr.Text);
        DM.DS.Close;

P.S. : DM = DataModule, DS = DataSet, wie bereits gesagt.

[rainman51]

Danke!

Wie muss eine If-anweisung lauten damit nur zahlen in einem editfeld akzeptiert werden?

If edit1.text = ???? then begin

end
else ....

[Hansa]

Fange das im OnKeyPress des Edits ab.

Delphi-Quellcode:

if not key in ['0'..'9'] then
  key := 0;

[rainman51]

Folgende Fehler treten dabei auf

[Fehler] Unit3.pas(114): Operator ist auf diesen Operandentyp nicht anwendbar
[Fehler] Unit3.pas(115): Inkompatible Typen: 'Char' und 'Integer'

[Hansa]

Du sollst das ja nicht einfach nur abschreiben. :stupid: In den zwei Zeilen ist tatsächlich ein Fehler drin. Der ist so offensichtlich, dass ich ihn schon vergessen habe. :mrgreen:

[rainman51]

Hab fehler gefunden


---> if not (key in ['0'..'9']) then
key := #0;