Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
20 мая 2024, 06:14

загрузка данных из SQL в 1с

Автор bannov, 31 июл 2014, 15:09

0 Пользователей и 1 гость просматривают эту тему.

bannov

Добрый день! Пишу обработку для загрузки данных в 1с из базы SQL. На данном этапе мне нужно просто получить данные по запросу и вывести их в сообщении. Запрос готов, к базе подключение есть, но необходимо в запросе сделать два параметра ДатаНач и ДатаКон
Вот что щас есть, но выдает ошибку: {Форма.Форма.Форма(82)}: Ошибка при вызове метода контекста (Execute)
    RecordSet = Command.Execute();
по причине:
Произошла исключительная ситуация (LCPI.IBProvider.3): В привязках параметров обнаружены ошибки [3].


Connection = Новый COMОбъект("ADODB.Connection");
    Connection.Provider = "LCPI.IBProvider";
    Connection.ConnectionString =  м_СтрокаПодключенияИК;
   
    Connection.Mode = 1;
   
    попытка
        Connection.Open();
        Сообщить ("Соединение установленно" );
    исключение
        Сообщить(ОписаниеОшибки() ) ;
        Возврат;
    КонецПопытки;
   
    Connection.BeginTrans();
    Command = Новый COMОбъект("ADODB.Command");
Command.NamedParameters = True;
Command.ActiveConnection = Connection;
Command.CommandText="select distinct T1.SCHCODE, T3.SCHNAME from ORDERDET T1, ORDERS T2, WSCHEMA T3 where T1.DOCTYPE > 0 and T1.DOCTYPE < 10 and T1.ORDERNO = T2.ORDERCOD and T2.ORDERDATE >= :DT1 and T2.ORDERDATE <= :DT2 and T1.SCHCODE = T3.SCHID";
ПараметыЗапроса="@DT1 datetime,@DT2 datetime";
ParamParamText=Command.CreateParameter(,130,1,5000,ПараметыЗапроса);
Command.Parameters.Append(ParamParamText);
Param1 = Command.CreateParameter("@DT1",200,1,8,Формат(НачалоДня(ДатаНач),"ДФ=ггггММдд"));
Command.Parameters.Append(Param1);
Param2 = Command.CreateParameter("@DT2",200,1,8,Формат(КонецДня(ДатаКон),"ДФ=ггггММдд"));
Command.Parameters.Append(Param2);

RecordSet = Новый COMОбъект("ADODB.RecordSet");
    RecordSet = Command.Execute();
Пока RecordSet.EOF() = 0 Цикл
ИД = RecordSet.Fields("ID").Value;
Сообщить(ИД);
RecordSet.MoveNext();
КонецЦикла;

RecordSet.Close();

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск