Thema: Delphi [SQL]: SyntaxProbs

Einzelnen Beitrag anzeigen

Benutzerbild von yankee
yankee

Registriert seit: 10. Mär 2004
1.134 Beiträge
 
Lazarus
 
#16

Re: [SQL]: SyntaxProbs

  Alt 7. Mai 2004, 12:15
Delphi-Quellcode:
procedure TMainForm.LoadTitleList(WTitel, WVerlag, WBestellnr, WPreis:string);
begin
    With ZQuery1 Do
    Begin
        SQL.Text :=
        'SELECT *' + #10 +
        'FROM Buecher' + #10 +
        'WHERE Titel Like :WTitel And' + #10 +
        ' Verlag Like :WVerlag And' + #10 +
        ' Bestellnr Like :WBestellnr And' + #10 +
        ' Preis = :WPreis';
      // Parameterzuweisung
        ParamByName('WTitel').Value := WTitel;
        ParamByName('WVerlag').Value := WVerlag;
        ParamByName('WBestellnr').Value := WBestellnr;
        ParamByName('WPreis').Value := WPreis;
        Open;
         ShowMessage ('Es wurden ' + IntToStr (ZQuery1.RecordCount) + ' Einträge gefunden');
    End;
    while not ZQuery1.Eof do
    begin
        TitelComboBox.Items.Add(ZQuery1.FieldByName('Titel').AsString);
        VerlagComboBox.Items.Add(ZQuery1.FieldByName('Verlag').AsString);
        BestellnrComboBox.Items.Add(ZQuery1.FieldByName('Bestellnr').AsString);
        PreisComboBox.Items.Add(ZQuery1.FieldByName('Preis').AsString);
        ZQuery1.Next;
    end;
end;
Aufruf:
LoadTitleList('%','%','%','%');
Könnte es damit zusammenhängen, dass der Preis FLOAT ist und nicht mit einem % aufgerufen werden kann. Ich habe nämlich einen Datensatz, der bei Preis null hat...
Letzter Tipp: Drogen. Machen zwar nicht glücklich, geben einem aber wenigstens das Gefühl glücklich zu sein.

Have a lot of fun!
  Mit Zitat antworten Zitat