Hallo,

ich schreibe momentan ein Adressbuch und möchte gerne eine Suchfunktion einbauen, aber egal was ich mit dem SQL Code auch mache, immer kommen fehler. Die normale Abfrage (SELECT * FROM Adressbuch) am Start funktioniert. Was ist hier falsch?

markieren

Delphi-Quellcode:

Form1.Frame21.Query1.Close;
Form1.Frame21.Query1.SQL.Clear;
Form1.Frame21.Query1.SQL.Add('SELECT * FROM Adressbuch WHERE Name = ' + Edit1.Text);
Form1.Frame21.Query1.ExecSQL;

Danke
Thomas

Ich schon wieder

Also so kommt schon mal keine Fehlermeldung mehr, aber ich bekomme auch nichts ausgegeben... Was kann ich jetzt noch machen?

markieren

Delphi-Quellcode:

Form1.Frame21.Query1.Close;
Form1.Frame21.Query1.SQL.Clear;
Form1.Frame21.Query1.SQL.Add('SELECT * FROM Adressbuch WHERE Name like :Suche');
Form1.Frame21.Query1.ParamByName('Suche').AsString := LowerCase(Edit1.Text);
Form1.Frame21.Query1.ExecSQL;

Gruß
Thomas

markieren

Delphi-Quellcode:

Form1.Frame21.Query1.SQL.Add('SELECT * FROM Adressbuch WHERE Name = ' + QuotedStr (Edit1.Text));

Form1.Frame21.Query1.ParamByName('Suche').AsString := '%' + LowerCase(Edit1.Text) + '%';

Zitat von Plague:

Ich schon wieder

Also so kommt schon mal keine Fehlermeldung mehr, aber ich bekomme auch nichts ausgegeben... Was kann ich jetzt noch machen?

markieren

Delphi-Quellcode:

Form1.Frame21.Query1.Close;
Form1.Frame21.Query1.SQL.Clear;
Form1.Frame21.Query1.SQL.Add('SELECT * FROM Adressbuch WHERE Name like :Suche');
Form1.Frame21.Query1.ParamByName('Suche').AsString := LowerCase(Edit1.Text);
Form1.Frame21.Query1.ExecSQL;

1, Der Weg über Parameter ist schon mal gut. Damit bist du vor SQL-Injection geschützt
(Bei deinem ersten Versuch wäre ein Wert "''; DROP Database xyz;" in Edit1.Text evtl. sehr problematisch.

2, Für Ergebnismengen mußt Du mit Open bzw. Active := True arbeiten Form1.Frame21.Query1.Open; ExecSQL ist für SQL-Anweisungen ohne Ergebnismenge gedacht.

Hallo,

markieren

Delphi-Quellcode:

Form1.Frame21.Query1.Close;
Form1.Frame21.Query1.SQL.Clear;
Form1.Frame21.Query1.SQL.Add('SELECT * FROM Adressbuch WHERE Name like :Suche');
Form1.Frame21.Query1.ParamByName('Suche').AsString := '%' + Quotedstr(Edit1.Text) + '%';
Form1.Frame21.Query1.Open;

trotz deines Ratschlages mit Open bekomme ich nichts ausgegeben.
Wenn ich statt nach dem Namen nach der Telefonnummer suche, funktioniert es. Kann es sein, dass es an den Leerzeichen oder sowas liegt?

Danke
Thomas

Hai Plague,

warum setzt Du dein Suchwort denn in ' ' ein?

@Sharky

Was meinst Du genau?
Ich habe doch lediglich den SQL Code in '' gesetzt. Das Suchwort (Suche) muss man ja in '' setzen, da es sonst nicht funktioniert. Oder?

Ich bin so doof!

Jetzt weiß ich was Du meinst. Das QuotedStr war falsch...
Jetzt funktioniert es

Danke

Zitat von Plague:

...Das Suchwort (Suche) muss man ja in '' setzen, da es sonst nicht funktioniert. ..

Eigentlich nicht. Das musst Du bei Strings machen wenn Du den SQL-Befehl "von Hand" aufbaust. Aber da Du mit Parametern arbeitest sollte es einfach so gehen:

markieren

Delphi-Quellcode:

Form1.Frame21.Query1.Close;
Form1.Frame21.Query1.SQL.Clear;
Form1.Frame21.Query1.SQL.Add('SELECT * FROM Adressbuch WHERE Name like :Suche');
Form1.Frame21.Query1.ParamByName('Suche').AsString := '%' + Edit1.Text + '%';
Form1.Frame21.Query1.Open;