Tabellenspalten von FreeTables in DataDictionary kopieren

[DeddyH]

Delphi-Quellcode:

...
     qryFibu.Open;
     //SQL einmalig setzen
     qryOlap.SQL.Text := 'insert into olap_fibu_daten(Buchungsdatum) values(:buchdat)';
     while not qryFibu.Eof do
     begin
         //in der Schleife nur Parameter neu belegen
         qryOlap.ParamByName('buchdat').Value := qryFibu.FieldByName('KBU_BUCHUNGSDATUM').Value;        
         qryOlap.ExecSQL;

         qryFibu.Next;
     end;