Discussion :

[forsay1]

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

[NoViceDel]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 
Dim recst as Recordset
...
recst.MoveLast
MsgBox recst.RecordCount
recst.Close

[forsay1]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[NoViceDel]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
.MoveLast
.MoveFirst 
.RecordCount

Solution 2 :

.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RecordCount ' Sa devrait fonctionner directement.Sans Movelast & Movefirst

[forsay1]

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...

[Megaxel]

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?

[forsay1]

Yes Ca Marche Megaxel
Merci Beaucoup!!!

[Megaxel]

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?

[parpins]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[parpins]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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


pour que cela fonctionne remplacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rst.CursorType = adOpenStatic

j'espere que cela pourra aider certains...