EXECSQL und Next

[Cosamia]

Hallo zusammen,

ich habe ein Problem im ExecSql und einem folgenden AdoQuery.next.
Fehler Meldung : Operation bei geschlossener Datenmenge nicht möglich.

Bei einem vorgelagerten AdoQuery.open bekäme ich die Fehlermeldung ""Der aktuelle Provider unterstützt nicht die Wiedergabe mehrfacher Recordsets bei einer einzelnen Ausführung"

Ich will nach dem ersten Datensatz in der Query den nächsten verarbeiten, und dies gelingt mir einfach nicht.

Jemand ne Idee?

Danke.

Delphi-Quellcode:

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

    
    While Not ADOQuerydruck.Eof do
       begin

    {Typ 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}
    adoquerydruck.Active := true;
    adoquerydruck.sql.Clear;
    adoquerydruck.sql.text := 'insert into tempdruck ('+printfields+') SELECT '+printfields+' FROM qryDruck where zahl ='+inttostr(selectedid);
    adoquerydruck.ExecSQL;
    adoquerydruck.Next; //Da kracht es !!
        end;

[soulies]

Zitat:

adoquerydruck.sql.text := 'insert into tempdruck ('+printfields+') SELECT '+printfields+' FROM qryDruck where zahl ='+inttostr(selectedid);
adoquerydruck.ExecSQL;
adoquerydruck.Next; //Da kracht es !!

das INSERT wird doch nur einmal ausgeführt -
wozu das 'next' - das wäre doch nur bei einem SELECT nötig

[DeddyH]

Erstelle eine 2. Query für die Datenmanipulation.

[Cosamia]

Zitat:

Zitat von soulies

Zitat:

adoquerydruck.sql.text := 'insert into tempdruck ('+printfields+') SELECT '+printfields+' FROM qryDruck where zahl ='+inttostr(selectedid);
adoquerydruck.ExecSQL;
adoquerydruck.Next; //Da kracht es !!

das INSERT wird doch nur einmal ausgeführt -
wozu das 'next' - das wäre doch nur bei einem SELECT nötig

Da ich oben den QueryCount zähle, soll ja eben INSERT nicht nur einmal vollzogen werden.

[Cosamia]

Zitat:

Zitat von DeddyH

Erstelle eine 2. Query für die Datenmanipulation.

Danke. Das werde ich gleich mal testen.

[Cosamia]

Entweder habe ich etwas falsch gemacht, oder die Problematik bleibt die selbige.

Bei einem AdoQuery.open kommt : "Der aktuelle Provider unterstützt nicht die Wiedergabe mehrfacher Recordsets bei einer einzelnen Ausführung

Bei einem AdoQuery.next : "Operation bei geschlossener Datenmenge nicht ausführbar"

[DeddyH]

Wie sieht der Quelltext aus?

[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}

[mquadrat]

Statt

Delphi-Quellcode:

adoquerytemp.Next;

meinst du glaub ich

Delphi-Quellcode:

adoquerydruck.Next;

Schließlich willst du durch deine Suchschleife laufen...

[DeddyH]

Außerdem wäre es evtl. sinnvoller, mit SQL_Parametern zu arbeiten.

[Cosamia]

Zitat:

Zitat von mquadrat

Statt

Delphi-Quellcode:

adoquerytemp.Next;

meinst du glaub ich

Delphi-Quellcode:

adoquerydruck.Next;

Schließlich willst du durch deine Suchschleife laufen...

Du hattest recht. jetzt funzt es bis zum nächsten durchlauf. Dann fällt er allerdings bei

Delphi-Quellcode:

adoquerytemp.Active := true;

auf die Nase. Fehler : "Der aktuelle Provider unterstützt nicht die Wiedergabe mehrfacher Recordsets bei einer einzelnen Ausführung"

[Cosamia]

Zitat:

Zitat von DeddyH

Außerdem wäre es evtl. sinnvoller, mit SQL_Parametern zu arbeiten.

Gib mir bitte ein Tip. Ich lerne geren dazu. :-D

[soulies]

Zitat:

Printfields := 'Name,Kundennummer,Strasse,Ort,PLZ,Fax,Telefon,EMa il,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);

ich kenn mich zwar mit sql+access nicht aus aber dein statement lautet ungefähr:

SQL-Code:

insert into tempdruck Name,Kundennummer,Strasse,... SELECT tempdruck Name,Kundennummer,Strasse,... From ...

Ist das so möglich ???


cya

[Cosamia]

Zitat:

Zitat von soulies

Zitat:

Printfields := 'Name,Kundennummer,Strasse,Ort,PLZ,Fax,Telefon,EMa il,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);

ich kenn mich zwar mit sql+access nicht aus aber dein statement lautet ungefähr:

SQL-Code:

insert into tempdruck Name,Kundennummer,Strasse,... SELECT tempdruck Name,Kundennummer,Strasse,... From ...

Ist das so möglich ???


cya

Das Statement funzt ohne Probleme. :thumb:

[DeddyH]

SQL-Parameter

[Cosamia]

Zitat:

Zitat von DeddyH

SQL-Parameter

Danke. Werde ich mir nachher gleich mal zu Gemüte führen.

Hast du mir noch ein Tipp, weshalb das Teil bei dem zweiten Durchlauf auf Nase fällt?

Wenn ich das AdoQueryTemp.active vorlagere fällt er beim zweiten Durchlauf bei dem Sql Statement hin.

Fehler beim INSERT INTO. Beim ersten Druchlauf nimmt er es ohen Probleme.

[Cosamia]

Der erste Datensatz wird geschrieben, beim zweiten knallt es dann.

Muss irgendetwas noch zuürcksetzen?

[DeddyH]

Kann ich den aktuellen Source nochmal sehen? IMO ist es doch unnötig, das Einfüge-Query auf Active zu setzen, da Du ja keine Datenmenge abfragst. Hier sollte ExecSQL doch ausreichen.

[edit] Und hier nochmal ein Beispielthread für SQL-Parameter mit ADO: http://www.delphipraxis.net/internal...=840733#840733 [/edit]

[Cosamia]

Hat sich erledigt. Hatte ein abschließendes "," zuviel in der Ini.

[hoika]

Hallo,

sicher, dass es jetzt klappt ?

Das

Delphi-Quellcode:

adoquerytemp.Active := true;

kannst du komplett weglassen.


Heiko

[Cosamia]

Ja, da hast du Recht.