Всем привет, есть простенькая процедура исполняемая на сервере, весь листинг приводить не буду но основной:

   ADOСоединение = Новый COMОбъект("ADODB.Connection");
   
   
       ADOСоединение.Open("DRIVER=SQLite3 ODBC Driver;Database=" + СокрЛП(АдресПГ) + ";LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;");
       
   
   Command = Новый COMОбъект("ADODB.Command");
   Command.ActiveConnection = ADOСоединение;
   
   Command.CommandText = "
   |SELECT
   | pg_list.ID AS КодПрайса,
   | pg_list.PVID,
   | datetime(pg_list.PRICEDTE + julianday(""1899-12-30"")) as Дата,
   | pg_list.DESCR as ИмяПостовщика
   |FROM
   | pg_list";

Результат = command.Execute();

Пока Результат.EOF() Цикл

И при выполнение обхода, ругается:
 
"Произошла исключительная ситуация (ADODB.Recordset): Операция не допускается, если объект закрыт."
Не могу понять почему.

Может pg_list пустая? Хотя может это и не должно вызывать исключение.

(0) а нефиг вместо рекордсета использовать команду

(2) один хрен

ТекстЗапросаКПГ = "
   |SELECT
   | pg_list.ID AS КодПрайса,
   | pg_list.PVID,
   | datetime(pg_list.PRICEDTE + julianday(""1899-12-30"")) as Дата,
   | pg_list.DESCR as ИмяПостовщика
   |FROM
   | pg_list";
   
   
   ЗаписиSQL = Новый ComObject("ADODB.RecordSet");
   ЗаписиSQL.CursorType = 3;
   ЗаписиSQL.ActiveConnection = ADOСоединение;
   ЗаписиSQL.Open (ТекстЗапросаКПГ,ADOСоединение);
   //ЭлементыФормы.ИндикаторЗаполнения.МаксимальноеЗначение=ЗаписиSQL.RecordCount;
   Пока ЗаписиSQL.EOF=0 Цикл
       
       Сообщить("Бя");
   КонецЦикла;
   
то же самое

а так ?

   ADOСоединение = Новый COMОбъект("ADODB.Connection");
   ADOСоединение.Open("DRIVER=SQLite3 ODBC Driver;Database=" + СокрЛП(АдресПГ) + ";LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;");
   Command = Новый COMОбъект("ADODB.Command");
   
   Command.ActiveConnection = ADOСоединение ;
   
   ТекстЗапроса = "
      ....
       |";

   Command.CommandText = ТекстЗапроса;    
   RecordSet = Новый COMОбъект("ADODB.RecordSet");    
   RecordSet = Command.Execute();
   
   Если not RecordSet.EOF() Тогда
....

(4) не помогло

ADOСоединение = Новый COMОбъект("ADODB.Connection");
   
   Попытка
       ADOСоединение.Open("DRIVER=SQLite3 ODBC Driver;Database=" + СокрЛП(АдресПГ) + ";LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;");
       
   Исключение
       Сообщение = Новый СообщениеПользователю;
       Сообщение.Текст = "Не могу открыть ПГ";        
       Сообщение.Сообщить();
       Возврат;
   КонецПопытки;
   
   
   Command = Новый COMОбъект("ADODB.Command");
   
   Command.ActiveConnection = ADOСоединение ;
   
   ТекстЗапросаКПГ = "
   |SELECT *    
   |FROM
   | pg_list";
   
   Command.CommandText = ТекстЗапросаКПГ;    
   RecordSet = Новый COMОбъект("ADODB.RecordSet");    
   RecordSet = Command.Execute();
   RecordSet.Open();
   
   Если not RecordSet.EOF() Тогда
       Вр = 1;
   КонецЕсли;

какой-то тип данных несовместим

(5) а в excel откроется в Данные?

(3) а теперь убери сей перл [  | datetime(pg_list.PRICEDTE + julianday(""1899-12-30"")) as Дата,] и пресеки русские алиасы

(8) это не перл, это проза жизни Дата представлена в непонятном формате, но данный перл дает ее переварить в нормальный. Я даже больше скажу, взлетает но иногда падает вот такой код:

ADOСоединение = Новый COMОбъект("ADODB.Connection");
   
   Попытка
       ADOСоединение.Open("DRIVER=SQLite3 ODBC Driver;Database=C:\1C\PG\PR\PriceGrabber\db.dat;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;");
       
   Исключение
       Сообщить("фывафыаы");
   КонецПопытки;
   
   
   ДатаНачалаЗапроса = НачалоДня(ТекущаяДата());
   
   command = Новый COMОбъект("ADODB.Command");
   command.ActiveConnection = ADOСоединение;
   
   command.CommandText ="SELECT
   | pg_list.ID AS КодПрайса,
   | pg_list.PVID AS PVID,
   | datetime(pg_list.PRICEDTE + julianday(""1899-12-30"")) as Дата,
   | pg_list.DESCR as ИмяПостовщика
   |FROM
   | pg_list
   |WHERE
   | datetime(pg_list.PRICEDTE + julianday(""1899-12-30"")) >= datetime(julianday(""" + Формат(ДатаНачалаЗапроса,"ДФ='yyyy-MM-dd HH:mm:ss'") + """))";
   
   
   Попытка
       результат = command.Execute();
   Исключение
       
       Сообщить("фывафыаы");
       
   КонецПопытки;
   
   
   Вр = 1;
   // Перебор данных
   Если НЕ результат.EOF() Тогда
       результат.MoveFirst();                
       Пока результат.EOF() = 0 Цикл
           
           Сообщить(Вр);
           результат.MoveNext();
           Вр = Вр + 1;
       КонецЦикла;
   КонецЕсли;


В чем дело я так и не понял.

(9) это херня и в (6) тебе русским языком объяснили методику отладки сквозь ADODB

(10) херня, но работает.
Одна проблема, перебор идет по колонкам и строкам, что значительно увеличивает время работы обработки.

русские алиасы по адо в 1с передаются без проблем.

(11)
проблема длительного перебора выборки решают gemewithfire    
или  
getrows

Попробуй вот такую замену
   ТекстЗапросаКПГ = "
   |SET NOCOUNT ON;
   |SELECT *    
   |FROM
   | pg_list";

(14) [SET NOCOUNT ON]
выплюнет SQLite такое предекатив

Тогда перебирать по колонкам, какая не проходит

(15) Невнимательность, я не обратил внимание что там лайт

ВСЕ всем спасибо, "дело было не в бабине".
Все навсего в запросе не может быть первая строка пустая!!!!
При работе с SQLite запомните это!!!!
т.е.

ТекстЗапросаКПГ = "
   |SELECT *    
   |FROM
   | pg_list"; //- НЕ РАБОТАЕТ

ТекстЗапросаКПГ = "SELECT *    
   |FROM
   | pg_list"; // + РАБОТАЕТ

Теперь осталось победить кракозябры, вылазиющие вместо русских букв в результате запроса, но это другая ветка.

(16) когда какая то не подходит то
"Произошла исключительная ситуация (Microsoft OLE DB Provider for ODBC Drivers): Драйвер ODBC не поддерживает требуемые свойства."