0 / 0 / 0
Регистрация: 16.09.2011
Сообщений: 4
1

Как открыть базу access 2010 в vba ?

16.09.2011, 15:21. Показов 8840. Ответов 2
Метки нет (Все метки)

Всем привет!

подскажите плз как можно подправить код, работавший применительно к access 2003:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub pereschet_vseh_dolei()
Dim DB As Database
 
Set DB = OpenDatabase("путь к бд\Planning_sku.mdb")
 
DB.Execute ("запрос к бд")
DB.Close
 
Call podgotovka_tablicy
 
End Sub
пытаюсь запустить этот же код применительно к access 2010 с заменой расширения бд на .accdb,

на что вылетает ошибка "run-time error 3343: нераспознаваемый формат базы данных ..."

какие библиотеки добавить/какую другую переменную использовать - не могу сам додуматься...
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.09.2011, 15:21
Ответы с готовыми решениями:

Как заполнить базу данных Access с помощью vba в том же access и считать из нее инфу?
Прошу помочь в азах. Как заполнить базу данных Access с помощью vba в том же access и считать из...

Как на С# программно сжать базу Access 2010
Здравствуйте Уважаемые Гуру! Собственно вопрос указан в названии темы сообщения программно...

Как открыть запароленную базу Access
Добрый день , копировал на работе базу Access ,но дома не открывается -пишет Необходимы разрешения...

Как сделать базу данных Ms Access 2010 исполняемым файлом
Всем доброго дня! У меня есть база данных аксесс которую нужно сделать как исполняемым exe файлом....

2
1903 / 780 / 31
Регистрация: 11.02.2010
Сообщений: 1,567
17.09.2011, 21:43 2
не понятно откуда запускается код?
проверьте, подключена ли библиотека DAO.
объявите переменную так: DIM DB AS DAO.Database

или вы хотите получить доступ к данным в accdb (вместо mdb)?
тогда, возможно, придется перейти на использование ADO. например, метод Execute есть у объекта ADODB.Connection
0
0 / 0 / 0
Регистрация: 16.09.2011
Сообщений: 4
23.09.2011, 10:06  [ТС] 3
ironegg, спасибо

запускается макрос из Excel.
вы правы: объект ADODB.Connection пригодился.
следующий код работает с расширением .accdb :
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub pereschet_vseh_dolei()
Dim cnn As ADODB.Connection, sql_qry As String, filetoopen As String
 
sql_qry = "текст запроса"
filetoopen = "путь к директории файла\Planning_sku.accdb"
 
Set cnn = New ADODB.Connection
cnn.Open ConnectionString:="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + filetoopen + ";"
cnn.Execute sql_qry
cnn.Close
 
 
Call podgotovka_tablicy
 
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.09.2011, 10:06
Помогаю со студенческими работами здесь

Как из VBA создать новую базу Access?
1.как из VBA создать новую базу Access? 2. программно выполнить из VBA макрос или модуль Access...

Как открыть базу данных Access'a на скриптах?
Возникла необходимость написания странички на скриптах для отображения информации хранящейся в БД...

Как правильно открыть базу Access 2003 ?
Перестала работать программа: не подключается к базе. Произошло это после накатки...

Как открыть базу Access вылетает ошибка
Помогите открыть базу Access, при открытии вылетает ошибка 1602/59/9d524b883fe5.png--непонятная...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru