[vb.net] probleme avec mon combobox

Version imprimable

voila j récupéré la liste de mes référence depuis ma base de données mais le problème c'est que j'arrive pas a sélectionné aucune valeur ?????

voici le code que j effectué :

Code:

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
 
 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged, ComboBox1.Click
        Dim conn As MySqlConnection
        Dim dr As MySqlDataReader
        Dim MyAdapt As New MySqlDataAdapter
 
        conn = New MySqlConnection()
        conn.ConnectionString = "Data Source= localhost;user id= utilisateur ;password=1234;database=dolibarr"
 
        Try
            conn.Open()
 
            Dim myCommand As New MySqlCommand
            Dim strQuery As String
            strQuery = "SELECT " & _
              "llx_product.ref " & _
              "FROM " & _
              "llx_product"
 
            myCommand.Connection = conn
            myCommand.CommandText = strQuery
 
            dr = myCommand.ExecuteReader()
            ComboBox1.Items.Clear()
            If dr.HasRows Then
 
                Do While dr.Read()
 
                    ComboBox1.Items.Add(dr.GetString(0))
                 Loop

22/03/2010, 13h29
cybermaxs

Salut,
Comment essayes tu de sélectionner une valeur de la combo ?
tu montres le code du remplissage, mais pas celui de la sélection.
22/03/2010, 13h36
zOoOm_10

j essayé avec selectedindex mais ca macrhe pas( j beau chercher sur le net j trouve rien) ??? en faite j suis débutant en vb donc si ta un code ca sera le bien venu .

et merci
22/03/2010, 13h49
cybermaxs

Citation:

Envoyé par zOoOm_10

j essayé avec selectedindex mais ca macrhe pas( j beau chercher sur le net j trouve rien) ??? en faite j suis débutant en vb donc si ta un code ca sera le bien venu .

et merci

ComboBox.SelectedIndex représente l'index de l'élément dans la liste. Il y a dans le même genre ComboBox.SelectedValue et ComboBox.SelectedItem. Vu comment tu ajoutes les élements à la combo, soit sûr de bien passer une chaine et pas un autre type.
22/03/2010, 14h26
zOoOm_10

désoli m j'arrive pas a résoudre le problème :oops:

en faite pour l'instant tous ce que je veux c'est on cliquant sur le combobox faire apparaitre la liste de mes ref (cette étape fonctionne correctement ) et par la suite je voudrai choisir une ref parmi la liste mais en cliquant rien ne se produit mon combobox reste vide!!!:?
22/03/2010, 14h37
hunteshiva
Comment est définie ta ComboBox? en liste?
comme ceci ?

Code:

cmbx1.DropDownStyle = ComboBoxStyle.DropDownList

Après ce qui m'étonne c'est que tu n'ais rien comme tu dit ...
Normalement ta comboBox doit te retourner un index de type Integer
Code:

1 2 Dim IndexCombo As Integer IndexCombo = cmbx1.SelectedIndex
et il ne te reste plus qu'a comparer la valeur de cet index
:arrow: attention: l'index commence à '0'

met ceci si tu veut éviter de réfléchir :mouarf:

Code:

Dim IndexCombo As Integer = cmbx1.SelectedIndex + 1
22/03/2010, 14h55
zOoOm_10

@hunteshiva :

j déjà essayé ta méthode mais j toujours le même problème et le plus énervant a l'exécution c'est que l'élément sélectionné s'affiche environ une seconde et après plus rein :cry: j vraiment tous essayé

sinon j'aimerais bien éviter de réfléchir :(
22/03/2010, 15h02
hunteshiva

hum ...
tu travaille avec une base de données protégée par un mot de passe ..? 8O
je ne pense pas que le problème vienne de ta comboBox ...
Essaye de passer en "Mode débugage"

regarde ce que contient ta comboBox ...

:arrow: les index
:arrow: les valeur text
ah et aussi ce que tu récupère avec ton code SQL ou dans le dataReader
(le mode débugage a été très bien conçu je trouve, tu peut voir beaucoup de choses)

pour que vb mette du temps a t'afficher les valeurs de ta combox
c'est qu'il y a un mal entendu entre lui et le code que tu lui a proposé :?
j'attend ta réponse ;)

PS: je travaille avec une base de données en ce moment et c'est de l'instantané :ccool:
22/03/2010, 15h10
zOoOm_10

pareille y a rien de spéciale le code s'exécute normalement , il n a rien détecté d'anormale :?
22/03/2010, 15h14
hunteshiva

attend,
dit moi si je comprend bien ton problème ^^

tu charge une partie de ta base dans un dataReader,
et tu la met un colonne dans ta comboBox

Seulement dés que tu choisi un élément dans ta ComboBox,
la ya soucis ... :?

tu peut me mettre le code qui est utlisé ... *stp*

voila la méthode que tu ma proposé

Code:

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
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged, ComboBox1.Click
        Dim conn As MySqlConnection
        Dim dr As MySqlDataReader
        Dim MyAdapt As New MySqlDataAdapter
        Dim Index As Integer
 
        conn = New MySqlConnection()
        conn.ConnectionString = "Data Source= localhost;user id= utilisateur ;password=1234;database=dolibarr"
 
        Try
            conn.Open()
 
            Dim myCommand As New MySqlCommand
            Dim strQuery As String
            strQuery = "SELECT " & _
              "llx_product.ref " & _
              "FROM " & _
              "llx_product"
 
            myCommand.Connection = conn
            myCommand.CommandText = strQuery
 
            dr = myCommand.ExecuteReader()
            ComboBox1.Items.Clear()
            If dr.HasRows Then
 
                Do While dr.Read()
 
                    ComboBox1.Items.Add(dr.GetString(0))
 
                Loop
 
   ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
 
 
                Index = ComboBox1.SelectedIndex
 
                Index = ComboBox1.SelectedIndex + 1

sinon j bien essayé avec les combo.selecteditem et j le meme resultat

22/03/2010, 15h30
hunteshiva

:mrgreen:
mais fallait pas rajouter le code a l'arrache sous le tien

Bon déjà il y a quelque chose que je trouve bisare dans ton code
dés que tu sélectionne un élément dans ta liste, tu la remet aussitôt a jour
ou un truc comme sa ...

tu devrais plutôt générer ta liste au form_load par exemple
la c'est pas trop normale de faire ce que tu fait ...

en gros ton code me semble juste mais tu n'est pas au bon endroit :mouarf:
:arrow: CTRL + X :arrow: et tu me met tout sa ailleurs (au form_load je dirais)

*enfin juste .... tu ne m'a pas l'aire de savoir trop ce que tu fait :(
enlève tout le code que je t'ais donné au passage il sert a rien la*

:arrow: From_Load

Code:

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
 
        Dim conn As MySqlConnection
        Dim dr As MySqlDataReader
        Dim MyAdapt As New MySqlDataAdapter
        Dim Index As Integer
 
        conn = New MySqlConnection()
        conn.ConnectionString = "Data Source= localhost;user id= utilisateur ;password=1234;database=dolibarr"
 
        Try
            conn.Open()
 
            Dim myCommand As New MySqlCommand
            Dim strQuery As String
            strQuery = "SELECT " & _
              "llx_product.ref " & _
              "FROM " & _
              "llx_product"
 
            myCommand.Connection = conn
            myCommand.CommandText = strQuery
 
            dr = myCommand.ExecuteReader()
            ComboBox1.Items.Clear()
            If dr.HasRows Then
 
                Do While dr.Read()
 
                    ComboBox1.Items.Add(dr.GetString(0))
 
                Loop

:arrow: et tu ne met rien dans "ComboBox1_SelectedIndexChanged"

sa sent le code pris sur un site mais pas encore maitrisé... :oops:

22/03/2010, 15h42
zOoOm_10

c'est mon premier projet sur vb donc j suis totalement perdu :aie: je travail plus avec java Mais merci tous de même :ccool:
22/03/2010, 15h46
hunteshiva

Je voi sa
je fais pas beaucoup mieux tu sais,
j'ais jamais trop dévellopé en vb.net mais la j'ais un stage ou je doit dévelloper tout un programme...:aie:
22/03/2010, 15h47
zOoOm_10

:ccool::ccool::ccool:

ca marche enfin :merci:
22/03/2010, 15h49
hunteshiva

ahh je suis pas si mauvais que sa en conseil alors :mrgreen:

oublie pas résolue en bas ;)
et bonne continuation

Et oui tu débrouille trés bien:P

sinon voici le code complet :

Code:

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
 Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim conn As MySqlConnection
        Dim dr As MySqlDataReader
        Dim MyAdapt As New MySqlDataAdapter
 
        conn = New MySqlConnection()
        conn.ConnectionString = "Data Source= localhost;user id= utilisateur ;password=1234;database=dolibarr"
 
        Try
            conn.Open()
 
            Dim myCommand As New MySqlCommand
            Dim strQuery As String
            strQuery = "SELECT " & _
              "llx_product.ref " & _
              "FROM " & _
              "llx_product"
 
            myCommand.Connection = conn
            myCommand.CommandText = strQuery
 
            dr = myCommand.ExecuteReader()
            ComboBox1.Items.Clear()
            If dr.HasRows Then
 
                Do While dr.Read()
 
                    ComboBox1.Items.Add(dr.GetString(0))
 
                Loop
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
 
            Else
                MessageBox.Show("No result for your Data", "Infos")
 
            End If
            conn.Close()
        Catch myerror As MySqlException
            MessageBox.Show("Error Connecting to Database: " & myerror.Message)
        Finally
            conn.Dispose()
        End Try
    End Sub