Открытие подключения к Access программно

@polythene · Регистрация: 28.06.2007

Студворк — интернет-сервис помощи студентам

Dim ds As Database

Dim rst As Recordset

Set ds = OpenDatabase("C

W.mdb")

rst.Open "table", ds, adOpenDynamic, adLockOptimistic

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

хотя должен работать.

@R1001 · 27.07.2007, 02:20

Перепутаны две технологии ADO и DAO
База открывается как в DAO, а RecordSet используется, как в ADO
Вместо строки:
rst.Open "table", ds, adOpenDynamic, adLockOptimistic

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

И кстати, чтобы заработало, надо обязательно подключить DAO через Tools -> References

@polythene · 01.08.2007, 20:30 **[ТС]**

ооокей, теперь на этой строке Type mismatch выплёвывает... даже если подставлять string-переменную с sql кодом или просто название таблицы...

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

спасибо

@R1001 · 02.08.2007, 03:36

polythene (01.08.2007)
ооокей, теперь на этой строке Type mismatch выплёвывает... даже если подставлять string-переменную с sql кодом или просто название таблицы...

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

Тип ошибки 13 - может означать например, что стоит не
Dim rst as RecordSet
а
Dim rst as RecordSet<FONT color=#ff1111>s

@Михайло · 02.08.2007, 14:23

Попоробуйте

Dim rst As DAO.Recordset

может у Вас не та последовательность подключения библиотек...

@polythene · 03.08.2007, 14:04 **[ТС]**

спасибо за помощь, дело было именно в последовательности подключения библиотек. теперь всё работает идеально.

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

спасибо

_______________

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

@R1001 2 / 2 / 0 Регистрация: 09.09.2009 Сообщений: 118
	27.07.2007, 02:20
	Перепутаны две технологии ADO и DAO База открывается как в DAO, а RecordSet используется, как в ADO Вместо строки: rst.Open "table", ds, adOpenDynamic, adLockOptimistic Должно быть: Set rst=ds.OpenRecordSet ("select * from table") И кстати, чтобы заработало, надо обязательно подключить DAO через Tools -> References 0

@polythene 0 / 0 / 0 Регистрация: 28.06.2007 Сообщений: 10
	01.08.2007, 20:30 [ТС]
	ооокей, теперь на этой строке Type mismatch выплёвывает... даже если подставлять string-переменную с sql кодом или просто название таблицы... если бы этот код был для ADO - какой синтаксис у этого кода должен быть? спасибо 0

@Михайло 118 / 118 / 10 Регистрация: 12.05.2010 Сообщений: 1,207
	02.08.2007, 14:23
	Попоробуйте Dim rst As DAO.Recordset может у Вас не та последовательность подключения библиотек... 0

@polythene 0 / 0 / 0 Регистрация: 28.06.2007 Сообщений: 10
	03.08.2007, 14:04 [ТС]
	спасибо за помощь, дело было именно в последовательности подключения библиотек. теперь всё работает идеально. в кратце: был файл .ADP (Access, подключенный к серверу), из которого нужно было программно(!) подключиться к локальному .MDB. других вариантов нет по разным причинам (из .MDB серверная таблица видна только как READ only). спасибо _______________ 0