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
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5