Datenbankübernahme

[Sir Rufo]

So mal kurz dahin getippt und auf das Wesentliche reduziert:

Delphi-Quellcode:

SourceQuery.SQL.Text := 'SELECT Nummer, Barcode FROM ABarcodeTable';
DataSource.DataSet := SourceQuery;
TargetQuery.SQL.Text := 'INSERT INTO MyBarcodeTable ( MyNumber, MyBarcode ) VALUES ( :Nummer, :Barcode )';
TargetQuery.DataSource := DataSource;

TargetQuery.Prepared := True;

SourceQuery.Open;
while not SourceQuery.EOF do
begin
  TargetQuery.ExecSQL;
  SourceQuery.Next;
end;
SourceQuery.Close;

TargetQuery.Prepared := False;