Как присобачить MSFlexGrid в Excel к базе данных mdb?

[Fuzzy]

Ведь можно же как-то, наверное? Подскажите, знающие!

[RayShade]

Конечно можно.

Берешь форму кидаешь на нее ADODC контрол, грид, потом в свойствах грида указываешь что его источник данных - это ADODC, а сам ADODC настраиваешь на использование нужной тебе базы.

[Fuzzy]

А вот нету у меня ADODC контрола, какой у него файл, может,не зарегистрирован просто?
А какое свойство у MSFlexGridа отвечает за источник данных? На этапе конструирования никаких DataSource не видать.

[RayShade]

msadodc.ocx это имя файла.

datasource это имя проперти

Смотри в дизайнере справа в списке пропертей. Или просто в коде напиши

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

set msflexgrid1.datasource = adodc1


[alibek]

Народ... эта... Я что-то не пойму...
А что, Excel'евский лист плохой грид? На фига использовать MSFlexGrid?Я идиот! Убейте меня, кто-нибудь!??

[Fuzzy]

В упор не вижу свойства DataSource у MSFlexGrid.
RayShade, ты мне рассказываешь про редактор VBA в Excele, или про что?

[Fuzzy]

да, ADODC у меня нету
А где можно взять?

[RayShade]

Блин! Вот я ступил-то.

В Excel VBA другой редактор. Значит просто в коде пиши как я сказал. Проперть то у объекта никуда не делась.

[Fuzzy]

А вот не работает, я ж сначала пробовал, потом на форум стал писать. Вот такой код не сработал:

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

Dim MyConn As New ADODB.Connection
Dim MyRst As New ADODB.Recordset
MyConn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "Data Source=d:\МояБаза.mdb;" & _
                    "User ID=admin;Password=;")
Call MyRst.Open("select * from МояТаблица", MyConn, adOpenStatic, adLockReadOnly)
Set MSFlexGrid1.DataSource = MyRs

Последняя строка выдаёт Object variable or With block variable not set, в то время, как MyRst содержит записи и, например, Cells(1,1).CopyFromRecordset MyRst прекрасно срабатывает, MyRst имеет тип Recordset. С чего бы это?
И где мне взять ADODC?

[RayShade]

Может, потому что в ней не хватает буквы t ?

[Fuzzy]

с буквой t ничего не меняется