RecordSet & DataGrid

[JohnCR]

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

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    With cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = App.Path & "\base\base.mdb"
        .Open
    End With
   
    With rs
        .ActiveConnection = cn
        .LockType = adLockReadOnly
        .CursorType = adOpenDynamic
        .Source = "SELECT * FROM MyTable"
        .Open
    End With
    DataGrid1.HoldFields
    Set DataGrid1.DataSource = rs'здесь возникает ошибка: The RowSet is Not BookmarkAble

Возникает ошибка: The RowSet is Not BookmarkAble.
Подскажите, что неправильно?

[Konst_One]

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

    rs.CursorLocation = adUseClient
    rs.LockType = adLockOptimistic

[Konst_One]

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

rs.CursorType = adOpenKeyset

LOckType можешь ставить любой

[JohnCR]

Ошибка больше не возникает, но не выполняется запрос:

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

.Source = "SELECT * FROM MyTable"

и таблица (DataGrid1) остается пустой

[Konst_One]

что значит не выполняется запрос? у рекордсета нет записей? какая ошибка на методе rs.Open возникает?

[JohnCR]

Ошибок никаких не возникает.
Просто в рекордсет не попадает ни одной записи.

[Konst_One]

что дает rs.RecordCount ?

Так пробовал:

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

Set rs.ActiveConnection=cn
rs.CursorLocation=adUseClient
rs.Open "SELECT * FROM MyTable", , adOpenKeyset, adLockOptimistic, adCmdText

[JohnCR]

Konst_One, спасибо за участие, однако, ничего не получилось.
Вставил компонент MSADODC.ocx.
Все заработало.

[Wolfsider]

Вот у меня точно такая - же фигня... а когда я присваиваю рекордсет DataSource'у не напрямую, а через Recordset.Clone - все пашет, но курсоры получаются несвязаные... кто-нибудь решил этот косяк? Неохото прицеплять MSADODC . Он дурной...

/UPDATE !

!Ура! Проканало! Вот код:

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


CON_STR = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=(путь к БД)

    Ado_Connection= New ADODB.Connection
    Ado_Connection.ConnectionString = CON_STR
    Ado_Connection.Mode = adModeShareDenyNone
    Ado_Connection.CursorLocation = adUseClient
    Ado_Connection.Open
   
Set Ado_Recordset = New ADODB.Recordset
Set Ado_Recordset.ActiveConnection = Ado_Connection
Ado_Recordset.CursorLocation = adUseClient
Ado_Recordset.Open "SELECT * FROM main", , adOpenStatic, adLockOptimistic, adCmdText

Set dtgrid.DataSource = Ado_Recordset

dtgrid.Refresh

Собственно, вытянуто и дополнено с верхнего поста