TIBTransaction déclenche une exceptionRésolu

Question

Bonjour,



Je lis le contenu d'une table (Interbase) via un TIBDataset avec le code suivant :

  with dmInciBase.sq_resp_avis do

  begin

    with SelectSQL do

    begin

      clear;

      add('select * from resp_incident where lnk_avis = ' + IntToStr(id_cur_avis));

    end; // with SelectSQL do

    open;

    while not eof do

    begin

        // ... transfert des valeurs de champ dans une array dynamique

      next;

    end; // while not eof do

    close;

  end; // with dmInciBase.sq_resp_avis do



Le dataset a un BeforeOpen event pour d&#233;marrer sa transaction :

procedure TdmInciBase.sq_resp_avisBeforeOpen(DataSet: TDataSet);

begin

   if not it_sq_resp_avis.InTransaction then it_sq_resp_avis.StartTransaction;

end;

Un event AfterClose va faire un commit de la transaction.



Mon probl&#232;me est le suivant : &#224; la deuxi&#232;me ou troisi&#232;me lecture de mon dataset, j'ai des d&#233;clenchements d'exception :



soit EAccessviolation juste apr&#232;s le 'Starttransaction'

soit EInvalidpointer jutse apr&#232;s que le 'open' du dataset soit ex&#233;cuter



Je ne comprends rien ????

Et comme disait ma grand-m&#232;re : il y a toujours du soleil derri&#232;re les nuages.

Vincent Stryckmans.

vincentstryckmans · Accepted Answer

En fait, les exceptions n'ont strictement rien &#224; voir avec la
transaction ou le dataset mais avec l'arry dynamique dans laquelle
j'assigne les valeurs de la table.

La valeur d'indice que je donnais &#224; l'array &#233;tait sup&#233;rieur &#224; celui de la taille de l'array. Bref plantage.



Cependant je ne comprend pas pourquoi l'exception est d&#233;clench&#233; 3 ou 4 lignes avant celle de l'erreur. Myst&#232;re

Et comme disait ma grand-m&#232;re : il y a toujours du soleil derri&#232;re les nuages.

Vincent Stryckmans.

cs_Delphiprog · Answer

Question b&#234;te : quel est l'int&#233;r&#234;t de d&#233;marrer une transaction de le
cas d'une requ&#234;te SELECT ? Et le Commit, il sert &#224; quoi dans ton cas ?

<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html

vincentstryckmans · Answer

Henry Ford disait que l'exp&#233;rience est le nom que l'homme donne &#224; la somme de toutes ces erreurs.



Et bien, je crois que mon exp&#233;rience vient encore de grandir.



Merci &#224; toi Delphiprog

Et comme disait ma grand-m&#232;re : il y a toujours du soleil derri&#232;re les nuages.

Vincent Stryckmans.

cs_Delphiprog · Answer

Tu as failli me faire douter... Sacr&#233; Vincent !

<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html

TIBTransaction déclenche une exception

4 réponses

Votre réponse

Discussions similaires