Dim dbCon As OleDb.OleDbConnection
Dim dbAdp As OleDb.OleDbDataAdapter
Dim Data As New DataSet
Dim SchemaTable As DataTable
Dim Tables As New List(Of DataTable)
dbCon = New OleDb.OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Database)
'Apre la connessione
dbCon.Open()
'Ottiene tutte le tabelle
SchemaTable = dbCon.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, Nothing})
'Le aggiunge alla collezione
For I As Int16 = 0 To SchemaTable.Rows.Count - 1
If SchemaTable.Rows(I).Item(3) = "TABLE" Then
Dim Name As String
Dim Table As DataTable
Name = SchemaTable.Rows(I).Item(2)
dbAdp = New OleDb.OleDbDataAdapter("SELECT * FROM `" & Name & "`", dbCon)
'E tramite questo riempie il dataset
dbAdp.Fill(Data)
Table = Data.Tables(0)
Table.TableName = Name
Tables.Add(Table)
Data.Dispose()
Data = New DataSet
End If
Next
'Chiude la connessione
dbCon.Close()
'Rilascia tutto
Data.Clear()
Data.Dispose()
