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
Me.DataGridView1.DataSource = dvArticoli
Conn = Nothing
End Sub