[Vb6/MySQL]probleme RecordCount Résolu/Fermé

Question

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:

Dim rsselect As New ADODB.Recordset

mais lorsque je veux utiliser la methode RecordCount comme suit :

Debug.Print rsselect.RecordCount

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

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:

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.

Lupin · Answer

Bonjour,

Dim rsselect As New ADODB.Recordset

avant d'interroger le "recordset", l'ensemble créé par la requête,
il faut renseigner les pointeurs avec les lignes

rsselect.MoveLast
rsselect.MoveFirst
Debug.Print rsselect.RecordCount

Lupin

Utilisateur anonyme · Answer

re:

je recommance mon texte :

avant d'interroger le "recordset", l'ensemble créé par la requête,
il faut renseigner les pointeurs avec les lignes

rsselect.MoveLast
rsselect.MoveFirst
Debug.Print rsselect.RecordCount

vous tenter d'interroger le recordset alors que les pointeurs
ne sont pas renseignés !

Debug.Print rsselectdeb.EOF
Debug.Print rsselectdeb.BOF

Le [ .MoveLast ] et le [ .MoveFirst ] ne sont pas optionnel.
si vous ne placez pas ces 2 lignes, les pointeurs ne sont pas
tous renseignés.

ceci en supposant que la requete est bonne !

Lupin

Utilisateur anonyme · Answer

re:malheureusement, je ne connais pas assez MySQL pour allerplus loin. Sous Access, vous devriez obtenir un résultat.Lupin

Pascal_22 · Answer

Salut !!Est-ce que le problème persiste, je sais pourquoi le recordcount =-1 et que ton movelast/movefirst ne fonctionne pas !!!a+ Pascal_22

gueye · Answer

bjr
je vx me connecter sur une bd Mysql et je trouve une erreur sur la decraration du driver. si qlq un peut m aider?

voici le code:
Dim strConn As String, strSql As String
        strConn = "Provider=Microsoft ADO 3.51 Object Library;Data Source=.\gueye;Persist Security Info=False"
        strSql = "select * from Client"
    
        Set oConn = New ADODB.Connection
        oConn.Open strConn
        
        Set oRs = New ADODB.Connection
        
        oRs.Open strSql, oConn, adOpenStatic

koberfo · Answer

Bonjour,
 Merci de m'aider.j'ai un message d'erreur au niveau de la ligne suivante:
nb = rst.RecordCount + 1 

Mon code est le suivant:

Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
cnx.Provider = "Microsoft.Jet.OLEDB.4.0"
cnx.ConnectionString = "C:\print1\cheque.mdb"
cnx.Open

Set rst = New ADODB.Recordset
rst.ActiveConnection = cnx
rst.LockType = adLockOptimistic
Dim nb As Double

nb = rst.RecordCount + 1

rst.Open "INSERT INTO cheque [(code[, num_cheque[, date_chek[, date_ops[, montant_chiffre[, montant_lettre[, beneficiaire[, utilisateur]]]]]]])]VALUES (nb[, num_cheque.text[, date_chek.text[, date_chek.text[, montant_chiffre[, montant_lettre.text[, beneficiaire.text[, 'vol']]]]]]])"

[Vb6/MySQL]probleme RecordCount

6 réponses

Discussions similaires