1C и внешняя SQL-прога
09.11.2005
09:37
#1
Уважаемые
кто-нить работал из 1С с внешней SQL-прогой
точнее нужно получение данных хранящихся в той SQL-базе.....
есть ли где-нить описание такой технологии...
сразу скажу - не OLE
и 1С-ка ДБФ-ная....
кто-нить работал из 1С с внешней SQL-прогой
точнее нужно получение данных хранящихся в той SQL-базе.....
есть ли где-нить описание такой технологии...
сразу скажу - не OLE
и 1С-ка ДБФ-ная....
23.01.2006
14:26
#2
"ADO
"SQL Server"; server="Имя_SQL_Сервера"; uid="sa"; pwd="Пароль"; database="Имя_Базы"; // поменяйте на нужные Вам параметры
Соединение=СоздатьОбъект("ADODB.Connection");
Соединение.ConnectionString = "driver={SQL Server};server="+СокрЛП(server)+";uid="+СокрЛП(uid)+";pwd="
+СокрЛП(pwd)+";database="+СокрЛП(database)+"""";
Соединение.ConnectionTimeout = 15;
Соединение.CursorLocation= 3;
Попытка
Соединение.Open();
Исключение
Предупреждение("Невозможно установить соединение",3);
Возврат;
КонецПопытки;
Rs = СоздатьОбъект("ADODB.Recordset");
Rs.CursorLocation = 3;
Rs.CursorType = 2;
Rs.LockType = 3;
Rs = Соединение.Execute("SELECT * FROM _1SUPDTS");
Пока Rs.Eof()=0 Цикл
OBJID=СокрЛП(Rs.Fields("OBJID").Value);
Сообщить("OBJID = "+OBJID);
Rs.MoveNext();
КонецЦикла;
Rs.Close();
..."
"SQL Server"; server="Имя_SQL_Сервера"; uid="sa"; pwd="Пароль"; database="Имя_Базы"; // поменяйте на нужные Вам параметры
Соединение=СоздатьОбъект("ADODB.Connection");
Соединение.ConnectionString = "driver={SQL Server};server="+СокрЛП(server)+";uid="+СокрЛП(uid)+";pwd="
+СокрЛП(pwd)+";database="+СокрЛП(database)+"""";
Соединение.ConnectionTimeout = 15;
Соединение.CursorLocation= 3;
Попытка
Соединение.Open();
Исключение
Предупреждение("Невозможно установить соединение",3);
Возврат;
КонецПопытки;
Rs = СоздатьОбъект("ADODB.Recordset");
Rs.CursorLocation = 3;
Rs.CursorType = 2;
Rs.LockType = 3;
Rs = Соединение.Execute("SELECT * FROM _1SUPDTS");
Пока Rs.Eof()=0 Цикл
OBJID=СокрЛП(Rs.Fields("OBJID").Value);
Сообщить("OBJID = "+OBJID);
Rs.MoveNext();
КонецЦикла;
Rs.Close();
..."
Читают тему
(гостей: 1)