HELP ADO : No transaction is active ????????????????????

Question

Bonjour, j'utilise le code suivant pour g&#233;rer l' erreur ADO "la table est verouill&#233;e", car en reseau access ne semble par tenir le cou sans ca sur des grosses bases
Cela fonctionne,
Mais sur un de mes clients j'obtiens systematiquement le code -2147168242, ce qui correspond &#224; No transaction is active
Seul son poste principal pose probleme, les autres postes fonctionnent.
Comment est il possible d'avoir un message "No transaction is active" alors qu'on passe systematiquement par Ado.BeginTrans, C'est incomprehensible

Refaire1:
    Err.Number = 0
    On Error Resume Next
    
    Ado.BeginTrans
    
    RS.AddNew
    
    RS.fields("Nom").value = "TOTO"


    RS.Update
    
    Ado.CommitTrans
    
    If Err.Number <> 0 Then GoTo RStrans_Err1
    Err.Number = 0: Err.Clear  'au choix
    On Error GoTo 0  ' fin de la gestion d&#146;erreur



exit sub


RStrans_Err1:
    If InStr(CStr(Err.Number), "2147") > 0 Then
        Ado.RollbackTrans
        RS.CancelUpdate
        Pause GTimeSleepBD
        
        Err.Clear
        GoTo Refaire1
    End If


Exit Sub

mrdep1978 · Answer

Salut, Après une brève (mais intense) analyse : Le problème peut arriver si tu as une erreur qqe part dans cette partie du code : Ado.BeginTrans RS.AddNew RS.fields("Nom").value = "TOTO" RS.Update Ado.CommitTrans Supposons qu'une erreur se produise sur RS.Update : Comme tu fais un On Error Resume Next, tu exécutes qd même Ado.CommitTrans. Donc ta transaction se ferme. Cependant comme il y a eu une erreur, Err.Number est différent de 0 > ton instruction If Err.Number <> 0 Then GoTo RStrans_Err1 t'envoie en RStrans_Err1: et si ton test If Instr(...) Then est validé, tu fais un Rollback sur une transaction fermée. CQFD Conclusion, au lieu de mettre On Error Resume Next tu devrais peut être mettre On Error Goto RStrans_Err1 et virer If Err.Number <> 0 Then GoTo RStrans_Err1 Err.Number = 0: Err.Clear 'au choix On Error GoTo 0 ' fin de la gestion d’erreur

cs_globule · Answer

En fait j'ai trouv&#233; il suffit de supprimer
Ado.RollbackTrans
Et ca fonctionne, j'avais deja essay&#233; avec le On Error Goto RStrans_Err1
mais le traitement d'erreur ne fonctionnait plus correctement (surtout si on avait 2 gestions dans la m&#234;me procedure)

HELP ADO : No transaction is active ????????????????????

2 réponses

Discussions similaires