[VB6/MySQL]probleme RecordCount

Bonjour Tout le monde
je developpe une application en VB6 qui utilise une bases de données MySQL j'ai declaré un objet de type ADODB.Recordset comme suit:

Code:

---

Dim rsselect As New ADODB.Recordset

---

mais lorsque je veux utiliser la methode RecordCount comme suit :

Code:

---

Debug.Print rsselect.RecordCount

---

il m'affiche tjrs
la valeur -1.
voila mon morceau de code en VB6:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

SQLOF = "SELECT HistoriquePointages.OF, HistoriquePointages.DatePointage AS MaxDeDatePointage,HistoriquePointages.CodeEmploye, OF.Nom" SQLOF = SQLOF & " FROM HistoriquePointages, OF" SQLOF = SQLOF & " Where (HistoriquePointages.OF=OF.OF)" SQLOF = SQLOF & " GROUP BY HistoriquePointages.OF, HistoriquePointages.CodeEmploye, OF.Nom" SQLOF = SQLOF & " Having (((HistoriquePointages.CodeEmploye) = '" & Personnel.Code & "'))" SQLOF = SQLOF & " ORDER BY HistoriquePointages.DatePointage DESC;" Dim rsselect As New ADODB.Recordset rsselect.Open SQLOF, AdoConnexion, adOpenStatic, adLockOptimistic Debug.Print rsselect!OF Debug.Print rsselect.RecordCount

---

connaissant que la ligne de code:

Code:

---

Debug.Print rsselect!OF

---

m'affiche le bon resulat cad que la requete s'execute
Quelqu'un a une idée la-dessus?
Merci pour toute collaboration.

Tu te trouves probablement dans le cas de figure cité dans la FAQ :

http://vb.developpez.com/faq/?page=Bdd#recordcount

:wink:

slt
pour compter le nombre d'enregistrement, le recordcount marche tres rarement.
fait un boucle pour compter:

Code:

---

1 2 3 4 5

Dim int_compteur As Long While Not ado_Table.EOF int_compteur = int_compteur + 1 ado_Table.MoveNext Wend

---

bon courage