Thema: Delphi [SQL]: SyntaxProbs

Einzelnen Beitrag anzeigen

Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.251 Beiträge
 
Delphi 2006 Professional
 
#6

Re: [SQL]: SyntaxProbs

  Alt 7. Mai 2004, 09: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"
  Mit Zitat antworten Zitat