requete dans une listview

Question

Coucou a tous ,j'ai une petit probleme avec ma listview  
j'arrive a recuperer le nom des colones dans la listview mais impossible de recuperer les champs je vois jete mon code si quelqu'un peut me donner un coup de mais cela m arrangerais enormement 
Merci d'avance 

Private Sub Form_Load()
Dim Ct As ADODB.Connection
Dim rc As ADODB.Recordset
Dim Base As String
Dim ItemX As ListItem
Dim i As Integer
Set Ct = New ADODB.Connection
Ct.Provider = "Microsoft OLE DB Provider For SQL Server"
Ct.ConnectionString = "Provider=MSDASQL;DSN=eole DSN;UID=Staff;PWD=winacti;"
Ct.Open
Set rc = New ADODB.Recordset


rc.Open "SELECT Staff.ACTION.BATIMENT , Staff.ACTION.ETAGE, Staff.ACTION.BUREAU, Staff.ACTION.INTERVENANT, Staff.DEMANDE.NO_DEMANDE, Staff.DEMANDE.LIBELLE_DU_CONTRAT, Staff.DEMANDE.DEMANDEUR FROM Staff.ACTION, Staff.INTVENAN, Staff.DEMANDE WHERE Staff.ACTION.CLE_INTERVENANT Staff.INTVENAN.CLE_INTERVENANT AND Staff.ACTION.CLE_DEMANDE Staff.DEMANDE.CLE_DEMANDE AND Staff.INTVENAN.BUREAU = 'D487' AND (Staff.ACTION.FIN_REELLE IS NULL) 


ListView1.GridLines = True ' pour afficher les s&#233;parations entre lignes et colonnes
ListView1.FullRowSelect = True ' pour la s&#233;lection de la ligne enti&#232;re
ListView1.View = lvwReport ' affichage d&#233;tails
ListView1.LabelEdit = lvwManual


' Nom des colonnes
For Each fld In rc.Fields
ListView1.ColumnHeaders.Add , , fld.Name, ListView1.Width / rc.Fields.Count
Next
Do Until rc.EOF
rc.MoveNext
Loop

' Remplir la listview
Do While Not rc.EOF
Set ItemX = ListView1.ListItems.Add(, , rc.Fields(0))
For i = 1 To rc.Fields.Count - 1
ItemX.SubItems(i) = rc.Fields(i)


Next


rc.MoveNext
Loop


End Sub

mrdep1978 · Answer

Nom des colonnes
For Each fld In rc.Fields
ListView1.ColumnHeaders.Add , , fld.Name, ListView1.Width / rc.Fields.Count
Next
'Pourquoi as-tu mis &#231;a ???? Tu vas &#224; la fin de ton recordset. Donc, ....
Do Until rc.EOF
rc.MoveNext
Loop

' Remplir la listview
'... quand tu arrives ici, tu as tout de suite rc.EOF = True et tu ne rentres pas dans ta boucle de remplissage
Do While Not rc.EOF
Set ItemX = ListView1.ListItems.Add(, , rc.Fields(0))
For i = 1 To rc.Fields.Count - 1
ItemX.SubItems(i) = rc.Fields(i)
Next


rc.MoveNext
Loop


End Sub

hitman00 · Answer

et bah voila merci beaucoup a toi 
se prendre la tete autant de temps pour une boucle qui me servait avant a faire des tests .
super

Requete dans une listview

2 réponses

Discussions similaires