nb enregistrements recordset ado

Question

bonjour, 

après plusieurs lectures de solutions concernant des curseurs qui renvoient un compte =-1 j'ai pu affiner mon recordset tout en aillant toujours un gros problème .
je cherche le nombre d'enregistrement du recordset , sanchant qu'il me renvoie irrémédiablement la valeur 0.
voici le code:

Sub essai2()
Dim i As Long
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset


Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
i = 0


With cnx
.Provider = "Microsoft.Jet.oledb.4.0"
.ConnectionString = "[file://\serv_cpta1000\controle_gestion\BASE \serv_cpta1000\controle_gestion\BASE] REQUETES MUTIX\VUES DECISIONNEL.mdb"
.Open
End With


With rst
.CursorLocation = adUseClient
.Open "SELECT * FROM MUTIX_TD_EFFECTIFS WHERE PC_MOIS=#01/07/2008#", cnx, adOpenStatic, adLockOptimistic
End With


i = rst.RecordCount


Feuil1.Cells(3, 1) = i


rst.Close
cnx.Close


End Sub

donc en utilisant  .cursorlocation = aduseclient le résulstat est passé de -1 à 0.
mais je n'ai pas les 144000 enregistrement que je devrais avoir.

est ce un problème de cachesize?
mon code est il insuffisant pour .recordcount ?
dois effectuer une boucle plutot qu'utiliser le .recordcount.?

je vous remercie pour votre aide.

cs_casy · Answer

Essaye 

rst.MoveLast
rst.MoveFirst
i = rst.RecordCount 

pour voir si ça améliore les choses.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

RENU974 · Answer

merci pour ton conseil mais il me renvoie uen erreur au niveau de l'instruction 3021: 

BOF ou EOF est égal à true ou l'enregistrement actuel a été suprimmé.

si je met un 
dowhilenot rst.eof
.movefirst
.movelast
loop

renvoie de valeur=0 rien n'a changé.

as tu une idée ou solution ?

cs_Exploreur · Answer

Salut,

Pour essai, essaye comme cela : 

Ssql = "SELECT * FROM MUTIX_TD_EFFECTIFS"

Rst.Open sSql, Cnx, adOpenDynamic, adLockPessimistic

MsgBox Rst.RecordCount

A+
Exploreur

 Linux a un noyau, Windows un pépin

renaud97434 · Answer

avec ta technique

nb d'enregistrement retournés=0 je me demande si les dates doivents être prises dans la selection de cette manière: #date#...

en tout cas dans ces deux cas la valeur du décompte = 0

merci si jamais quelqu'un passe par la et me trouve une solution chapeau!

lillith212 · Answer

Bonjour, Petite question : Dans ta base tes dates sont enregistrées en quel format??? Internationnal ou français??? L'erreur vient peut être de la... S.L.B.

********************************************************************************* <>

cs_Exploreur · Answer

Re,

Je me demande si ton problème ne vient pas tout simplement du format de la date dans ta requête...Essaye comme cela comme date : 07/01/2008 (format amércain)..

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_casy · Answer

Sinon il y a la requette "SELECT COUNT(*) FROM MUTIX_TD_EFFECTIFS WHERE PC_MOIS= #01/07/2008#" qui renverra directement dans la première ( et unique ) colonne de la première (et unique) ligne le nombre d'enregistrement que renverrai la requette normale 

---- Sevyc64  (alias Casy) ----<hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

Nb enregistrements recordset ado

7 réponses

Votre réponse

Discussions similaires