Discussion :

[_Ez3kiel]

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 :

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

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.

[gabouille]

Bon J'ai Finalement Trouvé une alternative:


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

Module :

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
 
 
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 :

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

1
2
 
ds.Clear()

respectivement par

Code :

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

1
2
 
dtPays.clear()

Code :

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

1
2
 
dtVille.clear()

Code :

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

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