Delphi SQL Suchabfrage - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

SQL Suchabfrage

Ein Thema von Budda · begonnen am 21. Nov 2003 · letzter Beitrag vom 21. Nov 2003

Antwort

OLLI_T

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

Delphi 5 Enterprise

Re: SQL Suchabfrage

21. Nov 2003, 11:40

Hallo Budda!

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

markieren

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]));