Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - Проблема с запросом

Ответить
Настройки темы
VBA - Проблема с запросом

Аватара для blackeangel

Старожил


Сообщения: 329
Благодарности: 3

Профиль | Отправить PM | Цитировать


Помогите правильно подключиться к таблице в Access файле. Пишет всё время, что непонятная конструкция.
Что ему надо что б понять, что это файл, это таблица и надо взять данные из неё?

Код: Выделить весь код
Sub Macros4()
    Set conn = CreateObject("ADODB.Connection")
    conn.ConnectionString = "Provider=SQLOLEDB.1;Password=123456789;Persist Security Info=True;User ID=Admin;Initial Catalog=db_production;Data Source=RTVSMSQL-01"
    conn.Open
    Set rst = CreateObject("ADODB.Recordset")
    rst.ActiveConnection = conn
    rst.CursorType = adOpenStatic
    'Asked = "SELECT * FROM [OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\123.accdb].[otchet]"
    'Asked = "SELECT * FROM [ODBC;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\123.accdb].[otchet]"
    'Asked = "SELECT * FROM [ODBC;Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=D:\123.accdb].[otchet]"
    Asked = "SELECT * FROM [OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\123.accdb].[otchet]"
    rst.Open Asked, conn
    Stop
End Sub

-------
Забудем боль, забудем страх -
И только ветер в парусах!


Отправлено: 19:22, 13-10-2021

 

Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Здесь: 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.

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



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для blackeangel

Старожил


Сообщения: 329
Благодарности: 3

Профиль | Отправить PM | Цитировать


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

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

-------
Забудем боль, забудем страх -
И только ветер в парусах!


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


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Строка подключения должна быть здесь:
Код: Выделить весь код
conn.ConnectionString = "…"

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


Аватара для blackeangel

Старожил


Сообщения: 329
Благодарности: 3

Профиль | Отправить PM | Цитировать


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

-------
Забудем боль, забудем страх -
И только ветер в парусах!


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


Аватара для blackeangel

Старожил


Сообщения: 329
Благодарности: 3

Профиль | Отправить PM | Цитировать


Если подключиться к БД 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
Но мне надо наоборот. А как это выглядит не пойму никак.

-------
Забудем боль, забудем страх -
И только ветер в парусах!


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


Аватара для blackeangel

Старожил


Сообщения: 329
Благодарности: 3

Профиль | Отправить PM | Цитировать


Изображения
Тип файла: png err.png
(5.2 Kb, 1 просмотров)

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

-------
Забудем боль, забудем страх -
И только ветер в парусах!


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



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - Проблема с запросом

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Любой язык - dsquery computer с запросом фамилии mahuz5 Скриптовые языки администрирования Windows 2 20-07-2017 15:00
CMD/BAT - [решено] Перезагрузка компьютера с запросом Discount Скриптовые языки администрирования Windows 4 19-01-2015 08:51
Прочие БД - Помогите с запросом (+) alexdomovoi Программирование и базы данных 0 09-10-2012 22:06
Прочее - [решено] Помогите с запросом. Butunin Klim Microsoft Exchange Server 5 07-05-2009 14:12
Помогите с запросом BuilderMan Вебмастеру 2 27-09-2006 11:53




 
Переход