[VB] Ajout et validation en ADO

[rony95]

Bonjour,

je ne sais pas si on peut poser ce genre de question ici, mais je voulais savoir comment AJOUTER et VALIDER en ADO!

En effet, je suis avec cette technologie mais j'arrive absolument pas à avancer.

Voici mon code pour le bouton ajouter:

Private Sub cmdajouter_Click()

Adodc1.Recordset.AddNew 'Permet de rajouter un nouvel enregistrement dans la base de donnée
DataCombo1.Visible = False
Text1.Visible = True

Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Text10.Enabled = True
Text2.SetFocus

DataCombo1.Enabled = False
cmdretour.Enabled = True
cmdmenu.Enabled = True
cmdajouter.Enabled = False
cmdsupprimer.Enabled = False
cmdmodifier.Enabled = False
cmdvalider.Enabled = True
cmdannuler.Enabled = True

End Sub

et pour mon bouton valider:

Private Sub cmdvalider_Click()


If Text2 = "" Or Text3 = "" Or Text4 = "" Or Text5 = "" Or Text6 = "" Or Text7 = "" Or Text8 = "" Or Text9 = "" Or Text10 = "" Then
rep = MsgBox("VOUS N'AVEZ PAS SAISI TOUTES LES INFORMATIONS", vbCritical + vbDefaultButton1 + vbOKOnly, "Erreur")
Else
If Text2 = "0" Or Text3 = "0" Or Text4 = "0" Or Text5 = "0" Or Text6 = "0" Or Text7 = "0" Or Text8 = "0" Or Text9 = "0" Or Text10 = "0" Then
rep2 = MsgBox("VOUS NE POUVEZ PAS SAISIR LA VALEUR ZERO", vbCritical + vbOKOnly + vbDefaultButton1, "ERREUR")
Else

Adodc1.Recordset.Update
Adodc1.Refresh

cmdvalider.Enabled = False
cmdannuler.Enabled = False
cmdajouter.Enabled = True
cmdsupprimer.Enabled = True
cmdmodifier.Enabled = True

Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text3.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
   End If
End If
End Sub

Le problème dans tout ça c'est que j'ai un message d'erreur suivant: Une opération en plusieurs étapes a généré es erreurs. Vérifiez chaque valeur état. en cliquant sur le bouton Valider qui me redirige automatique sur la ligne suivante:

Adodc1.Recordset.Update

Quelqu'un peut-il m'aider s'il vous plait?

Merci d'avance pour vos lumières!