Образовательный проект «SnakeProject» Михаила Козлова

⇒ 1С ⇐

CISCO

Voice(Asterisk\Cisco)

Microsoft

Powershell

Python

SQL\T-SQL

FreeBSD and Nix

Общая

WEB Разработка

ORACLE SQL \ JAVA

Мото

Стрельба, пневматика, оружие

Саморазвитие и психология

Подключаемся из 1с к Sql Server(ODBC Driver)

Задача стояла подключиться к базе SQL Server 2012 из 1с.

Решение было с помощью ODBC.

Драйвер взять отсюда: ссылка

Подключение:

Попытка ServerName = "192.168.1.1"; DSN = "base"; UID = "sa"; PWD = "123456"; //ConnectString = "Driver={SQL Server};Server="+ServerName+";Database="+DSN+";UID="+UID+";PWD="+PWD; ConnectString = "Driver={SQL Server};Server="+ServerName+";Database="+DSN+";Uid="+UID+";Pwd="+PWD; Соединение=Новый COMОбъект("ADODB.Connection"); Соединение.Open(ConnectString); Исключение DoMessageBox("Не удалось подключиться к SQL Server"); КонецПопытки;

Запрос:

Рекордсет = Новый COMОбъект("ADODB.RecordSet"); Command =Новый COMОбъект("ADODB.Command"); Command.ActiveConnection = Соединение; Command.CommandText = "SELECT b.*, c.inn, c.kpp, c.passport_ser, c.passport_num, c.buh_name, c.buh_full_name, c.name as client_name, c.set_acct FROM bills b LEFT JOIN clients c ON c.id=b.client_id WHERE b.source=1 AND b.exported_1c=0 AND b.ready=1"; Command.CommandType = 1; Рекордсет = Command.Execute();

А вот пример выборки в цикле и обработка данных(Присутствует пример UPDATE):

Пока Рекордсет.EOF = 0 Цикл ID = Число(Рекордсет.Fields("ID").Value); buh_id = СокрЛП(Рекордсет.Fields("buh_id").Value); name = СокрЛП(Рекордсет.Fields("name").Value); name = СтрЗаменить(name,""",""""); name = СтрЗаменить(name,""",""""); doc_id = СокрЛП(Рекордсет.Fields("doc_id").Value); doc_name = СокрЛП(Рекордсет.Fields("doc_name").Value); doc_name = СтрЗаменить(doc_name,""",""""); doc_name = СтрЗаменить(doc_name,""",""""); dealer_name = СокрЛП(Рекордсет.Fields("dealer_name").Value); manager_name = СокрЛП(Рекордсет.Fields("manager_name").Value); date_ = Рекордсет.Fields("date").Value; bill_date = Рекордсет.Fields("bill_date").Value; docs_date = Рекордсет.Fields("docs_date").Value; source = Число(Рекордсет.Fields("source").Value); ready = Число(Рекордсет.Fields("ready").Value); exported_1c = Число(Рекордсет.Fields("exported_1c").Value); inn = СокрЛП(Рекордсет.Fields("inn").Value); kpp = СокрЛП(Рекордсет.Fields("kpp").Value); set_acct = СокрЛП(Рекордсет.Fields("set_acct").Value); client_id = СокрЛП(Рекордсет.Fields("client_id").Value); passport_ser = СокрЛП(Рекордсет.Fields("passport_ser").Value); passport_num = СокрЛП(Рекордсет.Fields("passport_num").Value); buh_name = СокрЛП(Рекордсет.Fields("buh_name").Value); buh_full_name = СокрЛП(Рекордсет.Fields("buh_full_name").Value); docs_num = Число(Рекордсет.Fields("docs_num").Value); Если ПустаяСтрока(buh_name)=1 Тогда buh_name = СокрЛП(Рекордсет.Fields("client_name").Value); КонецЕсли; doc_name = СтрЗаменить(doc_name,"КД","КД*"); bank_id = СокрЛП(Рекордсет.Fields("bank_id").Value); НоваяСтрока = Таб.Добавить(); НоваяСтрока.Ид =ID; НоваяСтрока.НомерСчета = buh_id; НоваяСтрока.ДатаСозданияСчета= date_; НоваяСтрока.ДатаСчета =docs_date; НоваяСтрока.БиллигДата =bill_date; НоваяСтрока.НаименованиеУслуги =name; НоваяСтрока.ИдДоговора =doc_id; НоваяСтрока.НомерДоговора =doc_name; НоваяСтрока.НаименованиеДилера =dealer_name; НоваяСтрока.НаименованиеМенеджера=manager_name; НоваяСтрока.Источник =source; НоваяСтрока.Готов =ready; НоваяСтрока.Экспортирован =exported_1c; НоваяСтрока.ИНН =inn; НоваяСтрока.КПП = kpp; НоваяСтрока.РасчетныйСчет =set_acct; НоваяСтрока.ИдКлиента =client_id; НоваяСтрока.Серия =passport_ser; НоваяСтрока.Номер =passport_num; НоваяСтрока.НаименованиеКлиента =buh_name; НоваяСтрока.ПолнНаименованиеКлиента=buh_full_name; НоваяСтрока.ПризнакДок =docs_num; НоваяСтрока.ИдБанка =bank_id; РекордсетАпдейт = Новый COMОбъект("ADODB.RecordSet"); CommandАпдейт =Новый COMОбъект("ADODB.Command"); CommandАпдейт.ActiveConnection = Соединение; CommandАпдейт.CommandText = "UPDATE bills SET exported_1c=1 WHERE id="+СтрЗаменить(Строка(""+ID),Символы.НПП,""); CommandАпдейт.CommandType = 1; РекордсетАпдейт = CommandАпдейт.Execute(); Рекордсет.MoveNext(); КонецЦикла; Рекордсет.Close(); Соединение.Close();

Комментарии пользователей