ADO ListView

Question

Salut...


Dans mon programme j'ai un ListView et j'ai mis 4 colonnes provenant de ma base de Donn&#233;es. 

J'utilise ce code (donn&#233; par quelque du site (J'ai oublier son nom d&#233;sol&#233;)

'Do Until BD.EOF
        
    ListView1.ListItems.Add = BD!Dossier 'Qu'est ce que je mets ici ?????
    BD.MoveNext
    Loop
    BD.Close
    Connection.Close


    Set Connection = Nothing
    Set BD = Nothing

Dans se code je voix que l'information de la Colonne Dossier. Mais il me reste 3 autres colonnes vides. Bon c'est &#233;vident j'ai mit que Dossier. Quel est le code pour pouvoir ajouter mes info dans les autres colonnes. 

Dans mon listView j'appelle cette commande pour voir le Nom des diff&#233;rentes Colonnes.

Private Sub Init_ListView()
'Initialisation de la listview
ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear


ListView1.ColumnHeaders.Add , , "Dossier", ListView1.Width / 3 '0
ListView1.ColumnHeaders.Add , , "Date de Livraison", ListView1.Width / 3, lvwColumnCenter '1
ListView1.ColumnHeaders.Add , , "R&#233;f&#233;rence", ListView1.Width / 3, lvwColumnCenter '2
ListView1.ColumnHeaders.Add , , "Remarque", ListView1.Width / 10
End Sub

Donc, comment est-il possible de faire apparaitre les donn&#233;es des 4 colonnes  dans le list view????

J'ai fais quelques essais mais ca ne fonctionne pas. 
Merci d'avance....

VisualBoinet · Answer

Remplace ta ligne  
ListView1.ListItems.Add = BD!Dossier  par celles ci  pour voir :




Dim ObjAdd        As ListItem



Set ObjAdd = listview1.ListItems.Add(, "A" & intIndex, BD!Dossier
)
ObjAdd.SubItems(3) = BD!DateDeLivraison

ObjAdd.SubItems(1) = BD!Reference
ObjAdd.SubItems(2) = BD!Remarque

Set ObjAdd = Nothing

intIndex = intIndex + 1



et redit moi si ca fonctionne ca devrait le faire

VisualBoinet · Answer

Tu ma send un essage : voici ce que je te sugg&#232;re donc de faire :





Private Sub Form_Load()   

    'Type de bases de donn&#233;e pour la 
connexion  

Connection.Provider = "Microsoft.jet.OLEDB.4.0"

'Chemin de la base de donn&#233;e (APP.PATH permet de ce mettre dans le chemin   


'courant la ou ce trouve le projet)  

Connection.ConnectionString = 
App.Path & "\dossier_actif.mdb"  

'Ouverture de la 
connection

    Connection.Open

'Ouverture de la requ&#234;te sql dans 
le recordset

    Dim ObjAdd        As ListItem

    Dim intIndex as integer



   BD.Open "Select * from dossiers_actif", Connection, 
adOpenDynamic, adLockOptimistic

    

    Init_ListView

    

    ' 
Pour faire appara&#238;tre de l'Info dans le ListView

    

    While not 
BD.EOF


    Set ObjAdd = 
ListView1.ListItems.Add(, "A" & intIndex, 
BD!Dossier)

    ObjAdd.SubItems(3) = BD!Livraison

    ObjAdd.SubItems(1) = 
BD!Reference

    ObjAdd.SubItems(2) = BD!Remarque

    Set ObjAdd = 
Nothing

    intIndex = intIndex + 1

    BD.MoveNext



    Wend

    BD.Close

    Connection.Close

    

    Set 
Connection = Nothing

    Set BD = Nothing



End Sub





Private 
Sub Init_ListView()



'Initialisation de la 
listview

ListView1.View = lvwReport

ListView1.ColumnHeaders.Clear

ListView1.ListItems.Clear



ListView1.ColumnHeaders.Add 
, , "Dossier", ListView1.Width / 3 '0

ListView1.ColumnHeaders.Add , , 
"Livraison", ListView1.Width / 3, lvwColumnCenter 
'1

ListView1.ColumnHeaders.Add , , "R&#233;f&#233;rence", ListView1.Width / 3, 
lvwColumnCenter '2

ListView1.ColumnHeaders.Add , , "Remarque", 
ListView1.Width / 10

End Sub



Et la ca devrait etre deja mieu :)



Si c'est pas ca je pense que je pourrais plus taider mais bon essaie toujours si l'erreur change et on verra :)

Bon courage

kokise · Answer

salut,

J'ai essay&#233; ton programme malheureusement &#231;a me donne le m&#234;me probl&#233;me
"type incompatible" dans la ligne qui contient le (set) et je sais pas
pourquoi?

Je vais te donner mon code et j'esp&#232;re que tu me le r&#233;soudra 



Dim s As ListItem



Private Sub Combsem_Click()

rs.Open "SELECT Enseignant.cin, Affectation.naff, Affectation.jour,
Affectation.codsem, Affectation.hrdeb, Affectation.hrfin,
Affectation.ng, Affectation.salle, Affectation.val FROM Enseignant
INNER JOIN Affectation ON Enseignant.cin = Affectation.cin WHERE
((Enseignant.cin'" & Txtcin & "') AND (Affectation.codsem
'" & Combsem & "') AND (Affectation.val=False))", Cn,
adOpenDynamic

rs.Requery

If rs.EOF = False Then

Do

Set s = ListV.ListItems.Add(, , rs("naff"))

s.SubItems(1) = rs("jour")

s.SubItems(2) = rs("hrdeb") 

s.SubItems(3) = rs("hrfin")

s.SubItems(4) = rs("ng")

s.SubItems(5) = rs("salle")



rs.MoveNext

Loop Until rs.EOF

End If

Set rs = Nothing

End Sub

Le  Combsem est un combo qui contient des semestre lorsque je
clique dedant &#231;a doit m'afficher tout les affectation qui on eu lieu ce
semestre

 merci d'avance

ADO ListView

3 réponses

Discussions similaires