Discussion :

[walid kh]

bonjour à tous ,

voilà je travaille sur vb 2008 avec une BD MySql mon problème consiste que je veux récupérer le résulatat d'une requéte 'select'; je m'explique je veux récuperer les "nom_util" qui ont un "id_etat" =0 mais le résultat qu'il me retourne toujours le premier enregistrement seulement

voilà le code :

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
conn = New MySqlConnection
        conn.ConnectionString = hote
        req = "select nom_util from personnel where id_etat = 0"
        req2 = "select count(id_p) from personnel where id_etat = 0"
        contact = New MySqlCommand(req2, conn)
        Try
            conn.Open()
            i = contact.ExecuteScalar
            Dim j As Integer
            contact = New MySqlCommand(req, conn)
            For j = 0 To i - 1
                lstcontact.Items.Add(contact.ExecuteScalar.ToString)
            Next
        Catch ex As Exception
            MessageBox.Show(ex.ToString(), "Impossible d'établir la connexion", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
 
        conn.Close()

merci d'avance

[Pol63]

executescalar retourne une valeur seulement, et sur un select ca retourne la première cellule de la première ligne

pour récupérer plusieurs lignes et/ou plusieurs colonnes il faut utiliser executereader, et donc utiliser un dbdatareader

je te conseille de lire un cours
http://plasserre.developpez.com/cours/vb-net/

[walid kh]

Merci pour ta réponse voilà le code si qqun en a besoin

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
conn = New MySqlConnection
        conn.ConnectionString = hote
        req = "select nom_util from personnel where id_etat = 0"
        contact = New MySqlCommand(req, conn)
        Try
            conn.Open()
            lire = contact.ExecuteReader ' Dim lire As MySqlDataReader
            Do While lire.Read()
                lstcontact.Items.Add(lire("nom_util"))
            Loop
            lire.Close()
        Catch ex As Exception
            MessageBox.Show(ex.ToString(), "Impossible d'établir la connexion", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        conn.Close()

à +