récupérer les requètes sql dans une listview en vb6Résolu

Question

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

cs_Exploreur · Accepted Answer

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

cs_Exploreur · Answer

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

cs_casy · Answer

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

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

3 réponses

Votre réponse

Discussions similaires