[VB6 + Access] Problème avec une requête et la fonction .Recordcount

Bonjour,

Je vous écris car dans mon programme je fais une requête dans une base Access afin de compter le nombre de résultat que génère la requête et ainsi mettre cette valeur Integer dans une variable temp. Pour celà j'utilise la fonction .RecordCount mais ça ne fonctionne pas comme il faut chez moi. Je n'ai pas de messages d'erreur mais j'obtiens "-1" dans ma variable alors que je devrais obtenir 90 !

Voilà mon code:
      
    Dim cnx As New ADODB.Connection
    Dim req_ent As New ADODB.Recordset
    Dim temp As Integer

    Call Connexion(cnx) 'Connexion à la base

    Set req_ent = New Recordset
    req_ent.Open "select CodePoste from Poste", cnx, adOpenDynamic, adLockOptimistic
    temp = req_ent.RecordCount

J'ai aussi essayé ça comme requête mais ça ne change rien, ça me donne toujours "-1":

    req_ent.Open "select count(CodePoste) from Poste", cnx, adOpenDynamic, adLockOptimistic

Quelqu'un peut-il m'aider SVP? Merci d'avance...

Merci omsylv, tu as répondu à ma question avec ta 2e suggestion. Quand j'utilise Count dans la requête puis req_ent(0) ça fonctionne. Voici mon code:

    Set req_ent = New Recordset
    req_ent.Open "select distinct count(CodePoste) from Poste", cnx, adOpenDynamic, adLockOptimistic
    temp = req_ent(0)

J'obtiens bien la bonne valeur pour temp.

Par contre pour la fonction .RecordCount je vois toujours pas l'a faire fonctionner. Je ne peux pas mettre de ";" dans ma ligne car j'ai un message d'erreur VB sinon et si je mets le ";" à la fin de ma requête, c'est-à-dire juste avant le guillemet de fin de requête, ça ne change rien, j'obtiens toujours -1.

Donc merci omsylv pour ton aide même si je ne sais toujours pas comment utiliser la fonction .Recordcount, tu m'as donné une autre solution.

++

Ta solution fonctionne aussi Tof008!! Merci mec. Je pense pas qu'il y en ai une meilleure qu'une autre. Au choix donc.

Sinon tu sais toi comment utiliser la fonction .Recordcount?

++

De rien. Mais c'est bizarre pour le RecordCount. -1 signifie qu'il n'arrive pas à compter le nombre d'enregistrement. Ceci dit normalement RecordCount renvoie un long et pas un int. Essaye de déclarer temp as long. Si ça ne fonctionne pas c'est que ça vient de la requête

De rien net_slipknot! On se doit bien ca!!!
Une petite question à dan80 : tu peux m'expliquer à quoi sert cette cette ligne? req_ent.CursorLocation = adUseClient
Parce que je n'avais jamais vu ca auparavant et je suis un peu curieux...

(Si la réponse vous convient, appuyez sur réponse acceptée...)

Il y a plusieurs facon d'être con ,mais un con choisit toujours la pire

Et pour le recordcount, je pense que si tu fais tout simplement
req_ent.movefirst
tot = req_ent.Recordcount
ca devrait marcher aussi...
Mais en fait c'est un peu la même réponse que omsylv...En fait tu te place sur le premier enregistrement...

(Si la réponse vous convient, appuyez sur réponse acceptée...)

Il y a plusieurs facon d'être con ,mais un con choisit toujours la pire

dan80:

J'ai essayé ta solution avec la ligne que tu m'as dis de rajouter puis le code avec la fonction .Recordcount et effectivement ça fonctionne!
Mais comme tof008, j'aimerais bien savoir à quoi sert la ligne req_ent.CursorLocation = adUseClient afin de comprendre pourquoi elle est nécessaire pour faire fonctionner le .Recordcount ...

Merci.