Ajout dans une base ?! pb !

minipod Messages postés 60 Date d'inscription mardi 18 juin 2002 Statut Membre Dernière intervention 8 mars 2003 - 14 oct. 2002 à 19:27
PatriceVB Messages postés 562 Date d'inscription dimanche 16 décembre 2001 Statut Modérateur Dernière intervention 26 décembre 2007 - 14 oct. 2002 à 21:27
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

PatriceVB Messages postés 562 Date d'inscription dimanche 16 décembre 2001 Statut Modérateur Dernière intervention 26 décembre 2007
14 oct. 2002 à 21:27
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
Rejoignez-nous