Обработка из SQL базы в 1с SQL
25.01.2011
12:06
#1
Доброго времени суток. нету случайно где-нить готовой обработки такой.
Есть базы данных SQL (не 1с) от туда надо просто перенести наименования в (1с SQL) в номенклатуру, просто списком, хотя бы просто название, что бы руками не создавать кучу.
Есть базы данных SQL (не 1с) от туда надо просто перенести наименования в (1с SQL) в номенклатуру, просто списком, хотя бы просто название, что бы руками не создавать кучу.
25.01.2011
21:38
#4
> написать запрос на аддо ?
>
> .. это единоразовая задача. так что надо как по проще и по быстрее ...не понял что ты имел ввиду под этой ссылкой.
у нас MS sql а не My Sql это ведь не одно и тоже хотя я совсем не секу в Сиквеле.
Смысл в том что есть 2 БД одна не 1с...вторая БД для 1с (оба ессесно sql) надо тупо из одной БД (из таблице) запихнуть все во вторую БД в таблицу .. таблица содержит только наименования (названия) просто их очень много, руками не перепишешь.
в 1с это будет в справочнике
>
> .. это единоразовая задача. так что надо как по проще и по быстрее ...не понял что ты имел ввиду под этой ссылкой.
у нас MS sql а не My Sql это ведь не одно и тоже хотя я совсем не секу в Сиквеле.
Смысл в том что есть 2 БД одна не 1с...вторая БД для 1с (оба ессесно sql) надо тупо из одной БД (из таблице) запихнуть все во вторую БД в таблицу .. таблица содержит только наименования (названия) просто их очень много, руками не перепишешь.
в 1с это будет в справочнике
25.01.2011
21:49
#5
Я просто в sql полный ноль.
Я знаю название таблицы в базе sql от куда нужно взять все наименования. я знаю название таблицы в sql куда нужно впихнуть все наименования. а как это реализовать (не обязательно с помощью 1с) можно и по другому, я без понятия
Я знаю название таблицы в базе sql от куда нужно взять все наименования. я знаю название таблицы в sql куда нужно впихнуть все наименования. а как это реализовать (не обязательно с помощью 1с) можно и по другому, я без понятия
25.01.2011
22:10
#6
select
имяКолонкиНаименовании
from
ИмяТаблицы
весь текст запроса, далее выборку обходим и записываем
имяКолонкиНаименовании
from
ИмяТаблицы
весь текст запроса, далее выборку обходим и записываем
26.01.2011
12:27
#8
"мне показалась данная задачка интересной и я придумал решение и даже протестил его:
Процедура Сформировать()
//здесь
//192.168.7.70 = ip Microsoft SQL Server
//User1C = пользователь, имеющий права доступа на базу в MS SQL Server (обычно sa, но я всегда меняю)
//omega = пароль пользователя
//BaseID = идентификатор базы
ConnectionString = "Provider=SQLOLEDB;Data Source=192.168.7.70;Password=omega;User ID=User1C;Initial Catalog=BaseID";
Соединение = СоздатьОбъект("ADODB.Connection");
Соединение.ConnectionTimeOut =600;
Соединение.CursorLocation = 3;
Попытка
//здесь:
//HH123 - идентификатор поля, где лежит наименование
//TT567 - идентификатор таблицы, где лежат нужные данные
Номенклатура=СоздатьОбъект("Справочник.Номенклатура");
Соединение.Open(ConnectionString);
Cmd = СоздатьОбъект("ADODB.Command");
Cmd.ActiveConnection = Соединение;
Cmd.CommandText = СокрЛП("Select HH123 FROM TT567");
Rs = CreateObject("ADODB.RecordSet");
Rs = Cmd.Execute;
Для i = 1 по Rs.RecordCount Цикл
ТекНаименование=СокрЛП(Rs.Fields("HH123").Value);
Если Номенклатура.НайтиПоНаименованию(ТекНаименование,0,1)=0 Тогда
Номенклатура.Новый();
Номенклатура.Наименование=ТекНаименование;
Номенклатура.Записать();
КонецЕсли;
Rs.MoveNext();
КонецЦикла;
Rs=0;
Соединение=0;
Исключение
Предупреждение(ОписаниеОшибки());
Соединение=0;
КонецПопытки;
КонецПроцедуры"
Процедура Сформировать()
//здесь
//192.168.7.70 = ip Microsoft SQL Server
//User1C = пользователь, имеющий права доступа на базу в MS SQL Server (обычно sa, но я всегда меняю)
//omega = пароль пользователя
//BaseID = идентификатор базы
ConnectionString = "Provider=SQLOLEDB;Data Source=192.168.7.70;Password=omega;User ID=User1C;Initial Catalog=BaseID";
Соединение = СоздатьОбъект("ADODB.Connection");
Соединение.ConnectionTimeOut =600;
Соединение.CursorLocation = 3;
Попытка
//здесь:
//HH123 - идентификатор поля, где лежит наименование
//TT567 - идентификатор таблицы, где лежат нужные данные
Номенклатура=СоздатьОбъект("Справочник.Номенклатура");
Соединение.Open(ConnectionString);
Cmd = СоздатьОбъект("ADODB.Command");
Cmd.ActiveConnection = Соединение;
Cmd.CommandText = СокрЛП("Select HH123 FROM TT567");
Rs = CreateObject("ADODB.RecordSet");
Rs = Cmd.Execute;
Для i = 1 по Rs.RecordCount Цикл
ТекНаименование=СокрЛП(Rs.Fields("HH123").Value);
Если Номенклатура.НайтиПоНаименованию(ТекНаименование,0,1)=0 Тогда
Номенклатура.Новый();
Номенклатура.Наименование=ТекНаименование;
Номенклатура.Записать();
КонецЕсли;
Rs.MoveNext();
КонецЦикла;
Rs=0;
Соединение=0;
Исключение
Предупреждение(ОписаниеОшибки());
Соединение=0;
КонецПопытки;
КонецПроцедуры"
v8: ошибка после обновления УПП (1.3.8.1) платформа (8.2.13.205)выгрузка - загрузка из Рарус Альфа-авто 4.0 в бухгалтерию 7.7
Читают тему
(гостей: 1)