Access Tabelle durchsuchen

[Seppel]

Ich arbeite gerade mit BDE, aber nur zu test zwecken, also ich setz es dann in MYSQL um.
Ich will die DB durchsuchen und zwar, wenn in dein Editfeld z.B. 5 eingegeben wird, dann werden alle Daten mit ID 5 angezeigt.(also z.B. Name dann halt und Adresse..).
Brauch ich ein Query(ok ja^^), der SQl Code ist das schwierige, ich glaub damit muss ich mich noch ma auseinander setzten.
Dann das laden in die Editfelder, geht dann ja über den SQL COde.

Delphi-Quellcode:

edit1.text := query1.FieldByName('Name').AsString; // so oder?

Wäre nett wenn mir jemand da helfen könnte.

[edit=sakura] Titel auf Wunsch angepasst. Mfg, sakura[/edit]

[Die Muhkuh]

Der SQL-Code wäre:

SQL-Code:

SELECT * FROM tabellenname WHERE id = 1

[Seppel]

Zitat:

Zitat von Die Muhkuh

Der SQL-Code wäre:

SQL-Code:

SELECT * FROM tabellenname WHERE id = 1

also, muss ich das so machen:

SQL-Code:

'SELECT * FROM tabellenname WHERE id ='+edit1.Text

Und dann muss ich ja noch die Daten einfügen in die Editfelder.
Beim Code muss dann ja noch was dazu für die einzelnen Felder oder?

[mkinzler]

Oder besser mit Parameter
Wenn du dem Query die Abfrage:

SQL-Code:

SELECT * FROM tabellenname WHERE id = :suchid;

zuweist. brauchst du später, nur den Parameter mit

Delphi-Quellcode:

query1.ParamByName('suchid').assTring := Edit1.Text;

absetzen

[Die Muhkuh]

Hi,

ich würde das über Paramter lösen:

Delphi-Quellcode:

Query1.SQL.Text := 'SELECT * FROM tabellenname WHERE id = :id';
Query1.ParamCheck := true;
Query1.ParamByName('id').AsInteger := StrToInt(Edit1.Text);
Query1.Open;

// Auslesen wie gewohnt:
Edit2.Text := Query1.FieldByName('Feldname').AsString;

[Seppel]

Zitat:

Zitat von Die Muhkuh

Hi,

ich würde das über Paramter lösen:

Delphi-Quellcode:

Query1.SQL := 'SELECT * FROM tabellenname WHERE id = :id';
Query1.ParamCheck := true;
Query1.ParamByName('id').AsInteger := StrToInt(Edit1.Text);
Query1.Open;

// Auslesen wie gewohnt:
Edit2.Text := Query1.FieldByName('Feldname');

Ok Parameter sind ne gute Bereicherung für mich, allerdings funzt was net, muss ich bestimmt noch was deklarieren oder?

Fehler:
inkompatibletypen Tstrings und string.
inkompatibletypen string und Tfield.

[mkinzler]

Delphi-Quellcode:

Query1.SQL.Text := ...

[Sharky]

Hai Seppel,

da fehlt ein .Text

Code:

Query1.SQL[b].Text[/b] := 'SELECT * FROM tabellenname WHERE id = :id';

EDIT: Dieser mkinzler. Hat keine Mathematik sondern "nur" Informatik studiert und postet doch schneller als der DP-Hai :stupid:

[mkinzler]

Und hier:

Delphi-Quellcode:

Edit2.Text := Query1.FieldByName('Feldname').asString;

[Die Muhkuh]

ei ei ei, ich änder das gleich mal noch. Ist halt außen Kopf gemacht ne ;-)