Torna al Thread
Private Sub CaricaDati()
'LA RUOTINE PROVVEDE A CARICARE I DATI NELLA GRIGLIA
Dim NomePerc As String = CStr(Me.txtNomePerc.Text)
Dim strProvider_B As String = "Provider = Microsoft.Jet.OLEDB.4.0;"
Dim strOrigine_B As String = "Data Source=" & NomePerc & "\dbMag.mdb"
Dim strConnessione As String = strProvider_B & strOrigine_B
Dim Conn As OleDb.OleDbConnection
Conn = New OleDb.OleDbConnection(strConnessione)
Dim cmdArticoli As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Anagrafe ORDER BY Descrizione", strConnessione)
Dim DSArticoli As DataSet = New DataSet
DSArticoli.Clear()
cmdArticoli.Fill(DSArticoli, "Anagrafe")
Dim dvArticoli As DataView = DSArticoli.Tables("Anagrafe").DefaultView
'---TOGLI QUESTO---Me.DataGridView1.DataSource = dvArticoli
'-----Aggiungi questo-----
Dim bs As New BindingSource
bs=dvArticoli
Me.DataGridView1.DataSource = bs
Me.TextBox5.Databindings.Add("Text",bs,"Descrizione")
Me.TextBox6.Databindings.Add("Text",bs,"Um")
'... e così via ...
'... e rimuovi tutto il codice che ti scrive nelle textbox...
Conn = Nothing
End Sub