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!