Probleme ComboBox 2 Colonnes avec String, Affichage Valeur TextBox

**superthx** · 28/08/2014, 14h53

Bonjour,
Je me gratte la tète sur récupérer une combobox avec string qui prend 2 valeurs pour afficher une valeur dans un textbox.
Le Premier code m'affiche clairement ce que je desire.

Code vb.net :

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
 'INICIO PRODUCTO
        Try
            MysqlConn.Open()
            Dim Query As String
            Query = "select Apellidos, Nombre from test.RHumanos_Personal order by Apellidos asc"
            COMMAND = New MySqlCommand(Query, MysqlConn)
            READER = COMMAND.ExecuteReader
            While READER.Read
                Dim Apellidos = READER.GetString("Apellidos")
                Dim Nombre = READER.GetString("Nombre")
                ComboBox1.Items.Add(String.Format("{0} | {1}", Apellidos, Nombre))
            End While
 
            MysqlConn.Close()
 
        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
            MysqlConn.Dispose()
        Finally
            MysqlConn.Dispose()
 
        End Try
        'FIN PRODUCTO

Donc je peux choisir en voyant Apellidos et Nombre. Jusqu'ici pas de problemes.

C'est la deuxième parti du code qui me pose problème. Si je n'avais qu'une valeur je n'aurai pas eu le problèmes. Au moment de cliquer je crois qu'il c'est pas lire le combobox du au string.

Code vb.net :

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
 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        MysqlConn = New MySqlConnection
        MysqlConn.ConnectionString =
        "server=localhost;userid=root;password=root;database=test"
        Dim READER As MySqlDataReader
 
        Try
            MysqlConn.Open()
            Dim Query As String
            Query = "select Direccion from test.RHumanos_Personal where Apellidos  = '" & ComboBox1.Text & "' AND Nombre = '" & ComboBox1.Text & "'"
            COMMAND = New MySqlCommand(Query, MysqlConn)
            READER = COMMAND.ExecuteReader
            While READER.Read
                Dim Apellidos = READER.GetString("Apellidos")
                Dim Nombre = READER.GetString("Nombre")
                ComboBox1.Items.Add(String.Format("{0} | {1}", Apellidos, Nombre))
            End While
 
 
            While READER.Read
                TextBox1.Text = READER.GetString("Direccion")
 
            End While
 
            MysqlConn.Close()
 
        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
        Finally
            MysqlConn.Dispose()
 
        End Try

Je laisse le code en entier si quelqu'un peux m'aider a resoudre correctement ce probleme. Car je ne sais pas la correct syntax.

Code vb.net :

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
Imports MySql.Data.MySqlClient
Public Class TEST
    Dim MysqlConn As MySqlConnection
    Dim COMMAND As MySqlCommand
    Private Sub TEST_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MysqlConn = New MySqlConnection
        MysqlConn.ConnectionString =
        "server=localhost;userid=root;password=root;database=test"
        Dim READER As MySqlDataReader
 
        'INICIO PRODUCTO
        Try
            MysqlConn.Open()
            Dim Query As String
            Query = "select Apellidos, Nombre from test.RHumanos_Personal order by Apellidos asc"
            COMMAND = New MySqlCommand(Query, MysqlConn)
            READER = COMMAND.ExecuteReader
            While READER.Read
                Dim Apellidos = READER.GetString("Apellidos")
                Dim Nombre = READER.GetString("Nombre")
                ComboBox1.Items.Add(String.Format("{0} | {1}", Apellidos, Nombre))
            End While
 
            MysqlConn.Close()
 
        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
            MysqlConn.Dispose()
        Finally
            MysqlConn.Dispose()
 
        End Try
        'FIN PRODUCTO
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        MysqlConn = New MySqlConnection
        MysqlConn.ConnectionString =
        "server=localhost;userid=root;password=root;database=test"
        Dim READER As MySqlDataReader
 
        Try
            MysqlConn.Open()
            Dim Query As String
            Query = "select Direccion from test.RHumanos_Personal where Apellidos  = '" & ComboBox1.Text & "' AND Nombre = '" & ComboBox1.Text & "'"
            COMMAND = New MySqlCommand(Query, MysqlConn)
            READER = COMMAND.ExecuteReader
            While READER.Read
                Dim Apellidos = READER.GetString("Apellidos")
                Dim Nombre = READER.GetString("Nombre")
                ComboBox1.Items.Add(String.Format("{0} | {1}", Apellidos, Nombre))
            End While
 
 
            While READER.Read
                TextBox1.Text = READER.GetString("Direccion")
 
            End While
 
            MysqlConn.Close()
 
        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
        Finally
            MysqlConn.Dispose()
 
        End Try
 
    End Sub
End Class

Merci de votre aide....

**Foudogue** · 29/08/2014, 18h28

Bonjour,

j'ai pas tout compris à ton charabia mais si je comprends dans les grandes lignes il refuse de te récupérer des éléments dans une comboBox ?
Si c'est la cas je crois que ça ne suffira pas : ComboBox1.Text

Une comboBox peut avoir plusieurs valeur et chacune est indéxé dans un tableau (enfin je crois)
Il faut que tu choisisse c'est index est ensuite ton .Text

Je regarde exactement et j'édite pour te redire sauf si tu trouve entre temps

Bon en fait j'ai rien dis

en effet récupérer le text d'un CBX c'est ma Cbx.Text mais oubli pas le .ToString() derrière

Soit maCbx.Text.ToStrin();

ça devrait marché (après il faut voir aussi ta BDD comment elle est

)

**Mario Rousson** · 29/08/2014, 22h05

Dim Str() as string = ComboBox1.Text.split("|")
ça ressemblerait pas plus à ComboBox1.SelectedItem.ToString.Split("|")
Query = "select Direccion from test.RHumanos_Personal where Apellidos = '" & str(0) & "' AND Nombre = '" & Str(1) & "'"

si je comprend bien

**superthx** · 04/09/2014, 14h26

Merci de votre aide car je peine vraiment et j'avais pas mis la notification par mail.

En fait mon ComboBox1 me permet de recuper Apellidos et Nombre

Code :

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

1
2
3
4
5
6
            While READER.Read
                Dim Apellidos = READER.GetString("Apellidos")
                Dim Nombre = READER.GetString("Nombre")
                ComboBox1.Items.Add(String.Format("{0} | {1}", Apellidos, Nombre))
                ComboBox1.Items.Add(Apellidos)
            End While

Donc quand je clique dessus il m'affiche correctement ce que j'ai dans la table sous le format suivant :

Messi|Lionel

Sa c'est bon.

J'ai un bouton qui me permet d'afficher dans TextBox1 son Adresse. J'ai fais des test en virant Nombre sans le ComboBox1.Items.Add(String.Format("{0} | {1}", Apellidos, Nombre)) etc.... Pas de probleme sa marche.

En fait je sais pas comment recuperer dans TextBox1 avec la combinaison Apellidos + Nombre.
Donc il m'affiche rien.

Je vous laisse le code original

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Imports MySql.Data.MySqlClient
Public Class TEST
    Dim MysqlConn As MySqlConnection
    Dim COMMAND As MySqlCommand
    Private Sub TEST_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MysqlConn = New MySqlConnection
        MysqlConn.ConnectionString =
        "server=192.168.1.10;userid=xxxx;password=xxxx;database=xxxx"
        Dim READER As MySqlDataReader

        'INICIO Apellidos
        Try
            MysqlConn.Open()
            Dim Query As String
            Query = "select Apellidos, Nombre from xxxx.RHumanos_Personal order by Apellidos asc"
            COMMAND = New MySqlCommand(Query, MysqlConn)
            READER = COMMAND.ExecuteReader

            While READER.Read
                Dim Apellidos = READER.GetString("Apellidos")
                Dim Nombre = READER.GetString("Nombre")
                ComboBox1.Items.Add(String.Format("{0} | {1}", Apellidos, Nombre))
                ComboBox1.Items.Add(Apellidos)
            End While

            MysqlConn.Close()

        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
            MysqlConn.Dispose()
        Finally
            MysqlConn.Dispose()

        End Try
        'FIN Apellidos

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        MysqlConn = New MySqlConnection
        MysqlConn.ConnectionString =
        "server=192.168.1.10;userid=xxxx;password=xxxx;database=xxxx"
        Dim READER As MySqlDataReader

        'INICIO Direccion
        Try
            MysqlConn.Open()
            Dim Query As String
            Dim Str() As String = ComboBox1.SelectedItem.ToString.Split("|")
            Query = "select Direccion from xCantera.RHumanos_Personal where Apellidos = '" & Str(0) & "' AND Nombre = '" & Str(1) & "'"
            COMMAND = New MySqlCommand(Query, MysqlConn)
            READER = COMMAND.ExecuteReader


            While READER.Read

                TextBox1.Text = READER.GetString("Direccion")

            End While
            MysqlConn.Close()

        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
        Finally
            MysqlConn.Dispose()

        End Try
        'Fin Direccion

    End Sub

End Class

Envoyé par Mario Rousson

Dim Str() as string = ComboBox1.Text.split("|")
ça ressemblerait pas plus à ComboBox1.SelectedItem.ToString.Split("|")
Query = "select Direccion from test.RHumanos_Personal where Apellidos = '" & str(0) & "' AND Nombre = '" & Str(1) & "'"

si je comprend bien

J'ai introduit ton code mais cela ne me fais rien.............
Je vais continuer a voir cela. Est-ce comme ci dessus que tu dis d'implanter ton code ?

Car une fois cela fais je pourrais avancer monstrueusement dans mon petit EXE
Merci....

**superthx** · 05/09/2014, 10h29

Envoyé par Mario Rousson

Dim Str() as string = ComboBox1.Text.split("|")
ça ressemblerait pas plus à ComboBox1.SelectedItem.ToString.Split("|")
Query = "select Direccion from test.RHumanos_Personal where Apellidos = '" & str(0) & "' AND Nombre = '" & Str(1) & "'"

si je comprend bien

Merci............
Votre aide est precieuse....

J'ai modifier les espaces dans

Code :

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

ComboBox1.Items.Add(String.Format("{0} | {1}", Apellidos, Nombre))

Cela fonctionne maintenant.

Probleme ComboBox 2 Colonnes avec String, Affichage Valeur TextBox [Débutant]

VB.NET

Discussions similaires

Partager

Partager