Ajout dans une base ?! pb !

Signaler
Messages postés
60
Date d'inscription
mardi 18 juin 2002
Statut
Membre
Dernière intervention
8 mars 2003
-
Messages postés
562
Date d'inscription
dimanche 16 décembre 2001
Statut
Modérateur
Dernière intervention
26 décembre 2007
-
Je cherche à ajouter un enregistrement dans une base Access à l'aide d'ADO !

Voici mon code:

With Adodc5

.Recordset.AddNew
.Recordset.Fields("nomcolp") = Text22.Text
.Recordset.Fields("prenomcolp") = Text21.Text
.Recordset.Fields("numruecolp") = Text18.Text
.Recordset.Fields("ruecolp") = Text19.Text
.Recordset.Fields("infoscolp") = Text23.Text
.Recordset.Fields("cpcolp") = Text24.Text
.Recordset.Fields("villecolp") = Text25.Text
.Recordset.Fields("teldomicilecolp") = Text26.Text
.Recordset.Fields("telmobilecolp") = Text27.Text
.Recordset.Update
.Recordset.Close

End With

Le programme bloque et me pointe la première ligne : ".Recordset.AddNew" en me disant : "Variable objet ou Bloc With non défini" !

Quelqu'un peut m'aider SVP ?
Merci.

1 réponse

Messages postés
562
Date d'inscription
dimanche 16 décembre 2001
Statut
Modérateur
Dernière intervention
26 décembre 2007
1
créé un recordset indépendant de tes controles c 'est plus simple :
Dim myconnection as adodb.connection
dim myrecordset as adodb.recordset
set myconnection=new adodb.connection
myconnection.Provider = "Microsoft.Jet.Oledb.3.5"
myconnection.ConnectionString = "cheminfichier"
myconnection.open
set myrecordset=new adodb.recordset
myrecordset.open "sql ou nomtable",myconnection, adOpenDynamic, adLockPessimistic
myrecordset.addnew
|
|insertion des champs
ex: myrecordset!nomchamp="bidule"
|
myrecordset.update
voilà
@+
0