Bonjour,

Je me suis mis depuis peu à VB, et je rencontre des problemes pour l'insertion de données dans une base de donnée access en .mdb.

Je fonctionne avec VISUAL BASIC 6.0 et WINDOWS XP.

Mon formulaire VB est simple, il contient des contrôles text, des contrôles option et un bouton "enregistrer" pour pouvoir enregistrer les données dans la base une fois le formulaire rempli.

Après plusieurs heures de recherche, voici à quoi ressemble mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()
Dim Cnn1 As ADODB.Connection
Set Cnn1 = New ADODB.Connection
Cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=maBase.mdb ;User Id=Admin; Password="
End Sub
 
Private Sub cmdEnregistrer_Click()
Dim MonRs As ADODB.Recordset
Set MonRs = Cnn1.Execute("INSERT INTO plante VALUES('ortie','ca pique','18','40','30','calcaire','verte','1','1','1','ortie.JPG'")
End Sub
Le problème est le suivant : lorsque j'execute le code, j'optient un message d'erreur à la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dim Cnn1 As ADODB.Connection
Le message d'erreur est le suivant : " compil error : User-defined type not defined".

Ma question est donc : d'où vient l'erreur ? aurais-je oublié quelque chose ?

J'attends vos réponses, merci d'avance.