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
|
' ... ... ...
BaseDtt = New DataTable
BaseCnxStr = "provider = microsoft.ACE.OLEDB.12.0 ; data source = C:\Cmc Interface 2020\BASE_CMC.accdb"
BaseCnx = New OleDbConnection
BaseCnx.ConnectionString = BaseCnxStr
' !!!!!!!!!!! BaseCnx.Open() ===========> pas besoin d'OPEN quand usage du DataAdapter
BaseSql = "select CONTACT.* from CONTACT"
' ********** BaseCmd = New OleDbCommand(BaseSql)
BaseDta = New OleDbDataAdapter(BaseSql, BaseCnx)
'BaseCmd.Connection() = BaseCnx
BaseDta.Fill(BaseDtt)
BaseDtt.TableName = "CONTACT" ' superflu car avec Access, le nom de la table sera récupéré par de BaseDta. Mais pss interdit.
BaseDts.Tables.Add(BaseDtt)
' ... ... ...
ComboBox1.DataSource = BaseDts.Tables("CONTACT")
ComboBox1.DisplayMember = "NOM" ' A conditon que ce soit bien le nom du champ dans la DB
' ...
TextBox1.DataBindings.Add("Text", BaseDts.Tables("CONTACT"), "NOM") ' écrire ici le nom du champ à montrer dans cette TextBox
TextBox2.DataBindings.Add("Text", BaseDts.Tables("CONTACT"), "PRENOM") ' idem
' ... ... ... |
Partager