OpenDatabase и Excel

[Rom]

Здравствуйте.
Возникла проблема такого плана. При попытке открыть базу возникает ошибка ActiveX component can't create object. Как её можно исправить? Может, не хватает какой-нибудь библиотеки, но какой?
Подключена Microsoft DAO 3.6 Object library

Открываю базу следующим образом:

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

Dim db As Database
Dim rs As Recordset
Dim temp As Integer
Dim i As Integer
Dim s1 As String
Set db = OpenDatabase(Name:=ThisWorkbook.Path & "\error.mdb")
Set rs = db.OpenRecordset(mytable, dbOpenDynaset)
…

[Vitaly1]

Попробуй db ,rs сделать типа variant, может поможет

[Steiner]

Попробуй такSet
rs = db.OpenRecordset(mytable, dbOpenTable)

[Lider]

Ребята ! Что-то я не пойму почему в OpenRecordset два параметра?

Вот так вроде все должно работать:

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

Dim db as DataBase
Dim rs as Recordset

Set db=OpenDataBase("C:\Мои Документы\База.mdb")
Set rs=db.OpenRecordset("Таблица1")

             For i = 0 To r.Fields.Count - 1
                             Cells(1, i + 1)..Value = r.Fields(i).Name
              Next

Ну это так, пример, чтоб не быть пустословным

Открываем Таблицу1 и заносим в верхнюю строку активного листа заголовки полей таблицы

Копируй код - будет работать , а дальше разбирайся .

[Lider]

Прошу прощения, rs в объявлении переменной нужно заменить на r !!!

[Lider]

А, все не буду выпендриваться - прочитал !

в Справке написано Так:

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

Set recordset = object.OpenRecordset (source, type, options, lockedits)



при type
dbOpenDynaset Открывает объект dynaset- типа Recordset, который подобty ODBC keyset курсору.

но зачем тебе это нужно ?