Процедура ЗагрКомпоненту()
    //Загружаем компоненту
    Если ЗагрузитьВнешнююКомпоненту(КаталогПрограммы() + "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С в это время висит