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:
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.
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
Merci!
Partager