OVH Cloud OVH Cloud

Méthode AddNew en ADO ???

2 réponses
Avatar
MD
bonjour

je m'essaie à vba ADO et je me heurte à l'impossibilité d'utiliser les
méthode
.addnew
.update
...
est ce normal ?

Voir code ci aprés qui bloque sur mon .addnew

Dim conn As New ADODB.Connection
Dim RS As New ADODB.Recordset
Set conn = CurrentProject.Connection
RS.Open "acteur", conn
RS.AddNew
RS("n°acteur") = znumact
RS("nomacteur") = znom
RS.Update

ces méthodes ne fonctionnent elles qu'en DAO ?
si oui coment faire en ADO la même chose ?

Merci peut être à Raymond et Benoît !!!

Michel

2 réponses

Avatar
Raymond [mvp]
Bonjour.

Tu as un problème de curseur.
un exemple simple:
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Rs.ActiveConnection = CurrentProject.Connection
Rs.Open "table1", , adOpenKeyset, adLockOptimistic, adCmdTable
Rs.AddNew
Rs("Lenom") = "raymond"
Rs.Update ') ou
Rs.MoveFirst ') par exemple
Rs.Close
Set Rs = Nothing

update n'est pas obligatoire si on se déplace immédiatement derrière.

il y a pas mal de doc sur ado sur les sites nommés dans mes liens
privilégiés.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"MD" a écrit dans le message de
news:
bonjour

je m'essaie à vba ADO et je me heurte à l'impossibilité d'utiliser les
méthode
.addnew
.update
...
est ce normal ?

Voir code ci aprés qui bloque sur mon .addnew

Dim conn As New ADODB.Connection
Dim RS As New ADODB.Recordset
Set conn = CurrentProject.Connection
RS.Open "acteur", conn
RS.AddNew
RS("n°acteur") = znumact
RS("nomacteur") = znom
RS.Update

ces méthodes ne fonctionnent elles qu'en DAO ?
si oui coment faire en ADO la même chose ?

Merci peut être à Raymond et Benoît !!!

Michel




Avatar
MD
merci bcp

j'avais oublié une instruction:

rs.activeconnection...

Ca marche !





"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

Tu as un problème de curseur.
un exemple simple:
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Rs.ActiveConnection = CurrentProject.Connection
Rs.Open "table1", , adOpenKeyset, adLockOptimistic, adCmdTable
Rs.AddNew
Rs("Lenom") = "raymond"
Rs.Update ') ou
Rs.MoveFirst ') par exemple
Rs.Close
Set Rs = Nothing

update n'est pas obligatoire si on se déplace immédiatement derrière.

il y a pas mal de doc sur ado sur les sites nommés dans mes liens
privilégiés.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"MD" a écrit dans le message de
news:
bonjour

je m'essaie à vba ADO et je me heurte à l'impossibilité d'utiliser les
méthode
.addnew
.update
...
est ce normal ?

Voir code ci aprés qui bloque sur mon .addnew

Dim conn As New ADODB.Connection
Dim RS As New ADODB.Recordset
Set conn = CurrentProject.Connection
RS.Open "acteur", conn
RS.AddNew
RS("n°acteur") = znumact
RS("nomacteur") = znom
RS.Update

ces méthodes ne fonctionnent elles qu'en DAO ?
si oui coment faire en ADO la même chose ?

Merci peut être à Raymond et Benoît !!!

Michel