Récupérer les requètes sql dans une listview en vb6 [Résolu]

Signaler
Messages postés
3
Date d'inscription
vendredi 25 février 2005
Statut
Membre
Dernière intervention
29 septembre 2008
-
cs_casy
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
-
Bonjour à tous j'ai un problème avec listview en vb6.Je mentionne que je suis débutant bien sur.Mais la curiosité  m'a ménée sur un chemin que je trouve difficile à emprunter.
Voilà actuellement je fais un peetit projet sur la saison sportive et j'aimerais récupérer certaines de mes requetes dans la listview ; je ne peux que utiliser 2 colonnes sur 7 de ma listview j'arrive pas franchir la deuxieme colonne pour la troisième.
Si quelqu'un a une idée , je lui en serai très reconnaissant de l'aide qui apporte au jeunes développeur comme moi.

Private Sub Form_Load()
Dim sql As String
Dim rs As New ADODB.Recordset
Dim cls As New Class1
Dim lvi As ListItem
Dim Slvi As ListSubItem

sql = "select NomSportif,PrenomSportif,MatriculeSportif from SPORTIF"
cpteur = ListView.ColumnHeaders.Count
Set rs = cls.ouvrirTable(sql, Cnbd)
i = 0
Do While Not rs.EOF
 Set lvi = ListView.ListItems.Add  lvi rs("NomSportif"): lvi.ForeColor RGB(128, 0, 0)
  Set Slvi = lvi.ListSubItems.Add
    Slvi = rs("PrenomSportif")
    rs.MoveNext
    Loop

3 réponses

Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
Salut,

Sans rien prométtre essaye ce bout de code :

' Déclarations
 Dim itmX As ListItem
 Dim sql As String
 Dim rs As New ADODB.Recordset
 Dim cls As New Class1


' Ajoute les colonnes à Listview
     With NonDeTaListview
          .ListItems.Clear
          .ColumnHeaders.Clear
          .ColumnHeaders.Add , , "NomSportif", (.Width * (3 / 8)), lvwColumnLeft
          .ColumnHeaders.Add , , "PrenomSportif", (.Width * (3 / 8)), lvwColumnLeft
          .ColumnHeaders.Add , , "MatriculeSportif", (.Width * (3 / 18)), lvwColumnLeft
          .View = lvwReport
          .Font.Size = 10
     End With


' Préparation requête
sql = "select * From Sportif"
Set rs = cls.ouvrirTable(sql, Cnbd)


If rs > 0 Then ' Il y a des enregistrements


   While Not rs.EOF
      Set itmX = NonDeTaListview.ListItems.Add(, , CStr(rs.Fields("NomSportif")))                 If Not rs.Fields("PrenomSportif") vbNullString Then itmX.SubItems(1) rs.Fields("PrenomSportif")                 If Not rs.Fields("MatriculeSportif") vbNullString Then itmX.SubItems(2) rs.Fields("MatriculeSportif")
   Wend


Else


   ' Information
    MsgBox "Aucun enregistrement dans la base"
    On Error Resume Next
    rs.Cancel
    rs.Close
    sql = vbNullString
   
End If


A+
Exploreur

 Linux a un noyau, Windows un pépin


 
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
Crotte de M....., punaise cela fait deux aujourd'hui j'ai oublié un truc trés important :

   While Not rs.EOF
      Set itmX = NonDeTaListview.ListItems.Add(, , CStr(rs.Fields("NomSportif")))                 If Not rs.Fields("PrenomSportif") vbNullString Then itmX.SubItems(1) rs.Fields("PrenomSportif")                 If Not rs.Fields("MatriculeSportif") vbNullString Then itmX.SubItems(2) rs.Fields("MatriculeSportif")
rs.MoveNext
   Wend

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
33
Sur le même item, rajoute autant de subitems que tu as de colonnes en plus de la première.

1ere colone = Item
2nd colone = Subitem1
3eme colone = Subitem2
.....................

---- Sevyc64  (alias Casy) ---- <hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php