Probléme table Paradox et BDE

Question

Bonjour,





voil&#224; j'ai fait une appli avec des tables paradox que j ouvre avec BDE,
le principe est que pour chaque client appell&#233;, je cr&#233;e une &#233;tiquette
avec des donn&#233;es que j'incr&#233;mente dans une table ou je fait bien un post a chaque fois.


Mon probl&#233;me est que si le PC plante pour x raison et que l'appli est mal quitter, je perd plein de donn&#233;es.

ex : j'ai cr&#233;&#233; 150 &#233;tiquettes si je quitte proprement mon appli je
l'ai retrouve bien dans ma table sinon j'en retrouve seulement 50
!!!!!!!





comme &#231;i une partie des donn&#233;es restaient dans un cache.





si quelqu'un a une id&#233;e.





Merci d'avance.

jmp77 · Answer

Hello,



Pourrais tu nous donner le morceau de code avec lequel tu inseres tes donn&#233;es dans la table.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

vincentstryckmans · Answer

Bonjour,



1&#232;re piste : as-tu 'poster' les insertions que tu as faites ? Si non
utilises la m&#233;thode Post du TDataset qui lie ton appli &#224; la table
paradox.



2&#232;me piste : le BDE n'est pas 100% stable (sorry monsieur Borland). va
voir sur www.tory.net et tu trouveras, je pense, des composants d'acc&#232;s
&#224; des bases de donn&#233;es sans passer par le BDE.

Et comme disait ma grand-m&#232;re : il y a toujours du soleil derri&#232;re les nuages.

Vincent Stryckmans.

jcbais · Answer

ci-joint mon code ,



        data1.COLIS.Append;

        if data1.COLIS.State = DsInsert then

        begin

         
Data1.COLIS.FieldByName('NFACT').AsString :=
Data1.CLIENT.fieldByName('NFACT').AsString;

          Data1.COLIS.FieldByName('DATEEXP').AsString := Datexp;

          Data1.COLIS.FieldByName('NCOLIS').AsString := Ncolis;

          Data1.COLIS.FieldByName('CAB').AsString := CABR;

          if StrToFloat(Epoids.Text) = 0

          then Data1.COLIS.FieldByName('POID').AsFloat := StrToFloat('0.35')

          else Data1.COLIS.FieldByName('POID').AsFloat := StrToFloat(EPoids.Text);

          if Data1.param.FindKey(['VL'+Midstr(ComboBox1.Text,1,1)])

          then
Data1.COLIS.FieldByName('VOLUME').AsInteger :=
StrToInt(Data1.PARAM.fieldByName('TYPE').asstring)

          else Data1.COLIS.FieldByName('VOLUME').AsInteger :=  0;

          if CheckB2.Checked = True

          then Data1.COLIS.FieldByName('HORSG').AsString := 'O'

          else Data1.COLIS.FieldByName('HORSG').AsString := 'N';

          Data1.COLIS.FieldByName('RGTRANS').AsString := RTPT;

          Data1.COLIS.FieldByName('CTVA').AsString := CTVA;

          Data1.COLIS.FieldByName('MDPORT').AsString := MPRT;

          if CheckB3.Checked = True

          then Data1.COLIS.FieldByName('LIVSR').AsString := 'O'

          else Data1.COLIS.FieldByName('LIVSR').AsString := 'N';

          if CheckB4.Checked = True

          then Data1.COLIS.FieldByName('LIVDU').AsString := 'O'

          else Data1.COLIS.FieldByName('LIVDU').AsString := 'N';

          if CheckB5.Checked = True

          then Data1.COLIS.FieldByName('ALTPH').AsString := 'O'

          else Data1.COLIS.FieldByName('ALTPH').AsString := 'N';

          if (CheckB4.Checked True) And (CheckB5.Checked True)

          then Data1.COLIS.FieldByName('IDTRAIT').AsString := '4'

          else if (CheckB4.Checked True) And (CheckB5.Checked False)

          then Data1.COLIS.FieldByName('IDTRAIT').AsString := '5'

          else Data1.COLIS.FieldByName('IDTRAIT').AsString := '0';

          if CheckB1.Checked = True

          then Data1.COLIS.FieldByName('LVSAM').AsString := 'O'

          else Data1.COLIS.FieldByName('LVSAM').AsString := 'N';

          Data1.COLIS.FieldByName('DVCR').AsString := DVCR;

          Data1.COLIS.FieldByName('DVAS').AsString := DVAS;

          Data1.COLIS.FieldByName('CPAY').AsString := CPAY;

          Data1.COLIS.FieldByName('DELA').AsString := DELA;

          Data1.COLIS.FieldByName('NBCOLIS').AsInteger := 1;

          Data1.COLIS.FieldByName('EXP').AsString := 'N';

         
Data1.COLIS.FieldByName('CROUT').AsString :=
midstr(CROUT,1,2)+MidStr(CROUT,4,2);

          Data1.COLIS.FieldByName('CDEP').AsString := CDEP;

          Data1.COLIS.Post;

        end;



Merci d'avance

jmp77 · Answer

Re,



Pourrais tu me decrire les composants que tu utilises pour te connecter a une table :

TDataBase

   -TDataSource

   -TTable



Qui est Data1 dans le morceau de code que tu nous as donn&#233; ci dessus ?


Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

jcbais · Answer

Oui pardon, alors



Data1 est mon unit&#233; ou sont toutes mes tables ensuite j'ai un TDataBase pour ma BDE et des TTable pour les tables paradox.

toutes mes bases et tables sont ouvertes au d&#233;marrage de l'appli, pour
la table COLIS qui me pose probl&#233;me, elle est ouverte en exclusif.



merci

vincentstryckmans · Answer

Re-bonjour,



J'ai du d&#233;velopper une appli delphi - paradox, il y a quelques ann&#233;es
et je me souviens avoir utiliser les Tsession pour solutionner des
probl&#232;mes d'&#233;criture dans les tables qui peuvent &#234;tre similaire aux
tiens.

Si j'ai bonne m&#233;moire, j'avais une session par table et j'ouvrais et
fermais la session avant d'ins&#233;rer ou &#233;diter un record dans la table.
Normalement le BDE va cr&#233;er une session par d&#233;afut pour toi, mais
j'avais constat&#233; qu'il &#233;tait pr&#233;f&#233;rable de cr&#233;er mes propres sessions.

De m&#234;me, j'avais configurer toutes les TDatabase dans le code, sans
faire appel un alais du BDE, cela me causait moi de probl&#232;mes.

Voici ce que cela pourrait donner avec les sessions :



try

    session.open;

    with table do

    begin

        open;

        if state = dsbrowse then

        begin

            append;

            if state = dsinsert then

            begin

                fieldbyname('field1').as... := ...;

                ...

                post;

            end;

        end;

        close;

    end;

    session.close;

except

    on exception do ...

end;


En esp&#233;rant que cela puisse t'aider.
Et comme disait ma grand-m&#232;re : il y a toujours du soleil derri&#232;re les nuages.

Vincent Stryckmans.

jcbais · Answer

d&#233;sol&#233; pour cette reponse tardive, merci &#224; tous pour votre aide.



j'ai opt&#233; pour la solution suivante :



Dans le AfterPost

tu met :

DbiSaveChanges(Table1.HANDLE);

mais tu n'oublis pas dans la clause uses : dbiProcs



et apr&#233;s test, &#231;a marche super bien.





encore MERCI 

jc

Probléme table Paradox et BDE

7 réponses

Votre réponse

Discussions similaires