flexgrid

[Алексей К.]

Загружаю данные через ADO, datagrid показывает выборку, а flex не хочет, на строке datasource ругается на несовпадение типов (пробовал через set flex.datasource - кричит на "object variable or block with not set"). В чем дело подскажите, а то я этим гридом первый раз работаю...
Код заполнения:

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


Private Sub Command1_Click()
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 & "\db2.mdb"
        .Open
End With
With rs
        .ActiveConnection = cn
        .CursorType = adOpenKeyset
        .CursorLocation = adUseClient
        .LockType = adLockOptimistic
        .Source = "SELECT * FROM таблица1"
        .Open
End With
Set DataGrid1.DataSource = rs.DataSource
Form1.MSFlexGrid1.DataSource = rs
End Sub


Ну и сам проект на всякий случай:

[SergT]

.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = App.Path & "\db2.mdb"

Это (OLEDB.4.0) для таблиц Access2000. Может у Вас не 2000, а 97?
Тогда Microsoft.Jet.OLEDB.3.51

[VDeltsov]

Надо писать не так:

Form1.MSFlexGrid1.DataSource = rs

а так:

Set Form1.MSFlexGrid1.DataSource = rs

[Алексей К.]

Я так уже пробовал (Set Form1.MSFlexGrid1.DataSource = rs), читай внимательнее начало топика.

[VDeltsov]

А вот так (без имени формы)?

Set MSFlexGrid1.DataSource = rs

[alibek]

Для FlexGrid нужно указывать не рекордсет, а контрол ADODC.
Лучше перейди на HFlexGrid, он умеет работать непосредственно с рекордсетом.

[Алексей К.]

Спасибо, с hflex все работает как надо.