VB6 ADO RecordCountRésolu

Question

Salut....

&#192; noter que c'est la premi&#232;re fois que j'utiilise le RecordCount et que je ne suis pas tr&#232;s habile avec ADO

J'essais de faire une programme pour voir ma base de Donn&#233;es dans un ListView. Jusqu'&#224; pr&#233;sent ca fonctionne....

Je veux me cr&#233;er un Label pour compter le nombre de r&#233;sultats affichers dans le Listview. Ainsi si j'ai 10 r&#233;sultats dans mon ListView, il sera indiquer que j'ai 10 r&#233;sultats dans mon Label....

Quand je fais la recherche ca me sort le message d'Erruer suivant:
Cette Op&#233;ration n'est pas autoris&#233;e si l'objet est ferm&#233;

Voici le code qui touche &#224; mon probl&#232;me

Public ResultatADO As New ADODB.Recordset

Dans mon Load j'ai mit ce code...
ResultatADO.Open

Dans mon Bouton Recherche .... Voici la totalit&#233;

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&#176; 0 sur " & ResultatADO.RecordCount
    BDRecetteListView.Close

J'ai besoin d'aide....
merci d'avance

cs_DARKSIDIOUS · Accepted Answer

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

VB6 ADO RecordCount

1 réponse

Discussions similaires