Bonjour,

Je souhaite faire un chargement par défaut de plusieurs combox qui se retrouvent sur plusieurs windowsforms.

Pour ca j'ai créer un 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
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 System.Data
Imports System.Data.OleDb
 
Module Connection_DB
    'Déclaration des variables de connection à la BDD
    Public BDDConnection As OleDbConnection
    Public BDDCommand As OleDbCommand
    Public BDDDataAdapter As OleDbDataAdapter
    Public BDDDataSet As New DataSet()
    Public Requete As String
    Public BDDDataTable As DataTable
    Public BDDDataRow As DataRow
    Public RowNumber As Integer
    Public ParametreConnection As String
    Public BDDCommandBuilder As OleDbCommandBuilder
 
    Function ConnecDB(ByVal Requete As String, ByVal Nom_Table As String)
        BDDDataSet = New DataSet()
        BDDConnection = New OleDbConnection()
        BDDConnection.ConnectionString = ParametreConnection
        Try
            BDDConnection.Open()
        Catch
            MsgBox("Vous devez ouvrir une Base de donnée Access avant toute opération.")
        End Try
        BDDCommand = New OleDbCommand(Requete)
        BDDDataAdapter = New OleDbDataAdapter(BDDCommand)
        BDDCommand.Connection() = BDDConnection
        BDDDataAdapter.Fill(BDDDataSet, Nom_Table)
        BDDConnection.Close()
        Return BDDDataSet
    End Function
 
    Function Load_def()
        Dim nb_champs As Integer
 
        BDDDataSet = New DataSet()
        ConnecDB("SELECT * FROM Pays", "Pays")
 
        nb_champs = BDDDataSet.Tables("Pays").Rows.Count
 
        RowNumber = 0
        While RowNumber < nb_champs
            Me.ComboBox_Pays.Items.Add(BDDDataSet.Tables("Pays").Rows(RowNumber).Item("Pays").ToString())
            RowNumber = RowNumber + 1
        End While
 
        BDDDataSet = New DataSet()
        ConnecDB("SELECT * FROM Départements", "Dep")
 
        nb_champs = BDDDataSet.Tables("Dep").Rows.Count
 
        RowNumber = 0
        While RowNumber < nb_champs
            Me.ComboBox_CP.Items.Add(BDDDataSet.Tables("Dep").Rows(RowNumber).Item("NumDépartement").ToString())
            Me.ComboBox_Dep.Items.Add(BDDDataSet.Tables("Dep").Rows(RowNumber).Item("Département").ToString())
            RowNumber = RowNumber + 1
        End While
 
        BDDDataSet = New DataSet()
        ConnecDB("SELECT * FROM Villes", "Villes")
 
        nb_champs = BDDDataSet.Tables("Villes").Rows.Count
 
        RowNumber = 0
        While RowNumber < nb_champs
            Me.ComboBox_Ville.Items.Add(BDDDataSet.Tables("Villes").Rows(RowNumber).Item("Ville").ToString())
            RowNumber = RowNumber + 1
        End While
    End Function
 
End Module
C'est donc ma fonction Load_Def qui s'en occupe. Mon problème est que je ne sais pas quel argument lui faire passer pour changer les combobox dans les formulaires.

Merci!