VBA

Iska · Отправлено: **20:54, 13-10-2021** | #2

Здесь: Microsoft ACE OLEDB 12.0 Connection Strings - ConnectionStrings.com смотрели?

Выделенное:

Код:

Asked = "SELECT * FROM [OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\123.accdb].[otchet]"

в данном контексте — лишнее.

Разрядность приложения, если мне не изменяет память, должна совпадать с разрядностью драйвера OLE DB.

blackeangel · Отправлено: **20:57, 13-10-2021** | #3

Iska, как раз не лишнее. ТК conn подключился к серверу, а мне нужна таблица, которая находится в другом файле mdb, а вызов всего этого происходит из надстройки Excel

Вот как раз надо подключиться к той БД прям в запросе уже. С сервером аналогичное прокатывает.

Iska · Отправлено: **23:18, 13-10-2021** | #4

Строка подключения должна быть здесь:

Код:

conn.ConnectionString = "…"

blackeangel · Отправлено: **06:14, 14-10-2021** | #5

Iska, если так делать, то мы потеряем текущее соединение

blackeangel · Отправлено: **08:09, 14-10-2021** | #6

Если подключиться к БД Access и выполнять запрос с сервера, то рабочий код такой:

Код:

Sub Macros5()
	Set cnt = CreateObject("ADODB.Connection")
	cnt.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\123.accdb;"
	cnt.Open
	Set rs = CreateObject("ADODB.Recordset")
	rs.ActiveConnection = cnt
	rs.CursorType = adOpenStatic
	ask = "SELECT [blank] INTO base FROM [ODBC;Driver=SQL Server; SERVER=RTVSMSQL-01;UID=Admin; DATABASE=db_production; PWD=123456789].[dbo.example_table]"
	rs.Open Asked, cnt
	Stop
End Sub

Но мне надо наоборот. А как это выглядит не пойму никак.

blackeangel · Отправлено: **08:10, 14-10-2021** | #7

А ошибку выдает такую