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 |