1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  AdoQuery1.Active := false;
    AdoQuery1.Close;
    AdoQuery1.SQL.Clear;
    AdoQuery1.SQL.Add('SELECT Sum(Status) AS [Summe von Status], Count(Status) AS [Anzahl von Status], Type,');
    AdoQuery1.SQL.Add('  Min(Uhrzeit) AS [Min von Uhrzeit], Max(Uhrzeit) AS [Max von Uhrzeit]');

    AdoQuery1.SQL.Add(' FROM tblPMJ_Baugruppen');
    AdoQuery1.SQL.Add(' WHERE (((Uhrzeit)>= ' + tmpVon + ' And (tblPMJ_Baugruppen.Uhrzeit)<=' + tmpBis + '))');
    AdoQuery1.SQL.Add(' GROUP BY Type, Maschine');
    AdoQuery1.SQL.Add(' HAVING (((Maschine)='+ SQL_Maschine +'))');
    AdoQuery1.Active := true;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

  AdoDS.Active := false;  
  AdoDS.Close;  
  AdoDS.Command := 'SELECT Sum(Status) AS [Summe von Status], Count(Status) AS [Anzahl von Status], Type,' +
                   '  Min(Uhrzeit) AS [Min von Uhrzeit], Max(Uhrzeit) AS [Max von Uhrzeit]') +
                   ' FROM tblPMJ_Baugruppen' +
                   ' WHERE (((Uhrzeit)>= ' + tmpVon + ' And (tblPMJ_Baugruppen.Uhrzeit)<=' + tmpBis + '))' + 
                   ' GROUP BY Type, Maschine' +
                   ' HAVING (((Maschine)='+ SQL_Maschine +'))';
  AdoDS.Active := True;