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
|
Dim Connection As New OleDb.OleDbConnection
Try
' Connection
Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & Application.StartupPath & "\Source\Parc Vehicule.mdb;"
Connection.Open()
' Création de la requête
Dim SqlFiltre As String
SqlFiltre = "SELECT NomDeLaTable.NomDuChamp1, NomDeLaTable.NomDuChamp2 " & _
"FROM NomDeLaTable " & _
"WHERE NomDeLaTable.NomDuChamp1 = TaClause " & _
"ORDER BY NomDuChamp1;"
' Création du DataAdapter
Dim DtAdapter = New OleDb.OleDbDataAdapter(SqlFiltre, Connection)
' Création du DataSet
Dim DtSet As New DataSet
DtAdapter.Fill(DtSet, "Tbl_MaTable")
' Remplissage de la liste
Me.cboTaCombobox.DisplayMember = NomDuChampX
Me.cboTaCombobox.ValueMember = "ID_NomDuChampX"
Me.cboTaCombobox.DataSource = DtSet.Tables("Tbl_MaTable")
Me.cboTaCombobox.Refresh()
Catch ex As Exception
'Message d'erreur
'MessageBox.Show(ex.ToString, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
'Vider la liste (se produit lorsque l'égalité de Where est null
Me.cboTaCombobox.DisplayMember = Nothing
Me.cboTaCombobox.ValueMember = Nothing
Me.cboTaCombobox.DataSource = Nothing
Finally
'Fermer la connection
Connection.Close()
End Try |
Partager