Bonjour

J'ai un souci avec mon code ( cf plus bas)

En fait, le souci se trouve ici :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
sql100 = "SELECT * FROM suivi WHERE resolu = '" & "pas répondu" & "'"
da100 = New MySqlDataAdapter(sql100, HostConn)
da100.Fill(dst100, "suivi")
on dirait qu'il ignore la ligne da100.Fill(dst100, "suivi"), lorque j'avance en pas à pas détaillé, il s'arrete a cette ligne, puis rien ne se passe et ma listview ne se rempli pas
Si je passe en commentaire cette ligne et que je fixe les variables nticket, etab...., ma listeview se rempli correctement

Aucune erreur en s'affiche, le code s'execute mais s'arrete à cette ligne, du coup la listview ne se rempli pas

Cela fait quelqeus jours que je test mais je ne m'en sors pas, je sèche

Merci à vous




Code complet du chargement de la Winform

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
41
42
43
44
45
46
47
48
49
50
ListView1.BeginUpdate()
        ListView1.Items.Clear()
 
 
        adresse1 = mod_INI.LireINI("@suiviqualite", "adresse")
        user1 = mod_INI.LireINI("@suiviqualite", "user")
        password1 = mod_INI.LireINI("@suiviqualite", "password")
        db1 = mod_INI.LireINI("@suiviqualite", "database")
        HostConn.ConnectionString = "server=" & adresse1 & ";" _
                                & "user id=" & user1 & ";" _
                                & "password=" & password1 & ";" _
                                & "database=" & db1 & ""
 
        HostConn.Open()
        Dim sql20 As String
        sql20 = "SELECT COUNT(*) FROM suivi WHERE resolu = '" & "pas répondu" & "'"
        da20 = New MySqlDataAdapter(sql20, HostConn)
        da20.Fill(dst20, "suivi")
        nombre_ligne10 = (dst20.Tables("suivi").Rows(0).Item(0)) - 1
 
        For i = 0 To nombre_ligne10
 
 
            Dim nticket, etab, etat, user, satisfait As String
            Dim datemail As Date
            Dim sql100 As String
            sql100 = "SELECT * FROM suivi WHERE resolu = '" & "pas répondu" & "'"
            da100 = New MySqlDataAdapter(sql100, HostConn)
            da100.Fill(dst100, "suivi")
            nticket = 1
            etab = 2
            user = 3
            datemail = Date.Now
            etat = 5
            satisfait = 6
 
            'INITIALISATION(ListView)
 
            ListView1.Items.Add(New ListViewItem(New String() {nticket, datemail, user, etab, etat, satisfait}))
 
        Next
 
 
        'MISE A JOUR DE LA LISTVIEW TERMINEE
        MsgBox("bouh")
        ListView1.EndUpdate()
        HostConn.Close()
        dst10.Clear()
        dst20.Clear()
        dst100.Clear()