Hallo Dirk,
manchmal genügt eine einzelne Zeile zum Schließen aller offenen DataSets:
Delphi-Quellcode:
procedure TMain.lb_nameClick(Sender: TObject);
var
str_datstart, str_datend: string;
i: Integer;
dtStart, dtEnd: TDateTime;
begin
dtStart := EncodeDate(2007, 1, 1);
dtEnd := EncodeDate(2007, 12, 31);
// ...
DataModule1.ADOConnection1.Close;
end;
Freundliche Grüße