VB6 ADO RecordCount [Résolu]

Question

VB6 ADO RecordCount [Résolu]

Signaler

cs_JeffC1977

Messages postés: 926
Date d'inscription: vendredi 10 novembre 2000
Statut: Membre
Dernière intervention: 10 septembre 2010

- 28 mars 2006 à 18:15
cs_DARKSIDIOUS

Messages postés: 15814
Date d'inscription: jeudi 8 août 2002
Statut: Modérateur
Dernière intervention: 4 mars 2013

- 28 mars 2006 à 18:24

Salut....

À noter que c'est la première fois que j'utiilise le RecordCount et que je ne suis pas très habile avec ADO

J'essais de faire une programme pour voir ma base de Données dans un ListView. Jusqu'à présent ca fonctionne....

Je veux me créer un Label pour compter le nombre de résultats affichers dans le Listview. Ainsi si j'ai 10 résultats dans mon ListView, il sera indiquer que j'ai 10 résultats dans mon Label....

Quand je fais la recherche ca me sort le message d'Erruer suivant:
Cette Opération n'est pas autorisée si l'objet est fermé

Voici le code qui touche à mon problème

Public ResultatADO As New ADODB.Recordset

Dans mon Load j'ai mit ce code...
ResultatADO.Open

Dans mon Bouton Recherche .... Voici la totalité

Private Sub cdmRecherche_Click()

Set BDRecetteListView = New ADODB.Recordset
Set ResultatADO = New ADODB.Recordset

BDRecetteListView.Open "SELECT * FROM [Recettes] WHERE [Recette] like '%" & txtRecherche.Text & "%'", connection, adOpenDynamic, adLockOptimistic

' Execution de la commande
ResultatADO.Requery

BDRecetteListView.MoveFirst
While Not BDRecetteListView.EOF

With ListView1.ListItems.Add(, , IsN(BDRecetteListView!Recette)) 'Colonne 1
.SubItems(1) = IsN(BDRecetteListView!Type) ' Colonne '2
.SubItems(2) = IsN(BDRecetteListView!Volume) ' Colonne 3
.SubItems(3) = IsN(BDRecetteListView!Numero) ' Colonne 4
.SubItems(4) = IsN(BDRecetteListView!Page) ' Colonne 5
.SubItems(5) = IsN(BDRecetteListView!Autre) ' Colonne 6
.SubItems(6) = IsN(BDRecetteListView!Cote) ' Colonne 7
.SubItems(7) = IsN(BDRecetteListView!Note) ' Colonne 8
'.SubItems(8) = IsN(BDRecetteListView![Repas Rapide])
End With

BDRecetteListView.MoveNext
ResultatADO.MoveNext
Wend
lblCompteur.Caption = "Enregistrement n° 0 sur " & ResultatADO.RecordCount
BDRecetteListView.Close

J'ai besoin d'aide....
merci d'avance

Afficher la suite

A voir également:

Recordcount vb6
Vb6 recordcount - Meilleures réponses
VB6 - Recordcount à -1 alors qu'il y a 83 lignes. ✓ - Forum - Visual Basic 6
Probleme recordcount ✓ - Forum - Visual Basic
Probleme de recordcount - Forum - Visual Basic
Recordcount - Forum - Visual Basic
La fonction RECORDCOUNT en vba - Forum - Visual Basic 6

1 réponse

Posez votre question

cs_DARKSIDIOUS · Accepted Answer · 2006-03-28T18:24:09+0200

Réponse 1 / 1

cs_DARKSIDIOUS

Messages postés: 15814
Date d'inscription: jeudi 8 août 2002
Statut: Modérateur
Dernière intervention: 4 mars 2013

111
28 mars 2006 à 18:24

Et pourquoi tu ne compterais pas directement le nombre de ligne de ton listview ?

lblCompteur.Caption = "Enregistrement n° 0 sur " & listview.listitems.count

Sinon, je ne vois pas trop pourquoi tu as cette erreur, la syntaxe est correcte pourtant, le BDRecetteListView.Close est bien après le lblCompteur.caption = ... ?
Sinon, essaye avec :
ResultatADO.MoveFirst
ResultatADO.MoveLast
lblCompteur.Caption = "Enregistrement n° 0 sur " & ResultatADO.RecordCount

_
Avant de poster dans le forum,
prière d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx
<s></s>

Votre réponse