Tabelle filtern mit mehreren Suchkriterien

[ZeroQool007]

Vielen Dank für eure Hilfen! Hab es nun hinbekommen....

Delphi-Quellcode:

var
  TempSQLWhere1 : String;

begin
  ADODataSet_Anzeige.Filtered:=false;
  ADODataSet_Anzeige.Close;
  ADODataSet_Anzeige.Active:=false;

  TempSQLWhere1 := '';

  if edt_Filmtitel.Text <> '' then
      TempSQLWhere1 := TempSQLWhere1 + 'vCh50Filmtitel LIKE ' + QuotedStr(SQL_JokerStr[0] + edt_Filmtitel.Text + SQL_JokerStr[0]);
  if ComboBox_Format.Text <> '' then
    begin
      if TempSQLWhere1 = '' then
          TempSQLWhere1 := TempSQLWhere1 + 'vChFormat LIKE ' + QuotedStr(SQL_JokerStr[0] + ComboBox_Format.Text + SQL_JokerStr[0])
      else
        TempSQLWhere1 := TempSQLWhere1 + ' and ' + 'vChFormat LIKE ' + QuotedStr(SQL_JokerStr[0] + ComboBox_Format.Text + SQL_JokerStr[0]);
    end;

  if ComboBox_Kategorie.Text <> '' then
    begin
      if TempSQLWhere1 = '' then
          TempSQLWhere1 := TempSQLWhere1 + 'vChKategorie LIKE ' + QuotedStr(SQL_JokerStr[0] + ComboBox_Kategorie.Text + SQL_JokerStr[0])
      else
        TempSQLWhere1 := TempSQLWhere1 + ' and ' + 'vChKategorie LIKE ' + QuotedStr(SQL_JokerStr[0] + ComboBox_Kategorie.Text + SQL_JokerStr[0]);
    end;

  if edt_Leiher.Text <> '' then
    begin
      if TempSQLWhere1 = '' then
          TempSQLWhere1 := TempSQLWhere1 + 'vChVerliehen LIKE ' + QuotedStr(SQL_JokerStr[0] + edt_Leiher.Text + SQL_JokerStr[0])
      else
        TempSQLWhere1 := TempSQLWhere1 + ' and ' + 'vChVerliehen LIKE ' + QuotedStr(SQL_JokerStr[0] + edt_Leiher.Text + SQL_JokerStr[0]);
    end;

  ADODataSet_Anzeige.CommandText := TempSQLWhere1 + 'vChFormat LIKE ' + QuotedStr(SQL_JokerStr[0] + ComboBox_Format.Text + SQL_JokerStr[0]);
  ADODataSet_Anzeige.CommandText:= 'Select * FROM tblMovieList WHERE ' + TempSQLWhere1;

      memo1.Clear;
      memo1.Lines.Add(ADODataSet_Anzeige.CommandText);
  ADODataSet_Anzeige.Open;
  ADODataSet_Anzeige.Active:=active;