Discussion :

[stolx_10]

Bonjour,

Je suis sur une application VB.net pour PDA et je voudrais afficher des données d'une requete faite sur SQL server 2005 dans une listview.

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
    Private Sub AfficherListe()

        Dim i As Integer
        Dim liste As SqlCommand
        Dim connDist As SqlConnection = Nothing
        connDist = New SqlConnection(App.Singleton.ConnDistante)
        connDist.Open()

        liste = ListeInventAImporterDist(connDist)
        Dim myReader As SqlDataReader = liste.ExecuteReader()

       'dgMobile = nom de la listview sur le Form

        dgMobile.Items.Clear()
        i = 0

        Do While myReader.Read()
            'incrémentation du compteur de + 1
            i += 1
            'Création d'une instance de listView
            Dim LVI As New ListViewItem

            'Remplir la ListView
            LVI = dgMobile.Items.Add(myReader.Item(5))
            LVI.SubItems.Add(myReader.Item(7).ToString)
            LVI.SubItems.Add(myReader.Item(3).ToString)

            'faire descendre la listView à mesure qu'elle se remplie
            dgMobile.EnsureVisible(i)

            'Forcer le rafraichissement de la fenetre
            Application.DoEvents()

        Loop

        myReader.Close()
        connDist.Close()

    End Sub

En rouge, ce sont les lignes où j'ai des erreurs de Cast apparemment, problème de type de données.
Dans la listview, j'ai créé 3 colonnes "libelle", "date" et "code" où code récupère un N°.

Pouvez vous m'aider svp ?
Merci

[Bluedeep]

Tu n'as pas oublié de positionner la propriété "View" à "Detail" ? (ça arrive à tout le monde).

Sinon, il manque le ToString sur le libélle du ListViewItem (le premier).

[stolx_10]

Tu n'as pas oublié de positionner la propriété "View" à "Detail" ? (ça arrive à tout le monde).

c'est à dire ?
la propriété view je la mets sur quoi ?
et Detail ?

Sinon, il manque le ToString sur le libélle du ListViewItem (le premier).

ListViewItem ne me propose pas de propriété ToString...


Merci

[Bluedeep]

c'est à dire ?
la propriété view je la mets sur quoi ?
et Detail ?

Ben, la propriété View de la ListView à la valeur Detail.

ListViewItem ne me propose pas de propriété ToString...

LVI = dgMobile.Items.Add(myReader.Item(5).ToString())

[stolx_10]

dgMobile.View = View.Details

ok pour ça !


ok merci j'ai vu ta reponse en écrivant ce message

[stolx_10]

Ben, la propriété View de la ListView à la valeur Detail.



LVI = dgMobile.Items.Add(myReader.Item(5).ToString())

ah oui, mais j'ai déjà essayé ça, mais ça me met quand même une erreur de Cast.
Je réessaie avec le view detail

[stolx_10]

Code :

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

LVI = dgMobile.Items.Add(myReader.Item(5).ToString())

déjà quand j'écris le code, il me fait les zigzag bleus sous la définition.

Value of type "string" cannot be converted to 'system.windows.form.listviewitem'


je réessaie avec ça

Code :

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

LVI.Text = dgMobile.Items.Add(myReader.Item(5)).ToString()

[stolx_10]

toujours pareil , InvalidCastException

[stolx_10]

Solution :

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
 Private Sub AfficherListe()
 
        Dim myReader As SqlDataReader = Nothing
        Dim liste As SqlCommand = Nothing
        Dim connDist As SqlConnection = Nothing
 
        connDist = New SqlConnection(App.Singleton.ConnDistante)
        connDist.Open()
 
        liste = ListeInventAImporterDist(connDist)
 
        myReader = liste.ExecuteReader()
 
        dgMobile.Items.Clear()
 
        Do While myReader.Read()
 
 
            'Création d'une instance de listView
            Dim LVI As New ListViewItem
 
            dgMobile.View = View.Details
            'Remplir la ListView;
            LVI.Text = myReader.GetValue(5)
            LVI.SubItems.Add(myReader.GetValue(7).ToString)
            LVI.SubItems.Add(myReader.GetValue(3).ToString)
 
            dgMobile.Items.Add(LVI)
 
        Loop
 
        myReader.Close()
        connDist.Close()
 
    End Sub