Access ADO : Seek MethodRésolu

Question

Bonjour,

J'ai jusqu'à aujourd'hui programmé en VBA sous la référence DAO. Je maitrise bien l'ensemble des possibilités mais je souhaite désormais passer à ADOcar j'ai peur que DAO ne soit plus supporté dans les prochaines versions office de Microsoft.
J'ai donc entamé un programme dans lequel il me faudrait utiliser l'equivalent de la methode Seek en DAO.

Voici le code que j'utilise en ADO :

Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset


Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset


'Set the connection properties and open the connection.
With conn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "C:\A_DATA_WAREHOUSE\SAP_Ticket_Prg\BackEnd_SAP_Ticket_Prg.mdb"
    .Open
End With
   
With rst


    rst.Index = "SUJET"
    'Set the location of the cursor service.
    .CursorLocation = adUseServer
    'Open the recordset.
    .Open "Tb_Facts_Temp_Inbox_IT_Coord", conn, adOpenKeyset, _
      adLockOptimistic, adCmdTableDirect
    .Seek nouvsujet, adSeekFirstEQ
    
End With


Rank1 = rst![Rank] 'je souhaite recupérer la valeur de ce champs dans le recordset detecté par la methode Seek

rst.Close
conn.Close

Mon soucis : Dans le cadre d'une boucle dans laquelle j'utilise Seek plusieurs fois, cette methode fonctionne uniquement pour la premiere recherche, et dès le deuxieme passage dans ma boucle, il apparait le message suivant :

"Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record"

Je ne comprend pas car ce record existe. Cela pourrait il être lié à un problème de positionnement du curseur ?

Merci pour votre aide

Jemby

jemby · Accepted Answer

Merci à tous, Mon problème est réglè.


Jemby

chaibat05 · Answer

Bonjour,
Fais un MoveFirst après chaque recherche.
Je n' ai aucune idée comment est écrite ta boucle.
A toi de voir ou tu dois le placer.

chaibat05 · Answer

Tu dois aussi définir ton CursorType à adOpenDynamic.

cs_MPi · Answer

Et tant qu'à faire, utiliser 
.CursorLocation = adUseClient

qui est plus rapide et ne cause pas de problème avec RecordCount

MPi

chaibat05 · Answer

Bonsoir MPi,
En plus avec CursorLocation = adUseClient 
je crois que c' est pas la peine de rajouter 
MoveNext dans la boucle , non ?
C' est juste pour savoir.

chaibat05 · Answer

Pardon.
je voulais dire MoveFirst

Access ADO : Seek Method

6 réponses

Votre réponse

Discussions similaires