TOUJOURS LE ON ERRORRésolu

Question

toujours mon probleme avec le on error... 
Quelqu'un pourrait me dire si je pe utiliser le on error de cette maniere ou si une solution plus facile s'offre &#224; moi. En fait en faisant &#224; ma maniere, je suis oblig&#233; de retaper sur chaque feuille le ErreurmsgBox... Je pense qu'il y a bien mieux...
Merci d'avance

Private Sub Command5_Click()
ErreurMsgBox:
MsgBox ("erreur")
Exit Sub
Set con = New ADODB.Connection
'connection &#224; la base
    con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & "H:\projet\metrologie.mdb"
con.Open
 
Set rs = New Recordset
Set rs1 = New Recordset
Set rs2 = New Recordset


    rs1.Open "select * from [type ac] ", con, adOpenDynamic, adLockOptimistic
    p = rs1![num_type]
 


    rs.Open "insert into ac (num_type, design_ac, num_ac) values ('" & p & "', '" & txtdes.Text & "','" & txtsap & "') ", con, adOpenDynamic, adLockOptimistic
    On Error GoTo ErreurMsgBox
 
 
 rs2.Open "insert into FOURNIR (Article, Fourn) values ( '" & txtsap & "', '" & txtfour.Text & "') ", con, adOpenDynamic, adLockOptimistic
 On Error GoTo ErreurMsgBox


End Sub

Renfield · Accepted Answer

Ce n'est pas une solution, je pense...
tu dois g&#233;rer les erreurs..

dans ton cas, deux insert qui se suivent, je te conseille d'utiliser une transaction SQL
si une des requetes coince, les deux sont annul&#233;es....

tu peux pour ton messagebox, utiliser une fonction qui exectuerai tes requetes... afficherai au besoin ton MsgBox ou renverrai un code d'erreur...

voici une version revue de ta proc&#233;dure :

Private Sub Command5_Click()
Dim Con As New ADODB.Connection
Dim RS As New Recordset
Dim num_type As String


    Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & "H:\projet\metrologie.mdb"
On Error GoTo Except_DataError
    Con.Open
    RS.Open "SELECT * FROM [type ac]", Con, adOpenDynamic, adLockOptimistic
    If RS.RecordCount > 0 Then
        RS.MoveFirst
        num_type = RS.Fields("num_type").Value


        Con.BeginTrans
        Con.Execute "INSERT INTO [ac] ([num_type], [design_ac], [num_ac]) VALUES ('" & num_type & "', '" & txtdes.Text & "','" & txtsap & "') "
        Con.Execute "INSERT INTO [FOURNIR] ([Article], [Fourn]) VALUES ( '" & txtsap & "', '" & txtfour.Text & "') "
        Con.RollbackTrans
    End If
    RS.Close
    Set RS = Nothing
    
    Con.Close
    Set Con = Nothing
Exit Sub
Except_DataError:
    Err.Raise Err.Number, "Command5_Click", "Une erreur est survenue lors de l'acc&#232;s a la baase de donn&#233;es." & vbNewLine & Err.Description
    If Not RS Is Nothing Then
        Set RS = Nothing
    End If
    If Not Con Is Nothing Then
        If Con.State = adStateOpen Then
            Con.Close
        End If
        Set Con = Nothing
    End If
End Sub

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

Slyders · Answer

tu peu faire 
erreurmsgbox : exit sub
ou alors 
On error resume next

tof008 · Answer

ben avec le on error resume next ca marche pas, par contre le exit sub marche...
Mais le truc c que je voudrais savoir ou placer le erreurmsgbox : exit sub pour que chaque on error goto erreurmsgbox m'y ram&#233;ne

tof008 · Answer

merci renfield, ca marche nickel ta maniere... juste une question, comment je fais pr mettre la msgbox ds une fction? Je veux juste que si il y a une erreur, je recoive 1 msgbox qui me dit "rempissez correct les champs" (par ex) mais en gardant ta maniere....merci pour ton aide

cs_DARKSIDIOUS · Answer

Erf, en VB 6, tu n'as pas trop le choix !



En VB.NET, il me semble que le langage g&#232;re les exeptions mais pas VB 6 !



Tu peux d&#233;j&#224; mettre la routine de traitement d'erreur &#224; la fin de ta
proc&#233;dure au lieu de la mettre au d&#233;but, ca t'&#233;conomise le Exit sub
apr&#232;s la routine, c'est d&#233;j&#224; c&#224;...


Par contre,

    rs.Open "insert into ac (num_type, design_ac, num_ac) values ('"
& p & "', '" & txtdes.Text & "','" & txtsap &
"') ", con, adOpenDynamic, adLockOptimistic

    On Error GoTo ErreurMsgBox

 

 

 rs2.Open
"insert into FOURNIR (Article, Fourn) values ( '" & txtsap &
"', '" & txtfour.Text & "') ", con, adOpenDynamic,
adLockOptimistic

 On Error GoTo ErreurMsgBox



Je ne vois pas l'int&#233;r&#234;t d'en mettre un &#224; la fin ! autant en mettre qu'un avant la premi&#232;re requ&#234;te d'ouverture, ca suffit !




DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

scortex84 · Answer

Hello,

Effectivement, VB.NEt integre le TRY / Catch qu'il a emprunt&#233; au JAVA pour la gestion des exceptions. Le principal avantage par rapport au "On error go to", c'estla grande simplicit&#233; de gestion de l'erreur.

seb.

tof008 · Answer

Merci pour votre aide! Ca fait plaisir!!

TOUJOURS LE ON ERROR

7 réponses

Discussions similaires