Daten mit SQLDataSet in mysql-Datenbank schreiben

[p80286]

Versuch es doch mal so:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var z : Integer;
begin
  
   SQLDataSet1.Close;
   for z := 5 to 10 do
   begin
   SQLDataSet1.CommandText :=
   'insert into datenbank_neu.Tabelle5 (spalte1,spalte2,spalte3)' +
   'select spalte5,0,spalte12' +
   'from datenbank_alt.Tabelle20 where datenbank_alt.Tabelle20.reihenfolge =' + IntToStr(z)+';';
   SQLDataSet1.ExecSQL;
SQLDataSet1.Close;
   SQLDataSet1.CommandText := // diese Zeile hat in Beitrag #2 gefehlt.
   'insert into datenbank_neu.Tabelle42 (spalte1)' +
   'select spalte5 ' +
   'from datenbank_alt.Tabelle47 where datenbank_alt.Tabelle55.reihenfolge =' + IntToStr(z)+';';
   SQLDataSet1.ExecSQL;
SQLDataSet1.Close;
end;

Gruß
K-H