(UTC)
  1С++ users forum › 1С++ и прочие расширения v7 › Прямые запросы к БД › Создать программно источник данных ODBC
(Группа Модераторов: 1c++ moderator)
‹ Предыдущая Тема | Следующая Тема ›
Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема Создать программно источник данных ODBC (число прочтений - 3119 )
The gray Cardinal
Full Member
***
Отсутствует



Сообщений: 159
Зарегистрирован: 17. Июня 2006
Пол: Мужской
Создать программно источник данных ODBC
10. Мая 2007 :: 05:49
Печать  
Возможен ли сабж?
Речь идёт об источниках данных, которые создаются интерактивно с помощью апплета "Источники данных (ODBC)" в разделе "Администрирование" Панели управления.
Подойдет решение на встроенном языке 1С 7.7, на VBScript, cmd/bat.
« Последняя редакция: 10. Мая 2007 :: 16:21 - The gray Cardinal »  
Наверх
www  
IP записан
 
Rem Ryahirev
YaBB Newbies
*
Отсутствует



Сообщений: 8
Местоположение: Барнаул
Зарегистрирован: 22. Марта 2007
Пол: Мужской
Re: Создать программно источник данных ODBC
Ответ #1 - 11. Мая 2007 :: 20:56
Печать  
а СоздатьОбъект("ODBCRecordSet") тебя чем не устраивает? это тоже агрегатный объект (внутри эски) и он работает через драйвер ODBC реализованый ч/з интерфейс FoxPro, имхо...
  
Наверх
ICQ  
IP записан
 
The gray Cardinal
Full Member
***
Отсутствует



Сообщений: 159
Зарегистрирован: 17. Июня 2006
Пол: Мужской
Re: Создать программно источник данных ODBC
Ответ #2 - 12. Мая 2007 :: 08:45
Печать  
Есть база FireBird, к которой нужно достучаться из 1С. Драйвер не фурычит, если нет соответствующего источника данных ODBC. Делать источник вручную на полсотне компьютеров не хочется...
  
Наверх
www  
IP записан
 
Arta
1c++ power user
Отсутствует



Сообщений: 2537
Местоположение: Нижний Новгород
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Создать программно источник данных ODBC
Ответ #3 - 12. Мая 2007 :: 08:59
Печать  
Цитата:
Драйвер не фурычит, если нет соответствующего источника данных ODBC.


Как ты подключаешь?
http://www.connectionstrings.com/?carrier=firebird
  
Наверх
 
IP записан
 
The gray Cardinal
Full Member
***
Отсутствует



Сообщений: 159
Зарегистрирован: 17. Июня 2006
Пол: Мужской
Re: Создать программно источник данных ODBC
Ответ #4 - 14. Мая 2007 :: 17:44
Печать  
За ссылку спасибо, но вынужден признаться, что мопэд не мой Смущённый, поэтому на вопрос "Как ты подключаешь?" ответить, к сожалению, не могу  Печаль. Знаю только, что "успешная" строка подключения у человека выглядит как "DSN=Test" или что-то типа этого.
Однако, вот так у меня без проблем работает:
Код
Выбрать все
Set objConn = CreateObject("ADODB.Connection")
objConn.ConnectionString = "Driver=Firebird/InterBase(r) driver;Uid=SYSDBA;Pwd=masterkey;DbName=C:\SE Server\se.fdb;"
objConn.ConnectionTimeOut = 15
objConn.CommandTimeout = 30
objConn.Open
Set objRecordset = objConn.Execute("UPDATE BUX SET BUX_NAME = 'ЗаявкаПокупателя1' WHERE BUX_ID = 1")
objConn.Close

Буду благодарен, если поможете перевести этот код на встроенный язык 1С с использованием 1С++.
  
Наверх
www  
IP записан
 
Arta
1c++ power user
Отсутствует



Сообщений: 2537
Местоположение: Нижний Новгород
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Создать программно источник данных ODBC
Ответ #5 - 15. Мая 2007 :: 07:49
Печать  
Вот напримере MySQL:
Код
Выбрать все
DB = СоздатьОбъект("ODBCDatabase");
DB.Соединение("DRIVER={MySQL ODBC 3.51 Driver}; SERVER=192.168.0.254; DATABASE=SPS; USER=sps; PASSWORD=sps; OPTION=3;");

RS = СоздатьОбъект("ODBCRecordSet");
RS.SetDatabase(DB);

ТЗ = RS.ВыполнитьИнструкцию("Select * from ТвояЛюбимаяТаблица");
Ошибка = RS.ПолучитьОписаниеОшибки();
Если ПустоеЗначение(Ошибка) = 0 Тогда
Сообщить (Ошибка);
КонецЕсли;

RS.УстановитьТекстовыйПараметр("NAME", "ЗаявкаПокупателя1");
RS.УстановитьТекстовыйПараметр("ID", 1);
RS.Выполнить("UPDATE BUX SET BUX_NAME = :NAME WHERE BUX_ID = :ID")


Тебе нужно только переделать строку подключения
  
Наверх
 
IP записан
 
The gray Cardinal
Full Member
***
Отсутствует



Сообщений: 159
Зарегистрирован: 17. Июня 2006
Пол: Мужской
Re: Создать программно источник данных ODBC
Ответ #6 - 15. Мая 2007 :: 10:18
Печать  
Спасибо! Всё работает без вопросов.
  
Наверх
www  
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать
‹ Предыдущая Тема | Следующая Тема ›
 
  « Главная ‹ Раздел Вверх  



Valid RSS Valid XHTML Valid CSS Powered by Perl Source Forge