MSSQL не работает запрос

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
VolkA
Начинающий
Начинающий
 
Сообщения: 7
Зарегистрирован: 18.12.2007 (Вт) 11:27

MSSQL не работает запрос

Сообщение VolkA » 18.12.2007 (Вт) 11:44

Требуется вставить на лист Word данные из таблицы MSSQL
Макрос рекодером записал код (работает)
Selection.Range.InsertDatabase Format:=0, Style:=0, LinkToSource:=True, _
Connection:="Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=R:\CTM\ContrVED\DATA\Contract.mdb;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet OL" _
, SQLStatement:="SELECT `cust_code` FROM `Item` WHERE ((`item_code` = '53300129'))" & "", _
PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
WritePasswordTemplate:="", DataSource:= _
"R:\CTM\ContrVED\DATA\Contract.mdb", From:=-1, To:=-1, IncludeFields:=False
53300129 это код детали
Пытаюсь подставить переменную вместо кода детали - получаю ошибку доступа к базе.
(формирую текстовую строку для SQLStatement)
И как считать поле из MSSQL базы отвечающее критерию в переменную, а не вставлять табличное представление?
Результат выборки всегда уникальное значение.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 18.12.2007 (Вт) 12:02

Фейк. В MSSQL не используются обратные кавычки.
Lasciate ogni speranza, voi ch'entrate.

VolkA
Начинающий
Начинающий
 
Сообщения: 7
Зарегистрирован: 18.12.2007 (Вт) 11:27

Сообщение VolkA » 18.12.2007 (Вт) 12:09

alibek писал(а):Фейк. В MSSQL не используются обратные кавычки.

Я ж говорю, записано макрорекодером и макрос работает.
Почему он работает только с фиксированным параметром и не работает с переменной?
Как насчет присвоения результата выборки переменной?

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 18.12.2007 (Вт) 12:19

Для начала, убери обратные кавычки.
Но вообще ты явно делаешь неправильно.
Что тебе нужно сделать? Подключить базу к документу слияния? Добавить в документ таблицу? Вставить внедренный объект?
Lasciate ogni speranza, voi ch'entrate.

VolkA
Начинающий
Начинающий
 
Сообщения: 7
Зарегистрирован: 18.12.2007 (Вт) 11:27

Сообщение VolkA » 18.12.2007 (Вт) 12:33

alibek писал(а):Для начала, убери обратные кавычки.
Но вообще ты явно делаешь неправильно.
Что тебе нужно сделать? Подключить базу к документу слияния? Добавить в документ таблицу? Вставить внедренный объект?


Кавычки убрал - работает с фиксированным параметром.
Требуется вставить в нужное место листа или в определённое поле UserForm значение базы, отвечающее выбранному параметру.
Например заношу в форму уникальный код детали, хочу получить
в другом поле соответствующий код заказчика.
Связь между этими кодами 1 к одному.
У вас нет доступа для просмотра вложений в этом сообщении.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 18.12.2007 (Вт) 13:34

Поищи в базе по "A D O D B . C o n n e c t i o n", с базой данных лучше работать так.
Lasciate ogni speranza, voi ch'entrate.

VolkA
Начинающий
Начинающий
 
Сообщения: 7
Зарегистрирован: 18.12.2007 (Вт) 11:27

Сообщение VolkA » 18.12.2007 (Вт) 15:50

alibek писал(а):Поищи в базе по "A D O D B . C o n n e c t i o n", с базой данных лучше работать так.


СПАСИБО огромное )
ADODB Forever
Заработало! :D


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 204

    TopList