Discussion :

[callo]

Salut
J'ai cette portion de code dans mon application
Code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim rs as New ADODB.Recordset 
Dim sql as string 
sql="SELECT nom, prenom, age, adresse from etudiants" 
Set rs.ActiveConnection = cnx 
rs.Source = sql rs.open

J'aimerais savoir comment remplir une listview nommée lst_data avec le contenu de ma requête. C'est la première fois que je vais utiliser ce contrôle et je ne sais pas trop comment m'y prendre. Alors si quelqu'un peut m'aider, ça serait vraiment cool.

Merci d'avance

[Le Pharaon]

Testes ça, je crois avoir bien déclarer et initialiser toutes les variables

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
    Dim LstItem As ListItem
    Dim Entete As ColumnHeader
    Dim uneLargeur As Integer
    Dim i As Integer
    Dim rs as New ADODB.Recordset 
    Dim sql as string 
    Dim unNombreDeChamps As Integer
 
sql="SELECT nom, prenom, age, adresse from etudiants" 
Set rs.ActiveConnection = cnx 
rs.Source = sql rs.open
 
    lst_data.ListItems.Clear
    lst_data.ColumnHeaders.Clear
    uneLargeur = lst_data.Width
    unNombreDeChamps = lst_data.Fields.Count
 
 '****** Création des titles ******
            For i = 1 To rs.Fields.Count - 1
                Set Entete = lst_data.ColumnHeaders.Add
                    Entete.text = Trim(rs.Fields(i).Name & "")
                    Entete.Width = uneLargeur / (unNombreDeChamps + 0.25)
            Next
            i = 1
        '****** Chargement des enregistrements
            While Not rs.EOF
                Set LstItem = lst_data.ListItems.Add(1, , Trim(rs(0) & ""))
                For i = 1 To rs.Fields.Count - 1
                    LstItem.ListSubItems.Add i, , Trim(rs(i) & "")
                Next
                rs.MoveNext
            Wend
 
     If Not rs Is Nothing Then
        If rs.State = adStateOpen Then
            rs.Close
        End If
        Set rs = Nothing
    End If

[callo]

Merci beaucoup Bujuman
Je testerai ton code une fois rentré à la maison. Je te tiens informé. Encore une fois

[khany]

pourquoi ne pas utiliser une DataList, tu la lies directement à ta requête et tout se fait sans code