Hier eine überarbeitete Fassung:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.MyQuery.SQL.Text := 'SELECT SUCHTEXT FROM Artikel WHERE UPPER(SUCHTEXT) LIKE ''%'
+ QuotedStr(AnsiUppercase(Form1.Edit1.Text)) + '%''';
Form1.MyQuery.Open; // ExecSQL nur, wenn du keinen result set erwartest
end;
Verbesserungsvorschläge von
Hansa und
shmia sind eingebaut.
und auch noch ein Fehler - also unbedingt bis zum Beitrag von shmia weiterlesen...
marabu