Dataset, DataAdapter DataBindig al volo !!!!

Option Compare Text

Imports System.Data
Imports System.Data.OleDb

' connessione


Dbazienda.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" & PathDataBase
Try
Dbazienda.Open()
ApriDatabase = True
Catch
MsgBox("Connessione non effettuata" & vbCrLf & Err.Description, MsgBoxStyle.Critical, "Connessione Fallita")
ApriDatabase = False
End Try



sql = "Select Nominativo from Personale order by nominativo"
Dim da3 = New OleDb.OleDbDataAdapter
da3 = New OleDb.OleDbDataAdapter(sql, Dbazienda)
'da.SelectCommand.CommandText = "SELECT * FROM Sedi order by Sede"

da3.Fill(ds, "Personale")
'Nella seconda riga viene usato per riempire il dataset con l'istruzione SQL

'Si crea la BindingSource

Dim bs3 = New BindingSource()
bs3.DataSource = ds
bs3.DataMember = "Personale" ' aggancia il databinding alla tabella Sedi del Dataset
ListBox2.DataBindings.Add("Text", bs3, "Nominativo")
ListBox2.DataSource = ds.Tables("Personale") ' aggancia il databinding alla tabella Sedi del Dataset
ListBox2.DisplayMember = "Nominativo"