OVH Cloud OVH Cloud

Seek en ADO ???

7 réponses
Avatar
MD
Je progresse doucement en ADO.
J'ai réussi à créer, modifier, supprimer ds une table mais par accés
séquentiel au record Set.
Pour l'accés direct, par seek ou find ? je n'y arrive pas.
Sous Access 2000, ces méthodes existent elles?

Cf code ci dessous qui produit une erreur comme quoi l'objet ne prend pas en
charge cette opération???

Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Rs.ActiveConnection = CurrentProject.Connection
Rs.Open "acteur", , adOpenKeyset, adLockOptimistic, adCmdTable
Rs.Index = "Primarykey"
Rs.Seek znumact
MsgBox Rs!nomacteur
...

Merci Raymond !!! ou confrère ...

7 réponses

Avatar
Raymond [mvp]
Bonsoir.

Quelle est la ligne en erreur ?
il manque quelque chose;
Rs.ActiveConnection = CurrentProject.Connection
Rs.Open "acteur", , adOpenKeyset, adLockOptimistic, adCmdTable
Rs.Index = "Primarykey"
Rs.Seek znumact, adseekaftereq ' par exemple

if rst.eof then

de tête, vu l'heure tu vérifies la ligne seek .
--
@+
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:
Je progresse doucement en ADO.
J'ai réussi à créer, modifier, supprimer ds une table mais par accés
séquentiel au record Set.
Pour l'accés direct, par seek ou find ? je n'y arrive pas.
Sous Access 2000, ces méthodes existent elles?

Cf code ci dessous qui produit une erreur comme quoi l'objet ne prend pas
en

charge cette opération???

Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Rs.ActiveConnection = CurrentProject.Connection
Rs.Open "acteur", , adOpenKeyset, adLockOptimistic, adCmdTable
Rs.Index = "Primarykey"
Rs.Seek znumact
MsgBox Rs!nomacteur
...

Merci Raymond !!! ou confrère ...




Avatar
MD
Raymond, merci et bonjour.
J'ai un pb ADo avec index et seek sur les RS.
Voici le code en question:

Private Sub Commande16_Click()
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Rs.ActiveConnection = CurrentProject.Connection
Rs.Open "acteur", , adOpenKeyset, adLockOptimistic, adCmdTable
Rs.Index = "Primarykey"
Rs.Seek znumact, adSeekAfterEQ
MsgBox Rs!nomacteur
End Sub

ça plante sur la ligne rs.index="primarykey", en disant que l'objet (le rs
je pense) ne prend pas en compte l'opération? je ne comprends pas.On dirait
que je ne peux pas indexé le rs sur la primarykey!

Ensuite, j'essaie d'accéder directement à un élément du RS, en utilisant
seek.
La valeur znumact est connue et renseignée.
cette instruction est elle correcte?

Merci bcp pour le temps passé et pour l'aide apportée.
Michel

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

Quelle est la ligne en erreur ?
il manque quelque chose;
Rs.ActiveConnection = CurrentProject.Connection
Rs.Open "acteur", , adOpenKeyset, adLockOptimistic, adCmdTable
Rs.Index = "Primarykey"
Rs.Seek znumact, adseekaftereq ' par exemple

if rst.eof then

de tête, vu l'heure tu vérifies la ligne seek .
--
@+
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:
Je progresse doucement en ADO.
J'ai réussi à créer, modifier, supprimer ds une table mais par accés
séquentiel au record Set.
Pour l'accés direct, par seek ou find ? je n'y arrive pas.
Sous Access 2000, ces méthodes existent elles?

Cf code ci dessous qui produit une erreur comme quoi l'objet ne prend
pas


en
charge cette opération???

Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Rs.ActiveConnection = CurrentProject.Connection
Rs.Open "acteur", , adOpenKeyset, adLockOptimistic, adCmdTable
Rs.Index = "Primarykey"
Rs.Seek znumact
MsgBox Rs!nomacteur
...

Merci Raymond !!! ou confrère ...








Avatar
Raymond [mvp]
Bonjour.

En ado la méthode n'est pas la même car ado ne gère pas les index client et
faut positionner le curseur.
exemple:
Private Sub Commande0_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Index = "primarykey"
rs.CursorLocation = adUseServer
rs.Open "acteur", CurrentProject.Connection, adOpenKeyset,
adLockOptimistic, adCmdTableDirect
rs.Seek znumact, adSeekAfterEQ
If Not rs.EOF Then
MsgBox Rs!nomacteur
End If
rs.Close
Set rs = Nothing
End Sub
ça devrait faire.

--
@+
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:%
Raymond, merci et bonjour.
J'ai un pb ADo avec index et seek sur les RS.
Voici le code en question:


Avatar
MD
merci bcp raymond
ADO sans livre c'est pas évident, je te remercie vivement pour ta rapidité,
ta promptitude et ton talent.


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

En ado la méthode n'est pas la même car ado ne gère pas les index client
et

faut positionner le curseur.
exemple:
Private Sub Commande0_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Index = "primarykey"
rs.CursorLocation = adUseServer
rs.Open "acteur", CurrentProject.Connection, adOpenKeyset,
adLockOptimistic, adCmdTableDirect
rs.Seek znumact, adSeekAfterEQ
If Not rs.EOF Then
MsgBox Rs!nomacteur
End If
rs.Close
Set rs = Nothing
End Sub
ça devrait faire.

--
@+
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:%
Raymond, merci et bonjour.
J'ai un pb ADo avec index et seek sur les RS.
Voici le code en question:






Avatar
Raymond [mvp]
Il me semble qu'il doit y avoir , pas un cours mais des détails chez Walter.
http://mypage.bluewin.ch/w.stucki/

--
@+
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:%
merci bcp raymond
ADO sans livre c'est pas évident, je te remercie vivement pour ta
rapidité,

ta promptitude et ton talent.


Avatar
Benoit Compoint [MS]
Bonjour Raymond et Michel,

J'attire votre attention sur un bug concernant la méthode Seek et ADO 2.1 et
2.5.
Ce problème est décrit dans la page Web ci-dessous :
http://support.microsoft.com?id#9941

La première version d'Access 2000 est fournie avec ADO 2.1.
La seconde version d'Access 2000 (Access 2000 SR-1) et Access 2002 sont
fournis avec ADO 2.5.

Comme Windows XP est fourni avec MDAC 2.7 qui contient ADO 2.7,
ce problème ne concerne pas les utilisateurs de Windows XP.

Pour les versions antérieures de Windows, je vous conseille de télécharger
MDAC 2.8 ou MDAC 2.7 SP1 ou encore MDAC 2.6 SP2 à partir de la page Web
suivante :
http://msdn.microsoft.com/library/default.asp?url=/downloads/list/dataaccess.asp

Benoit Compoint

"Raymond [mvp]" wrote in message
news:
Il me semble qu'il doit y avoir , pas un cours mais des détails chez
Walter.

http://mypage.bluewin.ch/w.stucki/

--
@+
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:%
merci bcp raymond
ADO sans livre c'est pas évident, je te remercie vivement pour ta
rapidité,

ta promptitude et ton talent.






Avatar
MD
merci de l'information, je vais tâcher de faire la maj.


"Benoit Compoint [MS]" a écrit dans le
message de news:%23jx1nj%
Bonjour Raymond et Michel,

J'attire votre attention sur un bug concernant la méthode Seek et ADO 2.1
et

2.5.
Ce problème est décrit dans la page Web ci-dessous :
http://support.microsoft.com?id#9941

La première version d'Access 2000 est fournie avec ADO 2.1.
La seconde version d'Access 2000 (Access 2000 SR-1) et Access 2002 sont
fournis avec ADO 2.5.

Comme Windows XP est fourni avec MDAC 2.7 qui contient ADO 2.7,
ce problème ne concerne pas les utilisateurs de Windows XP.

Pour les versions antérieures de Windows, je vous conseille de télécharger
MDAC 2.8 ou MDAC 2.7 SP1 ou encore MDAC 2.6 SP2 à partir de la page Web
suivante :

http://msdn.microsoft.com/library/default.asp?url=/downloads/list/dataaccess.asp


Benoit Compoint

"Raymond [mvp]" wrote in message
news:
Il me semble qu'il doit y avoir , pas un cours mais des détails chez
Walter.

http://mypage.bluewin.ch/w.stucki/

--
@+
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:%
merci bcp raymond
ADO sans livre c'est pas évident, je te remercie vivement pour ta
rapidité,

ta promptitude et ton talent.