Hallo,
Delphi-Quellcode:
procedure TAbtfrageClass.MSErmitteln;
var
I: integer;
begin
with FpFIBDataSetAbfrage do
begin
Close;
SelectSQL.Text:= 'SELECT DISTINCT mw_msid FROM mw_tabelle';
GenerateSQLs;
Open;
while not EOF do
begin
// Die MSId-Bezeichnung aus der Datenbank wird in einer StringList
// gespeichert. Diese Bezeichung ist auch gleichzeitig die Spalten-
// bezeichnung für die PIVOT-Tabelle.
FMSListe.add(FieldByName('mw_msid').AsString);
next;
end;
end;
end;
das ist die Procedure. Damit werden alle Datensätze durchlaufen und das kostet Zeit. Das ist der Grund warum ein Fenster mit einer Gauge angezeigt werden soll.
Bis bald Chemiker