[VB.NET] Remplissage d'une Combobox à partir d'une base de données

Peux-tu mettre ton code dans les balises [code ][/code] prévues à cet effet pour une meilleure lisibilité ?

Sinon msgbox(CommandText) ne t'affichera pas les valeurs (malheureusement), mais tu peux le temps d'un débogage duplique le tout dans une variable pour l'afficher avec l'interprétation de .SelectedValue.

Code:

---

1 2 3

Dim req As String = "SELECT ID_Ville, Nom_Ville FROM Table_Ville WHERE ID_PAYS =" & ComboBoxPays.selectedValue Cmd.CommandText = req MsgBox(req)

---

Et aussi faire un petit récapitulatif de où tu en es, ce qui marche/ne marche pas, les erreurs, etc. :mouarf:

Bon J'ai Finalement Trouvé une alternative:


En reprenant tout le code de JetLibre, J'ai fais une modification :

Module :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Imports System.IO Imports System.Data Imports System.Data.OleDb Imports Microsoft.VisualBasic   Module Module1 Public Cn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\gp992189\Desktop\BDD_Equipement.accdb") Public Dr As OleDb.OleDbDataReader Public Da As New OleDb.OleDbDataAdapter Public Ds As New DataSet Public Cmd As New OleDb.OleDbCommand   Public DtPays As New DataTable Public DtVille As New DataTable Public DtRue As New DataTable   End Module

---

--> j'ai juste fait la distinction des trois DT comme j'ai trois tables dans ma BDD

Dans le Form Load, dans la CB_Pays et la CB_Ville Je remplace la première ligne :

Code:

---

1 2	ds.Clear()

---

respectivement par

Code:

---

1 2	dtPays.clear()

---

Code:

---

1 2	dtVille.clear()

---

Code:

---

1 2	dtRue.clear()

---

et comme par Magie, cela marche !
Je ne sais pas si c'est très rigoureux, dangereux...

J'attend vos commentaire avant de mettre la discution résolue :)