|
Сообщение об ошибке: Произошла исключительная ситуация (ADODB.Recordset): Невозможно использование подключения для выполнения операции. Оно закрыто или не допускается в данном контексте.
задача: Из Excel-файла записать данные в справочник 1С. Управляемые формы
Код:
Лист = Объект.ЛистExcel;
СтрокаПодключения = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + ЗагружаемыйФайл + ";""";
Connection = Новый COMОбъект("ADODB.Connection");
Попытка
Connection.Open(СтрокаПодключения);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
RecSet = Новый COMОбъект("ADODB.RecordSet");
RecSet.Open(Лист, Connection,,,);
RecSet.CommandText = "S_elect * FROM Table1";
RecSet.CommandType = 1;
RecordSet = Новый COMОбъект("ADODB.RecordSet");
RecordSet = RecSet.Execute();
стр ="";
Пока RecordSet.EOF() = 0 Цикл
для н=0 по Recordset.Fields.Count -1 цикл
стр = стр + " " + Recordset.Fields(н).Value;
КонецЦикла;
Сообщить(стр);
стр ="";
RecordSet.MoveNext();
КонецЦикла;
RecordSet.Close();
Connection.Close(); Изменено 11.09.13 12:56:22 по причине: Не указана тема ADODB.Recordset |
|