tutto è rimasto invariato... ho cambiato solo quello che mi hai detto tu..
codice:
Imports ADOX
Imports System.Data.OleDb
Imports System
Imports System.IO
Imports System.Collections
Public Class Form1
Dim connessione As ADOX.Catalog = New ADOX.Catalog 'crea un nuovo oggetto connessione di tipo ADOX.Catalog
Dim archivio As New OleDb.OleDbConnection
Dim leggeredati As New OleDb.OleDbDataAdapter
Dim da As New DataSet 'dichiara un nuovo dataset(cache di memoria)
Dim reader As New StreamReader("C:\Users\Francesco\Desktop\Config.txt")
Dim linea As String = ""
Dim arrText As New ArrayList()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: questa riga di codice carica i dati nella tabella 'Dbnew2000DataSet1.Articoli_progressivi'. È possibile spostarla o rimuoverla se necessario.
Me.Articoli_progressiviTableAdapter.Fill(Me.Dbnew2000DataSet1.Articoli_progressivi)
'TODO: questa riga di codice carica i dati nella tabella 'Dbnew2000DataSet1.Articoli_anagrafica'. È possibile spostarla o rimuoverla se necessario.
Me.Articoli_anagraficaTableAdapter.Fill(Me.Dbnew2000DataSet1.Articoli_anagrafica)
'TODO: questa riga di codice carica i dati nella tabella 'Dbnew2000DataSet1.Articoli_anagrafica'. È possibile spostarla o rimuoverla se necessario.
'TODO: questa riga di codice carica i dati nella tabella 'Dbnew2000DataSet.Offerte'. È possibile spostarla o rimuoverla se necessario.
Me.OfferteTableAdapter.Fill(Me.Dbnew2000DataSet.Offerte)
archivio = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyComputer + "\" + linea))
leggeredati = New OleDb.OleDbDataAdapter("SELECT* FROM Offerte", archivio)
Do
linea = reader.ReadLine()
If Not linea Is Nothing Then
arrText.Add(linea)
End If
Loop Until linea Is Nothing
reader.Close()
leggeredati.Fill(da, "Offerte") 'FILL scrive il risultato di LEGGEREDATI dentro il dataset DA
DataGridView1.DataSource = da.Tables(0) 'DATASOURCE indica al datagridview di leggere i dati del dataset DA
mi evidenzia archivio = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0;Data Source=" + System.Environment.GetFolderPath(System.Environmen t.SpecialFolder.MyComputer + "/" + linea))
e mi dice : Cast non valido dalla stringa "/" al tipo 'Double'