Thema: Delphi TQuery variabel

Einzelnen Beitrag anzeigen

fl63

Registriert seit: 30. Mär 2008
124 Beiträge
 
#32

Re: TQuery variabel

  Alt 17. Jan 2010, 15:00
Also werd ich mir mal einige der genannten Dialekte mal ansehen.

Zurück zum Ausgangsthema: Anbei mein Quelltext mit einem Button zur Abfrage von beiden Feldern

Delphi-Quellcode:
Var SQLString1,SQLString2: String;
begin
If Edit1.Text = 'then Edit1.Text := '..';
If Edit2.Text = 'then Edit2.Text := '..';
SQLString1:= StringReplace(Edit1.Text,'#','_',[rfReplaceAll]);
SQLString1:= StringReplace(SQLString1,'..','%',[rfReplaceAll]);
SQLString2:= StringReplace(Edit2.Text,'#','_',[rfReplaceAll]);
SQLString2:= StringReplace(SQLString2,'..','%',[rfReplaceAll]);
  with Query1 do
  begin
    Active:=False;
    SQL.Clear;
    SQL.Add('Select * from gesamt3 where Upper (feld001) Like Upper (:feld1.text) ');
    SQL.Add('And Upper (feld002) Like Upper (:feld2.text) ');
    ParamByName('feld1.text').asString := SQLString1;
    ParamByName('feld2.text').asString := SQLString2;
    Active:=True;
  end;
end;
Jetzt ist nur noch die Tabelle "gesamt3" noch nicht variabel
Muß ich den Quelltext jedesmal ändern wenn eine andere Tabelle benötigt wird??
  Mit Zitat antworten Zitat