Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
Delphi 2006 Professional
|
Re: [SQL]: SyntaxProbs
7. Mai 2004, 10:38
Hai yankee,
ich kann nur einen Tip geben baue deine SQL-Strings anders auf
Hier einmal ein Beispiel wie ich es in diesem Fall machen würde:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
with ZQuery1 do
begin
Close;
SQL.Text :=
' SELECT * FROM buecher ' + #10 +
' WHERE (Titel LIKE :WTitel)' +#10+
' AND (Verlag LIKE :WVerlag)' +#10+
' AND (Bestellnr LIKE :WBestellnr)' +#10+
' AND (Preis = :WPreis)';
// Ein * in dem Suchtext wird durch den SQL-Wildcart '%' ersetzt
ParamByName (' WTitel').AsString := StringReplace(WTitel,' *',' %',[rfReplaceAll]);
ParamByName (' WVerlag').AsString := StringReplace(WVerlag,' *',' %',[rfReplaceAll]);
ParamByName (' WBestellnr').AsString := StringReplace(WBestellnr,' *',' %',[rfReplaceAll]);
ParamByName (' WPreis').AsString := StringReplace(WPreis,' *',' %',[rfReplaceAll]);
Open;
end;
end;
Stephan B. "Lasst den Gänsen ihre Füßchen"
|
|
Zitat
|