OpenRecordset в Access

[Konst37]

Имею такой кусок кода

Dim db As Database
Dim rs As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("select * from [Справочник]", dbOpenDynaset, dbReadOnly)

И в троке db.OpenRecordset
пишет run-time error 13
type mismatch

в чем проблема, подскажите....

[alibek]

Укажи конкретно, какая библиотека используется. CurrentDb это DAO, а в Access 2000 и выше по умолчанию используется ADO.
Т.е. либо пиши Dim rs As DAO.Recordset, либо Set rs = CurrentProject.Connection.Execute(...)

[snov]

Укажи конкретно, какая библиотека используется. CurrentDb это DAO, а в Access 2000 и выше по умолчанию используется ADO.
Т.е. либо пиши Dim rs As DAO.Recordset, либо Set rs = CurrentProject.Connection.Execute(...)

Используется DAO, в ADO нет типа Database

[snov]

... в чем проблема, подскажите....

А без ридонли как себя ведет?

[Konst37]

да Dim rs As DAO.Recordset
это помогло...
А где посмотреть, какая библиотека используется DAO или ADO

[snov]

Глупость свою понял. молчу

[alibek]

Смотреть в F2.
Если имена совпадают, то приоритет дается тому, чья библиотека подключена раньше (это ADO). В результате db имеет тип DAO.Database, а rs имеет тип ADODB.Recordset. db.OpenRecordset возвращает же DAO.Recordset, отсюда и несоответствие типов.

[Rainbow]

Смотреть в F2.

Удобнее смотреть не в F2 (Object Browser), а в Tools->Referencies. Какая библиотека выше, та и главнее. Передвинуть можно стрелочками справа.

P.S. а у меня в Access 2000 почему-то по-прежнему DAO по умолчанию...

[Konst37]

Спасибо всем

[Andrey Fedorov]

Смотреть в F2.

Удобнее смотреть не в F2 (Object Browser), а в Tools->Referencies. Какая библиотека выше, та и главнее. Передвинуть можно стрелочками справа.

Обычно пользуют только одну из них - так что галочку на нее, а с ненужной снять...