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

@Sergey_Rad · Регистрация: 16.09.2011

Всем привет!

подскажите плз как можно подправить код, работавший применительно к access 2003:

Visual Basic

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: нераспознаваемый формат базы данных ..."

какие библиотеки добавить/какую другую переменную использовать - не могу сам додуматься...

@ironegg · 17.09.2011, 21:43

не понятно откуда запускается код?
проверьте, подключена ли библиотека DAO.
объявите переменную так: DIM DB AS DAO.Database

или вы хотите получить доступ к данным в accdb (вместо mdb)?
тогда, возможно, придется перейти на использование ADO. например, метод Execute есть у объекта ADODB.Connection

@Sergey_Rad · 23.09.2011, 10:06 **[ТС]**

ironegg, спасибо

запускается макрос из Excel.
вы правы: объект ADODB.Connection пригодился.
следующий код работает с расширением .accdb :

Visual Basic

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

@ironegg 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

Опции темы