[VBA EXCEL / ACCESS] : Resultat d'une requete

Bonjour,

Voila je voudrai savoir comment recuperer le resultat d'une requête, je m'explique :

Je veux recuperer le nombre d'enregistrement présent dans une table donc j'utilise la requete "SELECT COUNT (*) FROM ...."

J'aimerai savoir juste comment appeler le resultat de cette requete car j'aimerai éviter de faire un MoveNext et d'ajouter "1" au compteur pour savoir combien je possède d'enregistrements.

Merci d'avance

La fonction .RecordCount te renvoies directement le nombre d'enregistrements de ton recordset.

Code:

---

1 2 3 4 5 6 7

Dim recst as Recordset ... recst.MoveLast MsgBox recst.RecordCount recst.Close

---

Merci mais ca ne fonctionne pas...
apparament il n'aime pas trop le movelast il m'affiche un msg d'erreur qui dit : "l'ensemble de ligne ne prend pas en charge les recupérations arrieres"

j'affiche mon code pour plus de comprehesion :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim Rec_Recap_Mois As New ADODB.Recordset Dim Rec_Compte_Ijs As New ADODB.Recordset Dim Requete_Recap_Mois, Requete_Compte_Ijs As String Dim Mois, Nb_Ijs As Integer Mois = InputBox("Entrez le mois en chiffre (ex : février = 02)") Requete_Recap_Mois = "SELECT * FROM IJS WHERE IJS.Mois_Ij=" & Mois Requete_Compte_Ijs = "SELECT * FROM IJS Where IJS.Mois_Ij=" & Mois Module1.ConnexionBdd Rec_Recap_Mois.Open Requete_Recap_Mois, Module1.BdAccess Rec_Compte_Ijs.Open Requete_Compte_Ijs, Module1.BdAccess Rec_Compte_Ijs.MoveLast Nb_Ijs = Rec_Compte_Ijs.RecordCount Rec_Compte_Ijs.Close

---

T'as essayé sans le movelast.
En fait,le recordcount te renvoie directement le nombre d'enregistrements. Le il faut refaire un Movefirst avant.

Donc Solution 1:

Code:

---

1 2 3

.MoveLast .MoveFirst .RecordCount

---

Solution 2 :

.

Code:

---

RecordCount ' Sa devrait fonctionner directement.Sans Movelast & Movefirst

---

Ben en fait ce qu'il se passe sans le movelast il me renvoi la valeut -1 alors qu'il devrai me trouver 2 enregistrements...

Hello!
Je ne comprend pas...
Si tu envoies la requête "... COUNT(*)...", ton recordset ne contient qu'une ligne: celle qui contient le nombre de ligne de ta table.
Donc pas besoin de faire des Move.
MonRst(0) te donne directement le nombre que tu cherches, non?

Yes Ca Marche Megaxel
Merci Beaucoup!!!

Coooool !
Et en plus, au niveau "transfert de données, gavage du réseau", c'est quand même mieux de rapatrier juste le nombre de lignes, plutôt que de ramener toute ta table et ses 874 251 lignes, puis de compter.
Non?
:D

Bonjour

je cherche aussi la solution à ce problème

j'utilise vba sous excel pour me connecter à Oracle.

voici mon code (mon objet connection appartient déjà à ma classe):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

'Déclaration des variables Dim cmd As ADODB.Command Dim rst As ADODB.Recordset   'Instanciation des variables Set cmd = New ADODB.Command Set rst = New ADODB.Recordset   'Préparation de l'objet Command cmd.CommandText = "SELECT * FROM MA_TABLE" cmd.ActiveConnection = mobjCon 'attribut de classe   'Exécution de la requête Set rst = cmd.Execute   rst.MoveLast 'renvoi l'erreur "L'ensemble des lignes ne prend pas en charge les récupérations arrière"   rst.RecordCount 'renvoi toujours -1

---

Visiblement le problème viendrait du parametrage du recordset.
certains recordset n'acceptent pas cette méthode
d'ou ma question comment avoir le bon recordset?

merci d'avance

visiblement avec ce code le movelast ne pose plus problème:

Code:

---

1 2 3 4 5

rst.CursorType = adOpenDynamic rst.LockType = adLockOptimistic rst.ActiveConnection = mobjCon rst.Source = "SELECT * FROM P_SUB" rst.Open

---

cependant le recordCount renvoi toujours -1
:cry:

pour que cela fonctionne remplacer par

Code:

---

rst.CursorType = adOpenStatic

---

j'espere que cela pourra aider certains...