[Déplacé .Net -- VBA] recordersetRésolu

Question

bonjour
svp j ai un probleme concernant l'insertion dans une base de données accces en utilsant vba
j utilise le code suivant
Public Sub con()
'declaration des objet ado
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
'instanciation des objets
Set cnx = New ADODB.Connection
'connection à la base de données
cnx.Provider = "Microsoft.ACE.OLEDB.12.0"
cnx.ConnectionString = "D:\cours\projet\bd1.mdb"
cnx.Open
If cnx.State = adStateOpen Then
MsgBox ("connextion resussie")
Else
MsgBox ("connection failed")
End If
Set rst = New ADODB.Recordset
'ecrire des enregistrement sur une table dans la base de données
rst.Open "select*from Agence", cnx, adOpenKeyset, adLockOptimistic
rst.AddNew nomagence, regiecentrale
rst.Update
End Sub
***************************

le nom de la table  ou va s effectuer l insertion est agence et le nom de la colonne est nomagence
mais une fois je compile y a cette erreur qui sort:
run time erorr '3265'
item can not be found in the collection corresponding to the requested name or ordinal
j attend votre reponse
******************************
si qq1 pourrait m'indiquer des tutoriels pour VBA sous autocad.merci

cs_Jack · Accepted Answer

Salut
Quels sont les champs composant ta table Agence ?
Voir l'aide de cette commande dans l'aide de VBA
Utilisation de AddNew  :
Une fois que tu as chargé toute ta table dans le RecordSet, tu fais un simple
monRecordSet.AddNew
Ensuite, il te faut remplir chaque champ composant un enregistrement :
monRecordSet.Field("monChamp1").Value = "le texte qui va bien"
monRecordSet.Field("monChamp2").Value = maVariableVB
etc
Et, pour enregistrer cette fiche complète, tu fais un simple
monRecordSet.Update

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

simaodinho · Answer

MERCI jack ,ça a marché; j'avais utilisé une mauvaise syntaxe de la methode addNew
pour le help vba ça ne marche pas chez moi,je met le curseur sur le mot puis je clique f1 ça me donne que le help existe mais une fois je clique le help,ca ne marche pas!!si vous avez une idée sur ce probleme

[Déplacé .Net --> VBA] recorderset

2 réponses

Votre réponse