Заполнение DataGridView recordset'om

[IvanFR]

Как заполнить DataGridView?

Код: Выделить всё

        Dim rst As ADODB.Recordset
        rst = New ADODB.Recordset

        strQuery = "SELECT contracts.cont_id from contracts; "
        rst = Cnn.Execute(strQuery)
        DataGridView1.AutoGenerateColumns = True
        DataGridView1.DataSource = rst


Cnn - коннект к базе Access.
Рекордсет берется. Пытаюсь подключить к DataGridView1.DataSource = rst, но данные не отражаются

[Gloom]

MSDN:
The DataGridView class supports the standard Windows Forms data-binding model. This means the data source can be of any type that implements one of the following interfaces:

The IList interface, including one-dimensional arrays.
The IListSource interface, such as the DataTable and DataSet classes.
The IBindingList interface, such as the BindingList class.
The IBindingListView interface, such as the BindingSource class[/url]

[lord0n]

Код: Выделить всё


   Dim DBT As ADODB.Connection
   Dim RST As ADODB.Recordset
        Dim DA As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter
        Dim DT As DataTable = New DataTable

        DBT = New ADODB.Connection
        RST = New ADODB.Recordset

        DBT.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        DBT.Open("DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & SQLIP & ";PORT=" & SQLPort & ";DATABASE=trans;UID=" & SQLLogin & ";PWD=" & SQLPass & "; OPTION=3")
        RST.Open("select * from prixtam_" & Manda & " where ok = 1", DBT, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
        DA.Fill(DT, RST)
        grdFast.DataSource = DT
        RST.Close()