SQL einfügen mit select

[user0815]

Wenn ich es richtig verstehe dann geht das ganze doch so:

Delphi-Quellcode:

var
  Wert1, Wert2, Wert3 : String;
  a : Integer;
begin
  a := 0;

  with FormDatenmodul.qSQL do
  begin
    close;
    with SQL do
    begin
      clear;
      Add('SELECT x,y,z');
      Add('FROM TABELLE_A');
      Add('WHERE x = 4;');
    end;
    open;
    while not EOF do
    begin
      Wert1 := FieldByname('x').asString;
      Wert2 := FieldByname('y').asString;
      Wert3 := FieldByname('z').asString;

      inc(a);

      with FormDatenmodul.qEINFUEGEN do
      begin
        close;
        with SQL do
        begin
          clear;
          Add('INSERT INTO TABELLE_B');
          Add('(a, b, c, d)');
          Add('VALUES(');
          Add('"'+ Wert1 +'",');
          Add('"'+ Wert2 +'",');
          Add('"'+ Wert3 +'",');
          Add('"'+ IntToStr(a) +'"');
          Add(');');
        end;
        ExecSQL;
        close;
      end;

      next;
    end;
  end;

/ungetestet