Discussion :

[Essedik]

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 :

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

Dim rsselect As New ADODB.Recordset

mais lorsque je veux utiliser la methode RecordCount comme suit :

Code :

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

Debug.Print rsselect.RecordCount

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

Code :

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

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 :

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

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.

[khany]

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

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

[ennamsaoui]

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

Code :

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

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