Hallo
Mit folgenden Zeilen erstelle ich meine Abfrage.
Delphi-Quellcode:
procedure TForm1.AbfrageClick(Sender: TObject);
var SQLString1 , SQLString2 :
String; k:integer;
begin
Edit1.Text : blabla
with Query1
do
begin
Active:=False;
SQL.Clear;
SQL.Add('
Select * from '+ combobox1.text +'
where Name Like :text1 ');
SQL.Add('
And Upper (Bezeichnung) Like Upper (:text2) order by '+ combobox2.Text +'
');
ParamByName('
text1').asString := SQLString1;
ParamByName('
t
blabla
end;
in Combobox2.text steht die Feldbezeichnung nach der sortiert werden soll.
wenn Combobox2.text leer ist bekomme ich unexpected end Fehler.
Was muß in combobox2.text stehen damit nicht sortiert wird?
Danke für eure Hilfe.