Вот код вывода с Access в DataGridView. Может что то не так? Или как то можно по другому все сделать?
- Код: Выделить всё
Private Sub CREATETABLE()
dt = New DataTable("Temp")
cmd = New OleDbCommand("Select * from tblBase order by Company", cn)
cn.Open()
dr = cmd.ExecuteReader
dt.Clear()
For Me.l = 0 To dr.FieldCount - 1
If Me.l = 25 Then
dt.Columns.Add("Last Apply")
Else
COLUMNNAME(dr.GetName(l))
If ColumnNameString = "" Then
ColumnNameString = dr.GetName(l)
End If
dt.Columns.Add(ColumnNameString, dr.GetFieldType(l))
End If
Next
While dr.Read
Dim drw As DataRow = dt.NewRow
For Me.l = 0 To dr.FieldCount - 1
drw(l) = dr(l)
Next
dt.Rows.Add(drw)
End While
DataGridViewCompanies.DataSource = dt
End Sub