probleme avec une listviewRésolu

Question

bonjour &#224; tous
j'ai eu se code par PCPT (que je remerci enrcore) pour lanc&#233; une recherche par th&#232;mes et le r&#233;sultat s'affiche dans une listbox et &#231;a fonctionne super bien,mais J'ai remplac&#233; la listbox par une listview,et l&#224; j'ai une erreur sur la ligne qui est en rouge quand je lance la recherche,auriez vous une id&#233;e 

Sub lance()
    Dim NbOcc As Integer
    Dim i As Integer
    Dim SqlReq As String
    
    Set Rs = New ADODB.Recordset


    'd&#233;sol&#233;, apr&#232;s tu modifies comme tu veux, mais je fais toujours mes requ&#234;tes de cette mani&#232;re
    SqlReq = "SELECT Count(Film.type_film) As CompteFilmOfType " & _
             "FROM Film " & _
             "WHERE Film.type_film = '" & genre.Text & "'"
       
    Rs.Open SqlReq, DB, adOpenDynamic, adLockOptimistic
    NbOcc = Rs("CompteFilmOfType")
    Rs.Close
    List.ListItems.Clear
        If NbOcc 0 Then Set Rs Nothing: Exit Sub 'fin si vide
    
    SqlReq = "SELECT Film.* " & _
             "FROM Film " & _
             "WHERE Film.type_film = '" & genre.Text & "'"
             
    Rs.Open SqlReq, DB, adOpenDynamic, adLockOptimistic
    For i = 1 To NbOcc
       List.ListItems.Add Rs("nom_film")


        Rs.MoveNext
    Next i
    
    Rs.Close
    Set Rs = Nothing
    List.SetFocus
End Sub
Merci
@plus
petchy

Neo.balastik · Accepted Answer

Salut ;O)

Tu utilises mal le ListView.

Remplace List.ListItems.Add Rs("nom_film")
par
List.ListItems.Add , , Rs("nom_film")

Guy

cs_CanisLupus · Answer

Salut,

Et as-tu initialis&#233; tes colonnes par :

List.ColumnHeaders.Add , , "Nom"

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_petchy · Answer

merci,impeccable 
petchy

Probleme avec une listview

3 réponses

Discussions similaires