VB6 Voir le données du Listview au démarage

Question

Salut... Petite question que j ene réussi pas à saisir pourquoi ca ne fonctionne pas... Je veux que lorsque je démarre mon programme je vois dans mon listview la totalité de ma base de données Access. Je suis capable de faire afficher une partie de ma base de données en faisant des requêtes (En faisant une recherche) et j'utilise ce code... If BDRecetteListView.RecordCount <> 0 Then 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 Wend ******************************************************************* J'ai donc mit dans le Load de ma Form le même code en enlevant cette ligen de code... If BDRecetteListView.RecordCount <> 0 Then et ca ne fonctionne pas.... Pourquoi ???? Si quelqu'un peut m'aider

mcs2006 · Answer

Bonjour,

C'est peut-être parce que tu le mets dans le load ?

Perso, en VB6, je remplis mes list (view ou box) et combo etc ... avant le load de la form ou dans l'évènement activate de la form suivant l'utilisation.
Dans le load, ça se comporte bizarrement car à ce moment le prog charge la fenêtre et ses contrôles. Si tu veux les initialiser en même temps, il y a  risque de carambolage.
D'autre part, l'évènement load ne sera exécuté QUE lors du 1er chargement de la form pendant l'exécution du prog, même si tu fais un unload (bizarrerie du VB6).

Donc, essaie de mettre ton code dans l'évènement activate de ta form et dis nous si c'est mieux.
N'oublie pas quand même de coder un ListView1.ListItems.Clear avant le remplissage.

cs_JeffC1977 · Answer

Salut....

J'ai fait un Private Sub Form_Activate()
 et ca ne fonctionne pas  peut-&#234;tre que ma fa&#231;on est encore mauvaise

Dans mon Load J'ai la commande Init_Listview qui est &#233;gal &#224; 

Private Sub Init_ListView()
'Initialisation de la listview


ListView1.View =  lvwReport
ListView1.FullRowSelect = True



ListView1.View = lvwReport ' Crer une ligne pour affichier les diff&#233;rents titre des colonnes.
ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear
ListView1.BackColor = &HE0E0E0


ListView1.ColumnHeaders.Add , , "Recette", ListView1.Width / 4
ListView1.ColumnHeaders.Add , , "Type", ListView1.Width / 8, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "Volume", ListView1.Width / 12, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "Num&#233;ro", ListView1.Width / 12, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "Page", ListView1.Width / 12, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "Autre", ListView1.Width / 7, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "Cote", ListView1.Width / 15, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "Note", ListView1.Width / 10, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "Commentaire", ListView1.Width / 7, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "Repas Rapide", ListView1.Width / 5, lvwColumnCenter


 


End Sub

Dans mon Activate j'ai ce code...

Private Sub Form_Activate()


ListView1.ListItems.Clear


Set BDRecetteListView = New ADODB.Recordset
 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


        Wend


End Sub

Ca me sort comme message d'erreur au d&#233;marrage...

Cette op&#233;ration n'est pas autoris&#233;e si l'objet est ferm&#233;.

Il est &#233;vident que cette ligne de ocde doit &#234;tre dans mon Load
BDRecetteListView.Open "Select * from [Recette]", Connection, adOpenDynamic, adLockOptimistic

J'attends ton aide

merci d'avance

cs_Jack · Answer

Salut
En fait, quand tu fais un "Set ... = New ADODB.RecordSet", tu ne fais que cr&#233;er un objet capable de stocker des donn&#233;es d'une DB.
Tu n'as pas &#233;t&#233; questionner ta DB.
Il te faut donc ajouter :
- Une connexion &#224; ta DB :
Dans la partie D&#233;claration de ta forme ou dans un Module : L'objet doit &#234;tre accessible ne n'importe o&#249; dans ton code)
Public gCN As ADODB.Connection
Quand tu veux te connecter :
Set gCN = New ADODB.Connection
gCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:\mon Rep\maDB.MDB"
gCN.Open
- Ensuite, si tu veux charger des enrtegistrements dans ton RecordSet, il faut pr&#233;parer une requ&#232;te SQL :
Tu gardes ta d&#233;claration :
Set BDRecetteListView = New ADODB.Recordset
Tu pr&#233;pares ta requ&#232;te SQL :SQL "Select * From maTable Where NomRecette 'Tarte aux poireaux"
Tu ex&#233;cutes cette requ&#232;te :
BDRecetteListView.Open SQL, gCN, adOpenStatic, adLockReadOnly

Ensuite, tu peux g&#233;rer l'insertion des donn&#233;es comme tu l'as fait avec le MoveFirst et tout le tralala.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Champion du monde de boule de cristal - 2005
Le savoir est la seule mati&#232;re qui s'accro

VB6 Voir le données du Listview au démarage

3 réponses

Discussions similaires