Открытие подключения к Access программно
Релиб
Форумы       Участники    Календарь    Кто он-лайн?
Добро пожаловать, гость ( Вход | Регистрация )
        



Открытие подключения к Access программно Expand / Collapse
Автор
Сообщение
26.07.2007 10:39
Junior Member

Junior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior Member

участник
Last Login: 06.09.2007 14:30
Сообщ.: 10, Visits: 41
Dim ds As Database
Dim rst As Recordset

Set ds = OpenDatabase("C:\DW.mdb")
rst.Open "table", ds, adOpenDynamic, adLockOptimistic


на последней строке выкидывает ошибку 91, Object variable....
хотя должен работать.


got the beauty?
Сообщ. #914967
26.07.2007 22:20
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

участник
Last Login: 28.03.2008 22:19
Сообщ.: 118, Visits: 1 025
Перепутаны две технологии ADO и DAO
База открывается как в DAO, а RecordSet используется, как в ADO
Вместо строки:
rst.Open "table", ds, adOpenDynamic, adLockOptimistic

Должно быть:
Set rst=ds.OpenRecordSet ("select * from table")

И кстати, чтобы заработало, надо обязательно подключить DAO через Tools -> References
Сообщ. #914988
01.08.2007 16:30
Junior Member

Junior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior Member

участник
Last Login: 06.09.2007 14:30
Сообщ.: 10, Visits: 41
ооокей, теперь на этой строке Type mismatch выплёвывает... даже если подставлять string-переменную с sql кодом или просто название таблицы...

если бы этот код был для ADO - какой синтаксис у этого кода должен быть?

спасибо


got the beauty?
Сообщ. #915101
01.08.2007 23:36
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

участник
Last Login: 28.03.2008 22:19
Сообщ.: 118, Visits: 1 025
polythene (01.08.2007)
ооокей, теперь на этой строке Type mismatch выплёвывает... даже если подставлять string-переменную с sql кодом или просто название таблицы...

Всё должно работать, если в Вашей базе есть таблица "Table". Я даже специально смоделировал, мало ли что.
Проверьте точно, в соответствии с нашими постами.

Тип ошибки 13 - может означать например, что стоит не
Dim rst as RecordSet
а
Dim rst as RecordSets
Сообщ. #915105
02.08.2007 10:23
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

участник
Last Login: 13.03.2008 11:35
Сообщ.: 839, Visits: 8 738
Попоробуйте

Dim rst As DAO.Recordset

может у Вас не та последовательность подключения библиотек...
Сообщ. #915108
03.08.2007 10:04
Junior Member

Junior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior Member

участник
Last Login: 06.09.2007 14:30
Сообщ.: 10, Visits: 41
спасибо за помощь, дело было именно в последовательности подключения библиотек. теперь всё работает идеально.

в кратце: был файл .ADP (Access, подключенный к серверу), из которого нужно было программно(!) подключиться к локальному .MDB. других вариантов нет по разным причинам (из .MDB серверная таблица видна только как READ only).

спасибо


_______________


got the beauty?
Сообщ. #915125
« пред. тема | след. тема »


Эту тему читают Expand / Collapse
Посетители: 0 (0 гостей, 0 участников, 0 скрыт.участников)
Сейчас нет участников, просматривающих тему.
Модераторы: Alexey, boombastik, bazile, pl, VladConn

Время GMT +3:00, Сейчас 12:26