Bonsoir à tous
je cherche à " remplir une combobox à partir d'une table (ACCESS) je galère :
Voici mon code "en gras ce qui ne fonctionne pas"
Imports
System.Data
Imports System.Data.OleDb
Module ModBaseDonnee
Dim Connexion
As
String
Dim ConnexionOLE
As OleDbConnection =
New OleDbConnection()
Dim da
As OleDbDataAdapter
Dim ds
As DataSet
Dim dv
As DataView
Dim cb
As OleDbCommandBuilder
Sub connecter()
Connexion =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Mes
documents\BD\MaBase.mdb"ConnexionOLE.ConnectionString = Connexion
ConnexionOLE.Open()
da =
New OleDbDataAdapter(
"Select Designation from MaTable", ConnexionOLE)
ds =
New DataSet()
da.Fill(ds,
"mytable")
dv = ds.Tables(
"mytable").DefaultView
ConnexionOLE.Close()
FrmConsultation.CmbStructure.DataSource =
"Designation"
dv.AllowEdit =
True
End
Sub
Pouvez vous m'aider SVP je nage complèt
Jf