Buongiorno ragazzi,
io per caricare i dati una listbox faccio cosi:
Try
Using sqlConnessione As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.16.0;Data Source=C:\....\DB_CENTRO_OTTICO.accdb")
sqlConnessione.Open()
Using CommandSql As New OleDbCommand("Select ID, FORNITORE FROM DB_FORNITORI", sqlConnessione)
Using dtaAdapter As New OleDbDataAdapter(CommandSql)
Using dttDati As New DataTable()
dtaAdapter.Fill(dttDati)
lst_menu_fornitore.ValueMember = "ID"
lst_menu_fornitore.DisplayMember = "FORNITORE"
lst_menu_fornitore.DataSource = dttDati.DefaultView
End Using
End Using
End Using
End Using
Catch ex As Exception
MessageBox.Show("Errore: " + ex.Message, "Gestione Errore", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
però cosi facendo mi riempie tutta lista anche di doppioni, come posso eliminarli???
Grazie
SanMichele
io per caricare i dati una listbox faccio cosi:
Try
Using sqlConnessione As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.16.0;Data Source=C:\....\DB_CENTRO_OTTICO.accdb")
sqlConnessione.Open()
Using CommandSql As New OleDbCommand("Select ID, FORNITORE FROM DB_FORNITORI", sqlConnessione)
Using dtaAdapter As New OleDbDataAdapter(CommandSql)
Using dttDati As New DataTable()
dtaAdapter.Fill(dttDati)
lst_menu_fornitore.ValueMember = "ID"
lst_menu_fornitore.DisplayMember = "FORNITORE"
lst_menu_fornitore.DataSource = dttDati.DefaultView
End Using
End Using
End Using
End Using
Catch ex As Exception
MessageBox.Show("Errore: " + ex.Message, "Gestione Errore", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
però cosi facendo mi riempie tutta lista anche di doppioni, come posso eliminarli???
Grazie
SanMichele
