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

SELECT * FROM tabellenname WHERE id = 1

[Seppel]

Zitat von Die Muhkuh:

Der SQL-Code wäre:

SELECT * FROM tabellenname WHERE id = 1

also, muss ich das so machen:
'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:
SELECT * FROM tabellenname WHERE id = :suchid; zuweist. brauchst du später, nur den Parameter mit
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 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]

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

[mkinzler]

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

[Die Muhkuh]

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