Очень долго происходит перебор результатов ~ 6800 строк за 34 мнуты...
     Запрос = "SELECT
     |    ARTIKLS.ANUMB AS ARTICLE_PROF,
     |    ARTSVST.ASKL1 AS ARTICLE_SKLAD,
     |    ARTSVST.ASKL2 AS ARTICLE_1C,
     |    ARTIKLS.ANAME AS NOMNAME,
     |    ARTSVST.CLPRV AS TARIF_ED_IZM,
     |    COLSLST.CNAME AS CVET_TEKSTURI,
     |    COLSLST.CNAMP AS CVET_ARTICLE,
     |    ARTSVST.CLPRC AS TARIF_OSN_TEKSTURI,
     |    ARTSVST.CLPR1 AS TARIF_VNUTR_TEKSTURI,
     |    ARTSVST.CLPR2 AS TARIF_VNESHN_TEKSTURI,
     |    ARTSVST.CLPRA AS TARIF_DVUHSTORONNEY_TEKSTURI,
     |    GRUPART.MNAME AS NOMGRUPNAME,
     |    GRUPART.MUNIC AS GRUPUNICNOMER,
     |    ARTIKLS.NUNIC AS KATEGORYUNICNOMER,
     |    ARTIKLS.APREF AS KATEGORY,
     |    ARTIKLS.ANAMP AS NOMNAMECONTR,
     |    CORRENC.CNAME AS VALUTE,
     |    CASE
     |        WHEN ARTIKLS.ATYPI = 1 THEN 'пог.м.'
     |        WHEN ARTIKLS.ATYPI = 2 THEN 'м.кв.'
     |        WHEN ARTIKLS.ATYPI = 3 THEN 'шт'
     |        WHEN ARTIKLS.ATYPI = 5 THEN 'компл.'
     |        ELSE 'неизвестно'
     |    END AS ED_IZM
     |
     |   FROM COLSLST
     |   RIGHT OUTER JOIN ARTSVST ON (COLSLST.CNUMB = ARTSVST.CLNUM)
     |   RIGHT OUTER JOIN ARTIKLS ON (ARTSVST.ANUMB = ARTIKLS.ANUMB)
     |   LEFT OUTER JOIN CORRENC ON (ARTIKLS.CNUMB = CORRENC.CNUMB)
     |   LEFT OUTER JOIN GRUPART ON (ARTIKLS.MUNIC = GRUPART.MPREF)
     |";
     
     
   //Загружаем компоненту
   Если ЗагрузитьВнешнююКомпоненту(КаталогПрограммы() + "1CPP.DLL")=0 Тогда
       ок=0;
   КонецЕсли;
     
     Попытка
           ЛокDB = СоздатьОбъект("ODBCDataBase");
     Исключение
           Сообщить(ОписаниеОшибки());
           Сообщить("Компонента 1С++ не обнаружена","!!");
           Возврат;
     КонецПопытки;
     ЛокODBC = СоздатьОбъект("ODBCRecordSet");
     Сообщить("Начало соединения: " + ТекущееВремя());  
     ЛокDB.Соединение("driver={Firebird/Interbase(r) \BASE.gdb");    
     
     Если ЛокDB.ЕстьСоединение() = 1 Тогда
           Сообщить("Конец соединения: " + ТекущееВремя());
     Иначе
           Возврат;
     КонецЕсли;
     
     ЛокODBC.УстБД(ЛокDB);
     Сообщить("Начало выполнения запроса: " + ТекущееВремя());
     Если ЛокODBC.Открыть(Запрос) = 0 Тогда
           Сообщить("Запрос не выполнен!", "!!!");
           Возврат;
     КонецЕсли;

     Если ЛокODBC.ВыборкаОткрыта() = 0 Тогда
           Сообщить("Выборка не открыта", "!!!");
     КонецЕсли;
     
     Сообщить("Начало проход по запросу: " + ТекущееВремя());
     ВсегоСтрок = 0;
     Пока ЛокODBC.След() = 1 Цикл
           ВсегоСтрок = ВсегоСтрок + 1;
           Состояние(ВсегоСтрок);
     КонецЦикла;                    
     Сообщить("Всего строк: " + ВсегоСтрок, "!!!");
     Сообщить("Конец прохода по запросу: " + ТекущееВремя());
     
     //ЛокODBC.ВыполнитьИнструкцию(Запрос, ТЗSQL, 1);
     Сообщить("Конец подготовки запроса: " + ТекущееВремя());
     

     Сообщить("Конец : " + ТекущееВремя());
     ЗначениеВФайл(КаталогИБ() + "Профстрой", ТЗSQL, 1);
     ЛокDB.Закрыть();

В таблицу выгружает тоже 34 минуты...

Поясните пожалуйста....какие индексы?

Время выполнения запроса минимально.
Очень долго обрабатывается результат запроса. Т.е. сперва выхватыват 104 строки, потом еще 30 потом еще несколько десятков и т.д.

Я пробовал этим методом...отличий вообще нет...те же 34 минуты...
Может это из-за того что база на Firebird?

DB = СоздатьОбъект("ODBCDatabase");
DB.Соединение("driver={Firebird/Interbase(r)
\BASE.gdb");
RS = СоздатьОбъект("ODBCRecordSet");
RS.SetDatabase(DB);

ТекстЗапроса = "Бла бла бла";
ТЗ = ВыполнитьИнструкцию(ТекстЗапроса, , 1);
ТЗ.ВыбратьСтроку();

 

Сам запрос выполняется за 19 сек...
Объясните что за индексы

Делаю по вашему коду (до этого тоже делал...но для чистоты эксперимента) 1С -ка висит уже 28 мин...еще 6 мин и все будет сделано ))...так что это не выход. Может еще какие варианты?

Процедура ЗагрКомпоненту()
    //Загружаем компоненту
    Если ЗагрузитьВнешнююКомпоненту(КаталогПрограммы() + "1CPP.DLL")=0 Тогда
       ок=0;
    КонецЕсли;
КонецПроцедуры
//*******************************************
Процедура  Сформировать()
     
     ТЗSQL = СоздатьОбъект("ТаблицаЗначений");
     
     Запрос = "SELECT 
     |    ARTIKLS.ANUMB AS ARTICLE_PROF,
     |    ARTSVST.ASKL1 AS ARTICLE_SKLAD,
     |    ARTSVST.ASKL2 AS ARTICLE_1C,
     |    ARTIKLS.ANAME AS NOMNAME,
     |    ARTSVST.CLPRV AS TARIF_ED_IZM,
     |    COLSLST.CNAME AS CVET_TEKSTURI,
     |    COLSLST.CNAMP AS CVET_ARTICLE,
     |    ARTSVST.CLPRC AS TARIF_OSN_TEKSTURI,
     |    ARTSVST.CLPR1 AS TARIF_VNUTR_TEKSTURI,
     |    ARTSVST.CLPR2 AS TARIF_VNESHN_TEKSTURI,
     |    ARTSVST.CLPRA AS TARIF_DVUHSTORONNEY_TEKSTURI,
     |    GRUPART.MNAME AS NOMGRUPNAME,
     |    GRUPART.MUNIC AS GRUPUNICNOMER,
     |    ARTIKLS.NUNIC AS KATEGORYUNICNOMER,
     |    ARTIKLS.APREF AS KATEGORY,
     |    ARTIKLS.ANAMP AS NOMNAMECONTR,
     |    CORRENC.CNAME AS VALUTE,
     |    CASE
     |        WHEN ARTIKLS.ATYPI = 1 THEN 'пог.м.'
     |        WHEN ARTIKLS.ATYPI = 2 THEN 'м.кв.'
     |        WHEN ARTIKLS.ATYPI = 3 THEN 'шт'
     |        WHEN ARTIKLS.ATYPI = 5 THEN 'компл.'
     |        ELSE 'неизвестно'
     |    END AS ED_IZM
     |
     |   FROM COLSLST
     |   RIGHT OUTER JOIN ARTSVST ON (COLSLST.CNUMB = ARTSVST.CLNUM)
     |   RIGHT OUTER JOIN ARTIKLS ON (ARTSVST.ANUMB = ARTIKLS.ANUMB)
     |   LEFT OUTER JOIN CORRENC ON (ARTIKLS.CNUMB = CORRENC.CNUMB)
     |   LEFT OUTER JOIN GRUPART ON (ARTIKLS.MUNIC = GRUPART.MPREF)
     |";
     
     
     
     Попытка
           ЛокDB = СоздатьОбъект("ODBCDataBase");
     Исключение
           Сообщить(ОписаниеОшибки());
           Сообщить("Компонента 1С++ не обнаружена","!!");
           Возврат;
     КонецПопытки;
     ЛокODBC = СоздатьОбъект("ODBCRecordSet");
     Сообщить("Начало соединения: " + ТекущееВремя());   
     ЛокDB.Соединение("DRIVER={Gemini InterBase ODBC Driver 2.0};uid=SYSDBA;pwd=masterkey;database=C:\ProfSegment\Profstroy3\BASE.gdb");   
     
     Если ЛокDB.ЕстьСоединение() = 1 Тогда
           Сообщить("Конец соединения: " + ТекущееВремя());
     Иначе
           Сообщить(ЛокODBC.ПолучитьОписаниеОшибки());
           Возврат;
     КонецЕсли;
     
     ЛокODBC.УстБД(ЛокDB);
     ТЗSQL = ЛокODBC.ВыполнитьИнструкцию(Запрос, , 1);
     Сообщить("В ТЗSQL находится " + Строка(ТЗSQL.КоличествоСтрок()) + " строк.");
     Сообщить("Конец : " + ТекущееВремя());
     ЗначениеВФайл(КаталогИБ() + "Профстрой", ТЗSQL, 1);
     ЛокDB.Закрыть();

KARLSON писал(а) 29. Января 2007 :: 08:19:


А где код который выдаёт вот эту красоту?

Начало соединения: 00:42:54
Конец соединения: 00:42:54
Начало выполнения запроса: 00:42:54
Начало проход по запросу: 00:43:13
100 : 00:43:26
200 : 00:43:26
300 : 00:45:00
400 : 00:45:05
500 : 00:45:10
600 : 00:45:17
...
 

KARLSON ты это сообщение прочитал или воплотил в жизнь?

Arta писал(а) 28. Января 2007 :: 21:08:

Цитата:



Присоединяюсь, т.к. проблема с базой. Если строк в исходных таблица несколько десятков тысяч, то 19 мин. нормальное время выполнения запроса.

KARLSON писал(а) 29. Января 2007 :: 08:40:



И какой код дальше?

Я ничего не понял. Перечел с момента моего последнего поста и ничего не понял.
то запрос выполняется с 10:44 до 11:20, то 19 секунд. То устраивает, то нет...

Данные с сервера получил? За 19 сек? Это тебя устраивает? /меня бы не устроили такие тормоза/
В чем проблема теперь?

Он скорее всего(т.к. если закрыть в ТаскМанагере FBSERV.exe ТЗSQL выйдет с тем количеством строк  которое успела получить) везде выполняется 19 секунд.

Только если мы не грузим в ТаблицуЗначений можно узнать за сколько выполнился запрос т.к. запрос выполняется, а потом начинается процесс получения данных (Который и тормозит т.е. ~34 минуты).


ЛокODBC.Открыть(Запрос);
~19 сек.
Пока ЛокODBC.След() = 1 Цикл
и т.д.

При методе
ТЗSQL = ЛокODBC.ВыполнитьИнструкцию(Запрос, , 1);
Запрос выполняется и начинается заполнение ТЗSQL и я не могу сказать время выполнения запроса т.к. 1С в это время висит

Т.е. 34 минуты занимает именно передача данных???
1CPP тут уже не виновата, это драйвер ODBC. Или у тебя сервер по 19200 подключен через компорт?

Кстати из Фака на sql.ru цитата:

Оказывается, при выполнении запроса сервер выдает записи клиенту (приложению) по очереди и по одной записи. Причем только "сверху вниз". Как только записи на сервере кончились, сервер сообщает клиенту об этом сигналом EOF вместо выдачи очередной записи. Конечно, в некоторых современных серверах есть произвольное позиционирование и проход по выборке не только сверху вниз но и в обратном порядке, но это требует от сервера достаточно больших ресурсов.

KARLSON писал(а) 29. Января 2007 :: 09:06:


я не про драйверы, я про серверы

KARLSON писал(а) 29. Января 2007 :: 09:05:

Очереденость данных задают индексы. Так что как ни крути тебе придется учить мат.часть 

Пошел учить мат часть...в IBExpert запрос делается не 19 секунд...
Если кто сможет помоч каким-нить советом буду очень благодарен. Т.к. сроки поджимают

SELECT
    ARTIKLS.ANUMB AS ARTICLE_PROF,
    ARTSVST.ASKL1 AS ARTICLE_SKLAD,
    ARTSVST.ASKL2 AS ARTICLE_1C,
    ARTIKLS.ANAME AS NOMNAME,
    ARTSVST.CLPRV AS TARIF_ED_IZM,
    COLSLST.CNAME AS CVET_TEKSTURI,
    COLSLST.CNAMP AS CVET_ARTICLE,
    ARTSVST.CLPRC AS TARIF_OSN_TEKSTURI,
    ARTSVST.CLPR1 AS TARIF_VNUTR_TEKSTURI,
    ARTSVST.CLPR2 AS TARIF_VNESHN_TEKSTURI,
    ARTSVST.CLPRA AS TARIF_DVUHSTORONNEY_TEKSTURI,
    GRUPART.MNAME AS NOMGRUPNAME,
    GRUPART.MUNIC AS GRUPUNICNOMER,
    ARTIKLS.NUNIC AS KATEGORYUNICNOMER,
    ARTIKLS.APREF AS KATEGORY,
    ARTIKLS.ANAMP AS NOMNAMECONTR,
    CORRENC.CNAME AS VALUTE,
    CASE
       WHEN ARTIKLS.ATYPI = 1 THEN 'ïîã.ì.'
       WHEN ARTIKLS.ATYPI = 2 THEN 'ì.êâ.'
       WHEN ARTIKLS.ATYPI = 3 THEN 'øò'
       WHEN ARTIKLS.ATYPI = 5 THEN 'êîìïë.'
       ELSE 'íåèçâåñòíî'
    END AS ED_IZM

      FROM COLSLST
      RIGHT OUTER JOIN ARTSVST ON (COLSLST.CNUMB = ARTSVST.CLNUM)
      RIGHT OUTER JOIN ARTIKLS ON (ARTSVST.ANUMB = ARTIKLS.ANUMB)
      LEFT OUTER JOIN CORRENC ON (ARTIKLS.CNUMB = CORRENC.CNUMB)
    LEFT OUTER JOIN GRUPART ON (ARTIKLS.MUNIC = GRUPART.MPREF)


Plan
PLAN JOIN (JOIN (JOIN (ARTIKLS NATURAL,JOIN (ARTSVST NATURAL,COLSLST NATURAL)),CORRENC NATURAL),GRUPART INDEX (RDB$PRIMARY8))

Adapted Plan
PLAN JOIN (JOIN (JOIN (ARTIKLS NATURAL,JOIN (ARTSVST NATURAL,COLSLST NATURAL)),CORRENC NATURAL),GRUPART INDEX (IGRUPART))

------ Performance info ------
Prepare time = 0ms
Execute time = 19s 531ms
Avg fetch time = 1 085,06 ms
Current memory = 753 304
Max memory = 843 240
Memory buffers = 2 048
Reads from disk to cache = 859
Writes from cache to disk = 0
Fetches from cache = 30 923 245