Помогите решить проблему с прямым запросом к Ораклу.
Делаю так:

DB=СоздатьОбъект("ODBCDatabase");
DB.Соединение("DRIVER={Microsoft ODBC for Oracle};SERVER=***;Uid=***;Pwd=***;");
RS=СоздатьОбъект("ODBCRecordSet");
RS.SetDatabase(DB);
ТЗ=Создатьобъект("ТаблицаЗначений");
ТекстЗапроса="
|SELECT HIS.TXN_DT AS DT, HIS.PART_NO AS NO
|FROM TS_HISTORY HIS
|WHERE trunc (txn_dt,'DDD') between  to_date('"+Строка(Дата1)+"','DD.MM.YY') and  to_date('"+Строка(Дата2)+"','DD.MM.YY')";
ТЗ=RS.ВыполнитьИнструкцию(ТекстЗапроса);
ТЗ.ВыбратьСтроку(); 

Так, как выше - работает на ура.

Если меняю текст запроса на такой:

ТекстЗапроса="select TRANS.bl_no, trunc(TRANS.receive_dt,'DDD') AS DT, SUPL.PAY_TO, TRANS.part_no, TRANS.part_desc, to_char(TRANS.part_price,'999999999.99') as PRICE, sum(TRANS.transit_qty) as QTY
|from SVC.TS_PURC_D as PURCH, SVC.TS_TRANSIT_D as TRANS, SVC.TS_SUPPL as SUPL
|where
|PURCH.purchase_no = TRANS.purchase_no and
|PURCH.purchase_seq = TRANS.purchase_seq
|and PURCH.STATUS = 'CLOS'
|and TRANS.supplier_cd = SUPL.supplier_cd
|and trunc(TRANS.receive_dt,'DDD') between  to_date('"+Строка(Дата1)+"','DD.MM.YY') and  to_date('"+Строка(Дата2)+"','DD.MM.YY')
|and SUPL.nation_cd <> 'NLD'
|group by TRANS.receive_dt, TRANS.bl_no, SUPL.PAY_TO, TRANS.part_no, TRANS.part_desc, TRANS.part_price "; 

то вылазит ошибка

ТЗ=RS.ВыполнитьИнструкцию(ТекстЗапроса);
{D:\1S BASES\ЗАГРУЗКАСЧЕТОВ.ERT(595)}: State 42000, native 933, message [Microsoft][ODBC driver for Oracle][Oracle]ORA-00933: SQL command not properly ended 

Т.е. такое впечатление, что запрос доходит до сервера в каком-то обрезанном виде.
Как ни крутил, - если в запросе выборка из более одной таблицы, то кампец...

Интересно, что через СоздатьОбъект("ADODB.Connection"), т.е. без 1срр, точно такой запрос нормально работает, а через ОДБС с 1срр не хочет
А хочется именно через ОДБС, да прямиком в ТЗ и далее в ТП...

Где собака порылась?

А через ADODB наверно работает OLEDB провайдер, а не ODBC драйвер.

Просто не хочется в цикле терзать и себя и сервер: дай очередную запись - на получи, дай очередную запись - на получи

да нет, так именно ODBC драйвер используется..
для OLEDB провайдера такая строка: Provider=MSDAORA

DmitrO писал(а) 27. Июня 2007 :: 17:37:

Вот тут я не силен...

Просто мне интересно: можно как-то тут сделать такое ТЗ=RS.ВыполнитьИнструкцию(ТекстЗапроса), чтоб быстро загнать запрос в ТЗ?

Отладка(1) выдает то, что отправляется на драйвер.

как тогда через АДО работает вообще не понятно..

М.б. он результат до конца обработать не может. Попробуй еще такой код:

Результат = RS.Открыть(ТекстЗапроса);
Если Результат=0 Тогда
  Сообщить(RS.ПолучитьОписаниеОшибки());
КонецЕсли;
НомерЗаписи=0;
Пока RS.ВКонце()=0 Цикл
  НомерЗаписи=НомерЗаписи+1;
  Сообщить("Получена запись:"+НомерЗаписи);
  Результат = RS.След();
  Если Результат=0 Тогда
    Сообщить(RS.ПолучитьОписаниеОшибки());
  КонецЕсли;
КонецЦикла; 

DmitrO писал(а) 27. Июня 2007 :: 18:45:

Весь сыр-бор был уйти от такого цикла и махом получить результат запроса в тз...

В общем я почти ничего не понял... Только то, что Оракл еще не дорос до "иннер джойн", и, как писал выше VIP  - мелкомягкий дривер "Microsoft ODBC for Oracle" тут  действительно не работает...

Всё заработало так:

DB=СоздатьОбъект("OLEDBData");
DB.Соединение("Provider=MSDASQL.1;Password=***;Persist Security Info=True;User ID=***;Data Source=***");
Команда=DB.СоздатьКоманду();
ТЗ=Создатьобъект("ТаблицаЗначений");
ТекстЗапроса="select TRANS.bl_no, trunc(TRANS.receive_dt,'DDD') AS DT, SUPL.PAY_TO, TRANS.part_no, TRANS.part_desc, to_char(TRANS.part_price,'999999999.99') as PRICE, sum(TRANS.transit_qty) as QTY
|from SVC.TS_PURC_D PURCH,
|SVC.TS_TRANSIT_D TRANS, SVC.TS_SUPPL SUPL
|where
|PURCH.purchase_no = TRANS.purchase_no and
|PURCH.purchase_seq = TRANS.purchase_seq and
|PURCH.STATUS = 'CLOS' and
|TRANS.supplier_cd = SUPL.supplier_cd
|and trunc(TRANS.receive_dt,'DDD') between  to_date('"+Строка(Дата1)+"','DD.MM.YY') and  to_date('"+Строка(Дата2)+"','DD.MM.YY')
|and SUPL.nation_cd <> 'NLD'
|group by TRANS.receive_dt, TRANS.bl_no, SUPL.PAY_TO, TRANS.part_no,  TRANS.part_desc, TRANS.part_price";
ТЗ=Команда.ВыполнитьИнструкцию(ТекстЗапроса);
ТЗ.ВыбратьСтроку(); 

и так;

DB=СоздатьОбъект("ODBCDatabase");
DB.Соединение("Driver={Oracle in OraDb10g_Home1};dbq=***;Uid=***;Pwd=***");
RS=СоздатьОбъект("ODBCRecordSet");
RS.SetDatabase(DB);
ТЗ=Создатьобъект("ТаблицаЗначений");
ТекстЗапроса="select TRANS.bl_no, trunc(TRANS.receive_dt,'DDD') AS DT, SUPL.PAY_TO, TRANS.part_no, TRANS.part_desc, to_char(TRANS.part_price,'999999999.99') as PRICE, sum(TRANS.transit_qty) as QTY
|from SVC.TS_PURC_D PURCH,
|SVC.TS_TRANSIT_D TRANS, SVC.TS_SUPPL SUPL
|where
|PURCH.purchase_no = TRANS.purchase_no and
|PURCH.purchase_seq = TRANS.purchase_seq and
|PURCH.STATUS = 'CLOS' and
|TRANS.supplier_cd = SUPL.supplier_cd
|and trunc(TRANS.receive_dt,'DDD') between  to_date('"+Строка(Дата1)+"','DD.MM.YY') and  to_date('"+Строка(Дата2)+"','DD.MM.YY')
|and SUPL.nation_cd <> 'NLD'
|group by TRANS.receive_dt, TRANS.bl_no, SUPL.PAY_TO, TRANS.part_no,  TRANS.part_desc, TRANS.part_price";
ТЗ=RS.ВыполнитьИнструкцию(ТекстЗапроса);
ТЗ.ВыбратьСтроку(); 

А с мелкомягкими дровами таки жо:

DB.Соединение("DRIVER={Microsoft ODBC for Oracle}...
ТЗ=RS.ВыполнитьИнструкцию(ТекстЗапроса);
{D:\1S BASES\ЗАГРУЗКАСЧЕТОВ.ERT(646)}: State 01S01, native 0, message [Microsoft][ODBC driver for Oracle]Ошибка в строке 1  

Всем спасибооооооо!