Hallo,
ich habe folgendes Problem:
möchte nach mehreren Kriterien in meiner
DB suchen. Dazu habe ich eine Eingabemaske mit einem EditFeld (Hier kann der gesuchte Produktname eingegeben werden), einer ComboBox (hier stehen mehrere Herstellernamen zur Auswahl), eine Checkbox1 als Produktart A / Checkbox2 als Produktart B und CheckBox3 als Produkt-Active.
Wir nehmen an, dass ich nach 5 Kriterien suche:
Produktname (varchar)
Produkthersteller (varchar)
Produkttyp (boolscher Ausdruck)
ProduktAktiv (boolscher Ausdruck)
(Alle 5 Daten befinden sich in einer Tabelle und jedes Kriterium ist als eine Spalte in dieser Tabelle gültig). Die Suche nach zwei ersten Kriterien funktioniert aber ich weiss nicht wie ich jetzt noch zu dieser Abfrage diese drei Checkboxen anbinden soll, damit die ganze Suche nach 5 Kriterien funktionieren kann.
Um die Suche zu programmieren habe ich folgenden Code geschrieben:
Delphi-Quellcode:
procedure TForm7.Button1Click(Sender: TObject);
begin
with DataModule4.MyQuery5 do begin
DataModule4.MyQuery5.SQL.Clear;
DataModule4.MyQuery5.SQL.Add('Select * from product ');
DataModule4.MyQuery5.SQL.Add('where p_name like');
DataModule4.MyQuery5.SQL.Add(' ''%' + Edit1.Text + '%''');
DataModule4.MyQuery5.SQL.Add('AND p_producername like ''%' + ComboBox1.Text + '%''');
DataModule4.MyQuery5.Open;
Label2.Caption := IntToStr(RecordCount) + ' Stück gefunden!'
Hat jemand irgendwelche Idee wie man dieses Problem lösen könnte?