Discussion :

[scorpionrun]

Bonjour à tous,

Je suis perdu et j'espére que vous pourrez m'aider.
Je suis sous vb2008.
Voilà mon probléme, sachant que j'ai crée 3 tables(VILLE) dans phpmyadmin(idville,codepostal,libville).
J'ai crée une combobox sur vb2008 pour récupérer 2 tables qui se trouve dans phpmyadmin :
Je récupére bien le Code Postal et la Ville.
L'affichage dans la combobox est bon. Voiçi 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
19
20
21
22
23
24
25
26
Public Sub rempcombobox(ByVal RequeteSQL As String, ByVal combo As ComboBox)
 
        objCommand = New MySqlCommand(RequeteSQL, Connection)
        objDataReader = objCommand.ExecuteReader
 
        'création datatable avec 2 colonnes
        Dim dt As New DataTable
        dt.Columns.Add("code")
        dt.Columns.Add("libville")
 
        While objDataReader.Read
            ' lit  l'IDville, et concaténe le code postal et la ville
            dt.Rows.Add(objDataReader.GetString(0), objDataReader.GetString(1) + " " + objDataReader.GetString(2))
        End While
        ' met dt et la met dans la source de la combobox
        combo.DataSource = dt
        combo.ValueMember = "code"
        combo.DisplayMember = "libville"
        combo.DropDownStyle = ComboBoxStyle.DropDownList
 
        objCommand = Nothing
        objDataReader.Close()
        objDataReader = Nothing
 
 
    End Sub

Ce que je veux c'est d'afficher dans 2 TEXTBOX (textbox1 = codepostal et textbox2 = libville) et bouton modifier.
En espérant une modification dans ma table.
Je ne veux pas les modifiers dans la combobox!!!
Je débute mais là je n'y arrive pas.
Je vous remercie d'avance.

Cordialement
scorpionrun

[Lapinpanda]

Il existe deux valeurs assimilable dans une comboBox.

maCombo.selectedValue

et
maCombo.selectedItem.text


Value == La valeur "clé" de la combo

Text == la valeur affiché


Si tu remplis ta combo avec "code postale" dans Value et que tu affiche "lblVIlle" dans Text tout ira pour le mieux

[scorpionrun]

Merci pour votre réponse.
Voilà ce que j'ai fait comme modification :

Code :

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

1
2
3
4
5
6
7
combo.DataSource = dt
        combo.ValueMember = "code"
        combo.DisplayMember = "libville"
        combo.SelectedValue = "code"
        combo.SelectedItem.text = "libville"
 
        combo.DropDownStyle = CoBoxStyle.DropDownList

puis pour afficher dans 2 text box differents :

Code :

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

1
2
txtbox_affich_codepost.Text = cbbox_choix_modif_codville.SelectedValue
            txtbox_affich_ville.Text = cbbox_choix_modif_codville.SelectedItem.text

Mais cela ne fonctionne pas il me dit :

Variable objet ou variable d'un bloc With non définie.

Bon je pense avoir fait quelques choses de pas bien.

scorpionrun

[Lapinpanda]

Jamais rencontré cette erreur de ma vie donc aucune idée de ou que cela peut sortir, regarde sur internet ou le forum!

Code :

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

1
2
txtbox_affich_codepost.Text = cbbox_choix_modif_codville.SelectedValue
txtbox_affich_ville.Text = cbbox_choix_modif_codville.SelectedItem.text

ce code la est bon en tout cas.

Aprés celui ci :

Code :

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

1
2
3
4
5
6
7
combo.DataSource = dt
combo.ValueMember = "code"
combo.DisplayMember = "libville"
combo.SelectedValue = "code"
combo.SelectedItem.text = "libville"
 
combo.DropDownStyle = CoBoxStyle.DropDownList

j'ai utilisé cette méthode il y a trop longtemps pour me rappeller si c'est bon, mais ca m'as l'air correct...

[scorpionrun]

Bon ne fonctionne toujours pas, si quelqu'un à une autre solution.
Merci quand même..