Transactions sous VB 6.0Résolu

Question

Salut Salut...

Bon, encore une petite question...

Je n'ai trouv&#233; que des sujets sans r&#233;ponse pour une question que je me pose...

Voil&#224;, dans ma base, j'effectue un partionnement horizontal, c'est &#224; dire que je transferts des lignes d'une table &#224; une autre identique afin d'all&#233;gerla premi&#232;re table qui est fr&#233;uemment lue... Mais voil&#224;, pour assurer ces transferts, j'aimerai utiliser les transactions... J'ai trouv&#233; un script mais c'est pour VB.NET alors les objets n'exisent pas sous VB6.0...
   Voil&#224; ce que j'ai cod&#233; :

 With sqlcmd
    .ActiveConnection = Conn    .CommandText " INSERT INTO HISTORIQUE ( num_action, bilan_action, jour_action, heure_action, jour_rea_action, heure_rea_action, comm_action, num_tache, num_rea ) VALUES ( SELECT num_action, " & bilan & ", jour_action, heure_action, '" & date_actuelle & "', '" & heure_actuelle & "', " & v_comm & ", num_tache, " & v_id & " FROM Action WHERE num_action " & validation.num.Caption & ") "
End With


' D&#233;but de la transaction
Conn.BeginTrans
' Selon les cas
' Si l'action est OK
If ok = True Then
    ' Le bilan est donc OK
    bilan = True
    If v_comm = "" Then
        v_comm = " La t&#226;che a &#233;t&#233; r&#233;alis&#233; avec succ&#233;s... "
    End If
    sqlcmd.Execute
        If Not Conn.Errors Then
            ' La transaction peut-&#234;tre confirm&#233;e
            Conn.CommitTrans
            Conn.Execute ("DELETE FROM Action WHERE num_action = " & validation.num.Caption & ";")
            MsgBox " Transaction r&#233;alis&#233;e avec succ&#232;s ! "
            Else
            Conn.RollbackTrans
            MsgBox " Les op&#233;rations sur la base de donn&#233;es ont d&#251; &#234;tre abandonn&#233;es... ", vbInformation, "Echec"
        End If
End If
    
If ko = True Then
    bilan = False
    If Len(comm) < 5 Then
        ' On v&#233;rifie que le nombre de caract&#232;re entrer dans une textbox est sup &#224; 5
        MsgBox " Veuillez &#233;crire un commentaire ( au moins 5 caract&#232;res... )", vbInformation, "Texte Insufffisant"
        Else
        sqlcmd.Execute
            If Not Conn.Errors Then
                ' La transaction peut-&#234;tre confirm&#233;e
                Conn.CommitTrans
                Conn.Execute ("DELETE FROM Action WHERE num_action = " & validation.num.Caption & ";")
                MsgBox " Transaction r&#233;alis&#233;e avec succ&#232;s ! "
                Else
                Conn.RollbackTrans
                MsgBox " Les op&#233;rations sur la base de donn&#233;es ont d&#251; &#234;tre abandonn&#233;es... ", vbInformation, "Echec"
            End If
    End If
End If

J'utilise donc Conn.BeginTrans, Conn.CommitTrans & Conn.RollbackTrans... Mais je ne sais pas si c'est la bonne solution...

Mais mon erreur vient de lorsque je test si la requ&#234;te s'est bien execut&#233;... J'ai mis un If Not Conn.Errors mais je sais que ce n'est pas bon...

Un d&#233;but de r&#233;ponse serait donc de savoir comment tester l'execution d'une requete...

Ou un bon tuto sur les transactions sous VB 6.0 et BDD ACCESS, &#231;a ferai aussi plaisir car je n'ai pas trouv&#233;...

Voil&#224;, n'h&#233;sitez pas &#224; me dire les erreurs...

Merki !

++

C'est en forgeant qu'on devient forgeron...

stabe · Accepted Answer

salut,

Si ta requ&#234;te plante, alors ton programme VB plante.
Donc il te suffit de g&#233;rer les erreurs vb.

Dans l'exemple ci-dessous, si l'une quelconque des requetes plante, alors toutes sont annul&#233;es.

Sub MaFonction

on error goto gestionErr

conn.begintrans
   conn.Execute requete1
   conn.Execute requete2
   conn.Execute requete3
   ...
conn.CommitTrans

exit sub

gestionErr :
   conn.RollbackTrans
   msgbox "Y'a eu un plantage quelque part, toutes les requetes ont &#233;t&#233; annul&#233;es", vbcritical

end sub

-- stabe --

SenseiKakashi · Answer

Il suffisait d'y penser... lol

Merci beaucoup !

++

C'est en forgeant qu'on devient forgeron...

Transactions sous VB 6.0

2 réponses

Discussions similaires