EXECSQL und Next

[Cosamia]

Delphi-Quellcode:

 {Query nach Countabfrage neu füllen}
    adoquerydruck.active:=false;
    adoquerydruck.sql.Clear;
    adoquerydruck.sql.text := 'SELECT * FROM qryDruck';
    adoquerydruck.Open;


    //for I := 0 to quanta - 1 do begin {Die Anzahl der Bestellungen durchlaufen}

    While Not ADOQuerydruck.Eof do
       begin

    {Linsentyp bestimmen}
    cltype := adoquerydruck.FieldByName('TYP').AsString;
    selectedid := adoquerydruck.FieldByName('Zahl').AsInteger;

    {Felder aus der INI lesen}
    IniFile := TIniFile.create(GetIniFilename);
        try
          clprintfields := IniFile.ReadString ('CLTYPES',cltype,'');
        finally
          inifile.Free;
        end;
    {Printfields zusammensetzen / CL-Felder mit Stammdaten}
    Printfields := 'Name,Kundennummer,Strasse,Ort,PLZ,Fax,Telefon,EMail,Zahl,Kommission,'+clprintfields;

    {Felder aus der INI in ein SELECT bügeln / Stammdaten nicht vergessen}
    adoquerytemp.Active := true;
    adoquerytemp.sql.Clear;
    adoquerytemp.sql.text := 'insert into tempdruck ('+printfields+') SELECT '+printfields+' FROM qryDruck where zahl ='+inttostr(selectedid);
    adoquerytemp.ExecSQL;
   adoquerytemp.Next;
        end; {For I}