bonjour,


lorsque j'execute le prg ci-dessous, tout fonctionne normalement sauf le 'rst.RecordCount' qui plante systematiquement.
pourtant 'nb_enr' indique bien le nombre d'enregistrements ...
pourquoi 'rst.RecordCount' ne fonctionne t'il pas ???

Private Sub Form_Load()
Dim rst As New ADODB.Recordset
rst.Open "SELECT transactions_standards.designation, comptabilite.montant FROM comptabilite RIGHT JOIN transactions_standards ON comptabilite.descriptif = transactions_standards.designation WHERE (((Now()) Between Now() And DateAdd('d',Now(),30)));", cnx
MsgBox (rst.RecordCount)
Do While rst.EOF = False
If rst(0) = Empty Then
nb_enr = nb_enr + 1
rst.MoveNext
Loop
MsgBox (nb_enr)
rst.Close
End Sub
(cnx = variable globale)

merci a vous,


LILAS_82

cela fait longtemps que je n'ai pas toucher au database sur
vb6, mais je me rapelle aussi avoir eu ce probleme...

c'est peut etre ta requete qui n'est pas bonne hehe
Commence par essailler de sélectioner un champ dans ton
tableau, si sa ne marche pas... c'est car ta requete n'est pas bonne donc normal que ton recordset ne marche pas plus.

la rqte est bonne, je l'ai testee sur access.
merci a toi,

lilas_82

la rqte est bonne, je l'ai testee sur access.
merci a toi,

lilas_82

Bonjour,

Essai de mettre ta requete SQL dans une variable String et ensuite de faire un Open du String !

Sinon tu peux télécharger le technopoche ADO sur le site de Microsoft c'est graituit.

En fait va sur Google et tapes Technopoche ADO
Attention le lien est un PDF

Bon Courage
A plus
SebOfBorg

salut,
Uen requete testée sur acces ne fonctionne pas toujours sur vb, j'ai eu un probleme de requete comme la tienne, ou apres le select, il ne prenait pas la suite avec des virgules. J'ai du remplacer par * et la requete c'est excecutée sans probleme.

ca ne résoudra pas forcément ton probleme mais essais de ce coté la comme la dit MarTiUS_Will.

Il arrive parfois qu'il y est un plantage lors d'une requete correcte mais auparavant a été déclaré un "on error resume next", ca crée des truc bizarres.

Bonne prog, poele_a_frire@hotmail.com
liquide

Salut.
Si le RecordCount de ton RecordSet te renvoi -1 tout le temps c'est que ta connexion et/ou ton RecordSet est mal configuré. Regarde au niveau des paramètres CursorLocation pour ton objet connexion, CursorLocation et CursorType pour ton objet RecordSet. Si ça ne marche pas il faut parfois faire un MoveLast après avoir ouvert un RecordSet pour que la propriété RecordCount soit à jour. Moi pour mon travail (je bosse en local) j'ai mis:

cnx.CursorLocation = adUseClient rst.CursorLocation = adUseClient rst.CursorType = adOpenDynamic

Voilou, en espérant que ça résolve ton problème.
A+