Thema: Delphi SQL Suchabfrage

Einzelnen Beitrag anzeigen

OLLI_T

Registriert seit: 13. Okt 2003
Ort: Nähe Wetzlar / Hessen
143 Beiträge
 
Delphi 5 Enterprise
 
#5

Re: SQL Suchabfrage

  Alt 21. Nov 2003, 12:40
Hallo Budda!

Übersichtlicher wird datt ganze mit der Fkt Format. Das like wird nur bei Bedarf gesetzt (ungetestet):

Delphi-Quellcode:
S:=Edit1.Text;
Sep:='=';
If S[1]='*Then Begin S[1]:='%'; Sep:='like'; End;
L:=Length(S);
If S[L]='*Then Begin S[L]:='%'; Sep:='like'; End;

ADOQuery1.SQL.Add(S:=Format('Select * From %s Where %s %s "%s"',[ComboBox1.Text,ComboBox2.Text,Sep,S]));
Gruss

OLLI
No Pain No Gain!
  Mit Zitat antworten Zitat