Fehler bei einem aus mehreren Schritten bestehenden Vorgang.

**p80286**

Hallo zusammen,
ich habe folgende Fehlermeldung bei einer Abfrage mit ADOQuery bekommen:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt UPDATE.exe ist eine Exception der Klasse EOleException mit der Meldung 'Fehler bei einem aus mehreren Schritten bestehenden Vorgang. Prüfen Sie die einzelnen Statuswerte' aufgetreten.
---------------------------

Umgehen konnte ich den Fehler, indem ich ein paar Felder von der Ausgabe ausgeschlossen habe oder indem ich das Datum gleich als String ausgegeben habe (to_date(...)).

Ich finde es nur seltsam, daß diese Abfrag erst beim 100. oder 125. oder 130. oder ... Durchlauf vor die Wand läuft. Wisst Ihr wo es da klemmt?

zusammenfalten · markieren

Delphi-Quellcode:

			const

  sqltext='select tabdos.idedos,coddos,noorig,tabbre.numdep,tabbre.datdep,tabpay.codpay '+

          ',tabbre.numpub,tabbre.datpub,tabbre.numdlv,tabbre.datdlv'+

          ',to_char(tabbre.datexp,''YYYYMMDD'') datexp,to_char(tabbre.databd,''YYYYMMDD'') databd '+  { so geht's}

       //   ',tabbre.datexp,tabbre.databd '   -- so geht's nicht

          'from tabdos,tabbre,tabpay '+

          'where tabdos.idedos=tabbre.idedos '+

          '  and tabpay.idepay=tabbre.idepay '+

          '  and tabbre.idebre=:_idebre ';

begin

  result:='';

  upd_dm.ADOQ_MIS.close;

  upd_dm.ADOQ_MIS.sql.Text:=sqltext;

  upd_dm.ADOQ_MIS.Parameters.ParamByName('_idebre').value:=idebre;

  upd_dm.ADOQ_MIS.open;

  if not upd_dm.ADOQ_MIS.eof then begin

    repeat

      result:='CODDOS='+upd_dm.ADOQ_MIS.fieldbyname('coddos').AsString+

              ' NOORIG='+upd_dm.ADOQ_MIS.fieldbyname('noorig').AsString+

              ' CODPAY='+upd_dm.ADOQ_MIS.fieldbyname('codpay').AsString+

              ' NUMDEP='+upd_dm.ADOQ_MIS.fieldbyname('numdep').AsString+

              ' DATDEP='+upd_dm.ADOQ_MIS.fieldbyname('datdep').AsString+

              ' NUMPUB='+upd_dm.ADOQ_MIS.fieldbyname('numpub').AsString+

              ' DATPUB='+upd_dm.ADOQ_MIS.fieldbyname('datpub').AsString+

              ' NUMDLV='+upd_dm.ADOQ_MIS.fieldbyname('numdlv').AsString+

              ' DATDLV='+upd_dm.ADOQ_MIS.fieldbyname('datdlv').AsString+

              ' DATABD='+upd_dm.ADOQ_MIS.fieldbyname('databd').AsString+

              ' DATEXP='+upd_dm.ADOQ_MIS.fieldbyname('datexp').AsString;

      upd_dm.ADOQ_MIS.next;

    until upd_dm.ADOQ_MIS.eof;

  end;

  upd_dm.ADOQ_MIS.close;

end;

Gruß
K-H

Fehler bei einem aus mehreren Schritten bestehenden Vorgang.

Fehler bei einem aus mehreren Schritten bestehenden Vorgang.

Forumregeln