Запуск запроса к таблице на SQL server через VBA access 2007

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

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

Здравствуйте!

дано:

база данных аксес 2007,
к ней прилинкованы две таблицы с sql server "dbo_PLANNING_DATA_VERSIONS_STORAGE" и "dbo_PLANNING_DATA_VERSIONS",
также есть форма, с помощью которой я пытаюсь копировать/перемещать данные из одной таблицы в другую.
вот часть кода, которая не работает:

SQL

SET cmd = NEW ADODB.Command
    cmd.ActiveConnection = CurrentProject.Connection
    cmd.CommandText = "INSERT INTO dbo_PLANNING_DATA_VERSIONS_STORAGE ( VERSION, MONTH_DATE, MONTH_NAME, MONTH_NUM, YEAR, DIVISION, DO, CHANNEL, CUSTOMER_ID, ADRESS_ID, CUSTOMER_NAME, CUSTOMER_SUBTYPE, SALESPERSON_ID, NET_NAME, KAM_NAME, PROJECT, BRAND, BRANDSIZE_ID, BRANDVOL_NAME, TONS, LITERS, RUBLES, QUANTITY) SELECT VERSION, MONTH_DATE, MONTH_NAME, MONTH_NUM, YEAR, DIVISION, DO, CHANNEL, CUSTOMER_ID, ADRESS_ID, CUSTOMER_NAME, CUSTOMER_SUBTYPE, SALESPERSON_ID, NET_NAME, KAM_NAME, PROJECT, BRAND, BRANDSIZE_ID, BRANDVOL_NAME, TONS, LITERS, RUBLES, QUANTITY FROM dbo_PLANNING_DATA_VERSIONS WHERE Version=[?];"
    cmd.CommandType = adCmdText
    SET rst = cmd.Execute(w, Parameters:=Array(Me.lb_vers_master.ItemData(varItm_master)))

пишет, что "ошибка синтаксиса в инструкции insert into".
При этом такой же запрос, написанный просто в конструкторе access, нормально работает. Более того этот код работает с таблицами, которые находятся локально в access. То есть проблема именно с таблицами с sql server'а, прилинкованными к бд аксес

Вопрос:

какие библиотеки подключить? что поменять в коде, чтобы он работал?

Спасибо!

@alvk · 30.01.2013, 02:59

T-SQL

INSERT INTO dbo_PLANNING_DATA_VERSIONS_STORAGE 
( VERSION, MONTH_DATE, MONTH_NAME, MONTH_NUM, YEAR,  DIVISION, DO, CHANNEL, CUSTOMER_ID, 
ADRESS_ID, CUSTOMER_NAME, 
CUSTOMER_SUBTYPE, SALESPERSON_ID, NET_NAME, KAM_NAME,
 PROJECT, BRAND, BRANDSIZE_ID, BRANDVOL_NAME, TONS, LITERS, RUBLES, QUANTITY) 
SELECT VERSION, MONTH_DATE, MONTH_NAME, MONTH_NUM, YEAR, DIVISION, DO, CHANNEL, C
USTOMER_ID, ADRESS_ID, CUSTOMER_NAME, 
CUSTOMER_SUBTYPE, SALESPERSON_ID, NET_NAME, KAM_NAME, PROJECT, BRAND, BRANDSIZE_ID, 
BRANDVOL_NAME, TONS, LITERS, RUBLES, 
QUANTITY FROM dbo_PLANNING_DATA_VERSIONS WHERE Version=[?];

1. YEAR - резервное слово в VBA http://allenbrowne.com/AppIssueBadWord.html#Y
2. Сделайте debug.print cmd.CommandText и посмотрите результат в окне immеdiate.
3. Возможно у вас есть дробные числа и требуется их преобразовать str(), чтобы обойти запятую.

@Sergey_Rad · 30.01.2013, 15:45 **[ТС]**

alvk, вы абсолютно правы насчет YEAR - квадратные ковычки в запросе [YEAR] решили проблему.
Спасибо!

Однако сразу возник подобный вопрос, но только с кодом на удаление данных:

SQL

1
2
3

cmd.CommandText = "DELETE * FROM dbo_PLANNING_DATA_VERSIONS WHERE Version=[?];"
                    cmd.CommandType = adCmdText
                    SET rst = cmd.Execute(w, Parameters:=Array(Me.lb_vers_master.ItemData(varItm_master)))

подобные запросы вообще не отрабатываются в аксесе, даже созданные в конструкторе.
ошибка одинакова - "невозможно удаление записей из указанных таблиц".
заметил также, что аксес выполняет запросы на удаление данных только из тех таблиц sql server'а, в которых заданы ключевые поля, иначе рапортует об вышеуказанной ошибке.
Может, знаете, как обойти эту проблему? (ключевые поля задать не получится)

@alvk · 31.01.2013, 02:21

Сообщение от Sergey_Rad

ключевые поля задать не получится

Обойти это невозможно на сервере, но ключевые поля просто обязаны быть в таблице. Что вам мешает их создать? Если уж так невтерпёж, то используйте временные таблицы локально, т.е. в mdb, если у вас не adp, иначе положите mdb рядом с adp и обращайтесь к ней.

@alvk 7442 / 4576 / 301 Регистрация: 12.08.2011 Сообщений: 14,239
	31.01.2013, 02:21	4
	Сообщение от Sergey_Rad ключевые поля задать не получится Обойти это невозможно на сервере, но ключевые поля просто обязаны быть в таблице. Что вам мешает их создать? Если уж так невтерпёж, то используйте временные таблицы локально, т.е. в mdb, если у вас не adp, иначе положите mdb рядом с adp и обращайтесь к ней. 0