Ho scritto questo codice:
Dim aData As Object
Dim newTable As DataTable = New DataTable
newTable.TableName = "Condominio"
Dim schemaTable As DataTable = New DataTable
Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Documents and Settings\enzo\Documenti\sbf.mdb"
Dim conn As New OleDbConnection(ConnString)
conn.Open()
Dim sql As String = "SELECT Nome,Località FROM Condominio"
Dim cmd As New OleDbCommand(sql, conn)
Dim dr As OleDbDataReader = cmd.ExecuteReader()
'Ottengo lo schema
schemaTable = dr.GetSchemaTable()
While (dr.Read())
' Si leggono i valori dentro un array .
dr.GetValues(aData)
' Si aggiunge una nuova riga alla tabella
newTable.Rows.Add(aData)
End While
DataGridView1.DataSource = newTable
conn.Close()
dr.Close()
La DataGridView però rimane vuota. perchè?
tulipan