Intersect im Tquery sql

[The_ New_Guy]

Delphi-Quellcode:

  Query1.Sql.Clear;
  query1.SQL.Add('select * from exceltabdatabase ');

  gl_kat := combobox2.ItemIndex;
     if gl_kat = 1 then
     query1.SQL.Add('where gl <= 5');

     if gl_kat = 2 then
     query1.SQL.Add('where gl between 6 and 10');

     if gl_kat = 3 then
     query1.SQL.Add('where gl between 11 and 15');

     if gl_kat = 4 then
     query1.SQL.Add('where gl > 15');



    if not((checkbox2.Checked = false) and (checkbox3.checked = false)) then
    begin
      if gl_kat > 0 then query1.SQL.Add('and') else query1.SQL.Add('where');

      if checkbox2.Checked = true then
      begin
        query1.SQL.Add(' erfolg = 0');
      end;

      if checkbox3.Checked = true then
      begin
        query1.SQL.Add(' erfolg = 1');
      end;
    end;

funktioniert so. allerdings mal schaun wie ich ALLE abfragen unter einen hut bekomm'