Есть код :
    
Соединение="
    |Provider=VFPOLEDB.1;
    |Null = Yes;
    |Exclusive = No;
    |SourceType = DBF;
    |Data Source=" + КаталогИБ() + ";
    |Mode=ReadWrite;
    |Extended Properties="""";
    |User ID="""";
    |Password="""";
    |Mask Password=False;
    |Collating Sequence=MACHINE;
    |DSN=""""";

//-- Попытка открыть базу данных через OLEDB

  Попытка
      OLEDB=СоздатьОбъект("OLEDBData");
      Рез=OLEDB.Соединение(Соединение);
      cmdOLEDB=OLEDB.СоздатьКоманду();
      Сообщить("Коннект");
  Исключение
    Предупреждение("Неудачная попытка открыть базу данных");
  КонецПопытки;
    
cmdOLEDB = OLEDB.СоздатьКоманду();

ТекстЗапроса = "
|Select
|    Док.IDDoc,
|    _1SJourn.IDDOCDEF,
|    _1SJourn.DOCNO,
|    _1SJourn.Date_Time_IDDoc
|FROM
|   $ДокументСтроки." + ВидДок.Идентификатор + " as Док
|INNER JOIN
|   _1SJourn ON _1SJourn.IDDoc = Док.IDDoc
|WHERE
|_1SJourn.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~
|";
            
            
    cmdOLEDB.УстановитьТекстовыйПараметр("НачДата", НачДата);
    cmdOLEDB.УстановитьТекстовыйПараметр("КонДата", КонДата);

        Попытка
        тз = cmdOLEDB.ВыполнитьИнструкцию(ТекстЗапроса);
        Исключение
            Сообщить("Запрос не выполнился!", "!");
        КонецПопытки;


При выполнении сообщает коннект и 1С падает.


Тоже самое при использовании 1СQA. Если в консольке набрать select * from 1sjourn , идет выполнения запроса (секунды 3) и падает 1С с сообщением RunTime Error.
Что может быть не так?

Date_Time_IDDoc   кажись нету такого поля в ДБФ. Есть отдельно Date и Time

Есть там такое поле http://www.script-coding.com/v77tables.html#1.2.4.
Но суть не в том , можна написать селект * и все равно вылет

(1) + и имя таблицы 1sjourn. Т.е. - без нижнего подчеркивания впереди. У тебя запрос для SQL на самом деле

(2)
по ссылке.

Это всё применительно к SQL.

В консольке 1sqa выбираю драйвер фокс
FAILED! ICommandText::Execute(): File '_1sjourn.dbf' does not exist.

А если писать 1sjourn.dbf запрос начинает выполнятся и 1С падает

select * from $Справочник.ТМЦ  - вылет

Драйвер отсюда http://uzhast.fatal.ru/vfpoledb/

(5) тебе же пишет, что файла с таким именем нету )))

в папке с базой у тебя нет такого файла! :)  У тебя есть файл 1sjourn.dbf.  Присмотрись ))

(8) Правильно ,я пишу 1sjourn без _
1с++ версии 3.2.3.19

Пример по удалению документов.  ЗАменить delete на select и будет просто отбор делать


    Соединение = "Provider=VFPOLEDB.1;
//                    |Deleted=Yes;
                |Data Source=" + ПутьБД + ";
                |Mode=ReadWrite;
                |Extended Properties="";
                |Exclusive = No;
                |User ID="";
                |Password="";
                |Mask Password=False;
                |Collating Sequence=RUSSIAN;
                |DSN=""";
    
    Для а=1 По Метаданные.Документ() Цикл
        
        ДокИД        = Метаданные.Документ(а).Идентификатор;

        ДокШапка    = мд.ИмяТаблицыШапки(ДокИД);
        ДокТабчасть = мд.ИмяТаблицыТабличнойЧасти(ДокИД);
        
        ПутьШапка    = ПутьБД + ДокШапка        +".dbf";
        ПутьТЧ        = ПутьБД + ДокТабчасть    +".dbf";
    
        Если ФС.СуществуетФайл(ПутьШапка) <> 0 Тогда
            DB        = СоздатьОбъект("OLEDBData");
            Рез        = DB.Соединение(Соединение);
            Запрос    = DB.СоздатьКоманду();
            Запрос.Отладка(флОтладка);
            Запрос.УстановитьТекстовыйПараметр("НачДата",НачДата);
            Запрос.УстановитьТекстовыйПараметр("КонДата",КонДата);
            ТЗ_Шапка = "
            |    delete
            |    from " + ДокШапка + "
            |    where
            |      " + ДокШапка+".iddoc in (
            |    select
            |      jr.iddoc as iddoc
            |    from
            |      1sjourn as jr
            |   where (jr.date BETWEEN :НачДата~~ AND :КонДата~~))
            |";
            Состояние("Удаляются документы: "+ДокИД+". Шапка");
            
            Попытка
                ТЗ = Запрос.ВыполнитьИнструкцию(ТЗ_Шапка);
            Исключение
                Сообщить("== Удаление шапки "+ДокИД+". Запрос не выполнен");
            КонецПопытки;
        КонецЕсли;
    
        Если ФС.СуществуетФайл(ПутьТЧ) <> 0 Тогда
            DB        = СоздатьОбъект("OLEDBData");
            Рез        = DB.Соединение(Соединение);
            Запрос    = DB.СоздатьКоманду();
            Запрос.Отладка(флОтладка);
            Запрос.УстановитьТекстовыйПараметр("НачДата",НачДата);
            Запрос.УстановитьТекстовыйПараметр("КонДата",КонДата);
            ТЗ_Табчасть = "
            |    delete
            |    from " + ДокТабчасть + "
            |    where
            |      " + ДокТабчасть+".iddoc in (
            |    select
            |      jr.iddoc as iddoc
            |    from
            |      1sjourn as jr
            |   where (jr.date BETWEEN :НачДата~~ AND :КонДата~~))
            |";
            Состояние("Удаляются документы: "+ДокИД+". Табличная часть");
            Попытка
                ТЗ = Запрос.ВыполнитьИнструкцию(ТЗ_Табчасть);
            Исключение
                Сообщить("== Удаление ТЧ: "+ДокИД+". Запрос не выполнен");
            КонецПопытки;
        КонецЕсли;
    КонецЦикла;

Сейчас попробую....

(10) Ваш запрос работает нормально, почему же в консольке не отрабатыват select * from $Справочник.ТМЦ ?

А вот select * from DH6431 работает нормально...

select * from 1SCONST за 6 сек  340000 строк

закрыл открыл 1с , тот же запрос призводит к вылету....
то еть работает через раз...

1. поставить православный vfp
http://www.microsoft.com/downloads/details.aspx?FamilyId=E1A87D8F-2D58-491F-A0FA-95A3289C5FD4&displaylang=en

2.убрать провайдер от ужаста, если нужны запросы в монопольке, использовать это:
http://infostart.ru/public/16268/

3. строка подключения должна быть такой :

    ОлеДБ = СоздатьОбъект("OLEDBData");
    Соединение = "Provider=VFPOLEDB.1;Data Source=" + КаталогИБ() + ";Mode=ReadWrite;Collating Sequence=MACHINE";
    Рез = ОлеДБ.Соединение(Соединение);
    Запрос = ОлеДБ.СоздатьКоманду();
    Запрос.Выполнить("EXECSCRIPT('SET ANSI OFF')");  
    Запрос.Выполнить("EXECSCRIPT('SET REPROCESS TO 60 SECONDS')");
    Запрос.Выполнить("EXECSCRIPT('SET REFRESH TO 0,-1')");    
    Запрос.Выполнить("Exec('SET TABLEVALIDATE TO 0')");
4. чтобы запрос быстро отрабатывал, читаем тут
http://www.1cpp.ru/forum/YaBB.pl?num=1184317705/30#31
http://www.1cpp.ru/forum/YaBB.pl?num=1184317705

5. наслаждайся

(16) Попробуем, спасибо.

Проблема осталась, 1 раз работает нормально, потом вылет, реиндексация, опять работает или опять вылет...Ничего не понятно......

переустановка vfp и ребут компа

ну и не видно, как и че ты запущаешь и какие запросы выполняешь, какой зоопарк из вк стоит ит .д

Зоопарк :

    ЗагрузитьВК("1CPP.dll");
    Настройки=СоздатьОбъект("УправлениеНастройками");
    Настройки.Сбросить("Проверка типов");
    Настройки.Сбросить("Отладка");  
    Настройки.Включить("Оптимизация");  
    Настройки.Включить("TurboBL");  
    Настройки.Включить("ПерехватитьСобытияГК");    


    ЗагрузитьВК("1sqlite.dll");
    ЗагрузитьВК("FormEx.dll");
    ЗагрузитьВК("TurboMD.dll");
    ЗагрузитьВК("SpreadSheet.dll");
    ЗагрузитьВК("MiracleV8.dll");
    ЗагрузитьВК("RWidjets.dll");
    ЗагрузитьВК("ROM-Mail.dll");
    ЗагрузитьВК("DialMail.dll");
    ЗагрузитьВК("OpenXML.dll");
    ЗагрузитьВК("Tracer1C.dll");
//    ЗагрузитьВК("dynwrapx.dll");

Запрос select * from 1SCONST работает через раз

ну а так че ?

    Попытка
        база = СоздатьОбъект("SQLiteBase");
    Исключение
        ЗагрузитьВнешнююКомпоненту("1sqlite.dll");
        база = СоздатьОбъект("SQLiteBase");
    КонецПопытки;
    база.Открыть(":memory:");
    запрос = база.НовыйЗапрос();    
           запрос.ВыполнитьЗапрос("select * from [Журнал]").ВыбратьСтроку();

(22) Через 1sqlite не пробовал , хочу уже с этим VFP разобраться....

в классе ПрямойЗапрос есть возможность сделать DELETE записей из табличек?

класс прямой запрос в топку, учись писать запросы без него

(25) ну.. это можно рассматривать как деградацию + одну из ступеней перехода на снеговика с его "прямыми" запросами.. ;-)

на счет vfp - всё написано в (15).
1sqlite не способен на delete/insert/update/запрос к чужой базе, тут только запрос на оледб.

(19) Пока перезагрузку не могу сделать (работают юзвери), но есть новая ошибка:
Не найден ключ реестра с данным класидомHKCR\oledbdata\CLSID\ для объекта: oledbdata
Прог-ид oledbdata не найден в реестре и помечен как обработанный для исключения повторной генерации.
Ошибка генерации файлов по прог-иду: oledbdata

На демо конфигурации Комплексная отрабатывают любые запросы в консольке ...

Как оптимизировать запрос ?
Код :
    ТекстЗапроса = "
    |Delete
    |    Пров
    |FROM
    |   1SENTRY as Пров
    |WHERE
    | (Пров.docid in (
    |    select
    |      jr.iddoc as iddoc
    |    from
    |      1sjourn as jr
    |   where (jr.date BETWEEN :НачДата~~ AND :КонДата~~) AND " + УсловиеПоВидамДок() + "))
    |
    |";  
    

    рс.УстановитьТекстовыйПараметр("НачДата", НачДата);
    рс.УстановитьТекстовыйПараметр("КонДата", КонДата);
    
    Попытка
        рс.ВыполнитьИнструкцию(ТекстЗапроса);
        Сообщить("...проводки удалены");
    Исключение
        Сообщить("Запрос по проводкам документов не выполнился!", "!");
        Сообщить("Ош "+ОписаниеОшибки());
    КонецПопытки;

Или так, есть процедура очистки базы прямым запросом
Код:


//*******************************************
Процедура Удалить()
    
    
    ОлеДБ = СоздатьОбъект("OLEDBData");
    Соединение = "Provider=VFPOLEDB.1;Data Source=" + КаталогИБ() + ";Mode=ReadWrite;Collating Sequence=MACHINE";
    Рез = ОлеДБ.Соединение(Соединение);
    Сообщить("Рез "+Рез);
    рс = ОлеДБ.СоздатьКоманду();
    рс.Выполнить("EXECSCRIPT('SET ANSI OFF')");  

    рс.Выполнить("EXECSCRIPT('SET REPROCESS TO 60 SECONDS')");
    рс.Выполнить("EXECSCRIPT('SET REFRESH TO 0,-1')");    
    рс.Выполнить("Exec('SET TABLEVALIDATE TO 0')");
    рс.Отладка(1);
    
    Сообщить("Обработка таблиц документов");
    
    Для Счетчик = 1 По Докум.РазмерСписка() Цикл //по таблицам документов
        
        Если Докум.Пометка(Счетчик) = 0 Тогда
            Продолжить;
        КонецЕсли;
        
        ВидДок = Докум.ПолучитьЗначение(Счетчик);
        
        Сообщить(" ..." + ВидДок + "...");
        
        Состояние("...удаляются строки документов...");
        
        ТекстЗапроса = "
            |Delete
            |    Док
            |FROM
            |   $ДокументСтроки." + ВидДок.Идентификатор + " as Док
            |   where Док.iddoc in (
            |    select
            |      jr.iddoc as iddoc
            |    from
            |      1sjourn as jr
            |   where (jr.date BETWEEN :НачДата~~ AND :КонДата~~))
            |";  
            
            
        рс.УстановитьТекстовыйПараметр("НачДата", НачДата);
        рс.УстановитьТекстовыйПараметр("КонДата", КонДата);
        
        Попытка
            рс.ВыполнитьИнструкцию(ТекстЗапроса);
            Сообщить("...строки удалены");
        Исключение
            Сообщить("Запрос по строкам документов вида " + ВидДок.Идентификатор + " не выполнился!", "!");
            Сообщить("ош  "+ОписаниеОшибки());
        КонецПопытки;
    
        Состояние("...удаляются шапки документов...");
        
        ТекстЗапроса = "
            |Delete
            |    Док
            |FROM
            |   $Документ." + ВидДок.Идентификатор + " as Док
            |   where Док.iddoc in (
            |    select
            |      jr.iddoc as iddoc
            |    from
            |      1sjourn as jr
            |   where (jr.date BETWEEN :НачДата~~ AND :КонДата~~))
            |";  
        
        рс.УстановитьТекстовыйПараметр("НачДата", НачДата);
        рс.УстановитьТекстовыйПараметр("КонДата", КонДата);
        
        Попытка
            рс.ВыполнитьИнструкцию(ТекстЗапроса);
            Сообщить("...шапки удалены");
        Исключение
            Сообщить("Запрос по шапкам документов вида " + ВидДок.Идентификатор + " не выполнился!", "!");
        КонецПопытки;
        
    КонецЦикла; //по табоицам документов
    
    Состояние("");
    Сообщить("Обработка таблиц регистров");
    //
    Для СчетчикРег = 1 По спРегистров.РазмерСписка() Цикл //по таблицам регистров
        
        ВидРег = спРегистров.ПолучитьЗначение(СчетчикРег);
    
        Сообщить("..." + ВидРег + "...");
    
        ТекстЗапроса = "
        |Delete
        |    Рег
        |FROM
        |   $Регистр." + ВидРег.Идентификатор + " as Рег
        |WHERE Рег.iddoc in (
            |    select
            |      jr.iddoc as iddoc
            |    from
            |      1sjourn as jr
            |   where (jr.date BETWEEN :НачДата~~ AND :КонДата~~) AND " + УсловиеПоВидамДок() + ")
        |  
        |
        |    
        |";  
        
        рс.УстановитьТекстовыйПараметр("НачДата", НачДата);
        рс.УстановитьТекстовыйПараметр("КонДата", КонДата);
        Попытка
            рс.ВыполнитьИнструкцию(ТекстЗапроса);
            Сообщить("...движения удалены");
        Исключение
            Сообщить("Запрос по регистру вида " + ВидРег + " документов вида " + ВидДок.Идентификатор + " не выполнился!", "!");
        КонецПопытки;
        
    КонецЦикла; //по таблицам регистров
    
    //смотрим общие таблицы по всем видам
    
    Сообщить("Обработка общих таблиц");
    
    Сообщить(" ...удаляются проводки...");
    
    ТекстЗапроса = "
    |Delete
    |    Пров
    |FROM
    |   1SENTRY as Пров
    |WHERE
    | (Пров.docid in (
    |    select
    |      jr.iddoc as iddoc
    |    from
    |      1sjourn as jr
    |   where (jr.date BETWEEN :НачДата~~ AND :КонДата~~) AND " + УсловиеПоВидамДок() + "))
    |
    |";  
    

    рс.УстановитьТекстовыйПараметр("НачДата", НачДата);
    рс.УстановитьТекстовыйПараметр("КонДата", КонДата);
    
    Попытка
        рс.ВыполнитьИнструкцию(ТекстЗапроса);
        Сообщить("...проводки удалены");
    Исключение
        Сообщить("Запрос по проводкам документов не выполнился!", "!");
        Сообщить("Ош "+ОписаниеОшибки());
    КонецПопытки;
        
    Сообщить(" ...удаляются периодические реквизиты, заполняемые документами...");
    
    ТекстЗапроса = "
        |Delete
        |    Конст
        |FROM
        |   1SCONST as Конст
        |WHERE (Конст.docid in (
        |    select
        |      jr.iddoc as iddoc
        |    from
        |      1sjourn as jr
        |   where (jr.date BETWEEN :НачДата~~ AND :КонДата~~) AND " + УсловиеПоВидамДок() + "))
        |";  
        

    рс.УстановитьТекстовыйПараметр("НачДата", НачДата);
    рс.УстановитьТекстовыйПараметр("КонДата", КонДата);
    
    Попытка
        тз = рс.ВыполнитьИнструкцию(ТекстЗапроса);
        Сообщить("...периодика удалена");
    Исключение
        Сообщить("Запрос по периодике не выполнился!", "!");
        Сообщить("Ош "+ОписаниеОшибки());
    КонецПопытки;
    //
    Сообщить(" ...удаляются перекрестные ссылки...");
        
    ТекстЗапроса = "
        |DELETE
        |    Док
        |FROM
        |    1scrdoc as Док
        |
        |WHERE (SUBSTR(Док.ParentVal, 7, 9) in (
        |    select
        |      jr.iddoc as iddoc
        |    from
        |      1sjourn as jr
        |   where  " + УсловиеПоВидамДок() + ")) AND Док.childdate BETWEEN :НачДата~~ AND :КонДата~~
        |
        |";
    
    рс.УстановитьТекстовыйПараметр("НачДата", НачДата);
    рс.УстановитьТекстовыйПараметр("КонДата", КонДата);
    
    Попытка
        рс.ВыполнитьИнструкцию(ТекстЗапроса);
        Сообщить("...перекрестные ссылки удалены");
    Исключение
        Сообщить("Запрос по перекрестным ссылкам и графам отбора не выполнился!", "!");
    Сообщить("Ош "+ОписаниеОшибки());
    КонецПопытки;
    //    
    Сообщить(" ...удаляются операции...");
        
    ТекстЗапроса = "
        |DELETE
        |    Док
        |FROM
        |    1soper as Док
        |
        |WHERE Док.DocID in (
        |    select
        |      jr.iddoc as iddoc
        |    from
        |      1sjourn as jr
        |   where  " + УсловиеПоВидамДок() + ") AND Док.Date BETWEEN :НачДата~~ AND :КонДата~~
        |
        |";
    
    рс.УстановитьТекстовыйПараметр("НачДата", НачДата);
    рс.УстановитьТекстовыйПараметр("КонДата", КонДата);
    
    Попытка
        рс.ВыполнитьИнструкцию(ТекстЗапроса);
        Сообщить("...операции удалены");
    Исключение
        Сообщить("Запрос по таблице операций не выполнился!", "!");
    Сообщить("Ош "+ОписаниеОшибки());
    КонецПопытки;
    //
    Сообщить(" ...удаляются ссылки из журнала документов...");
    
    ТекстЗапроса = "
        |Delete
        |    jr
        |FROM
        |   1SJourn as jr
        |WHERE " + УсловиеПоВидамДок() + "
        |    AND
        |    jr.date BETWEEN :НачДата~~ AND :КонДата~~
        |";  
        
    рс.УстановитьТекстовыйПараметр("НачДата", НачДата);
    рс.УстановитьТекстовыйПараметр("КонДата", КонДата);
    
    Попытка
        рс.ВыполнитьИнструкцию(ТекстЗапроса);
        Сообщить("...ссылки удалены");
    Исключение
        Сообщить("Запрос по ссылкам документов не выполнился!", "!");
    Сообщить("Ош "+ОписаниеОшибки());
    КонецПопытки;
    
    
    
    Предупреждение("Обработка закончена!");
    
КонецПроцедуры  

Где можно оптимизировать запросы ?Проводки и ссылки удаляются очень долго.

читать это
http://www.1cpp.ru/forum/YaBB.pl?num=1184317705

и переписывать запросы под попадание в индекс

(32) Интересует табличка 1SENTRY. Есть еще проблемка, если журнал цеплять через иннер джоин то VFP ругается Function name is missing.Может мое условие
   |Delete
    |    Пров
    |FROM
    |   1SENTRY as Пров
    |WHERE
    | (Пров.docid in (
    |    select
    |      jr.iddoc as iddoc
    |    from
    |      1sjourn as jr
    |   where (jr.date BETWEEN :НачДата~~ AND :КонДата~~) AND " + УсловиеПоВидамДок() + "))
    |
    |";  

можно переписать оптимальней?

(33) ":НачДата~~ "
Вы такой синтаксис где откопали?

(34) тут http://www.1cpp.ru/forum/YaBB.pl
и тут   http://www.forum.mista.ru/index.php?section=v7

(35) А конкретней? В списке форумов предлагаете искать?
На каком языке этот код? Для какого драйвера этот код?

(36) Все описано выше : VFPOLEDB на DBF базе прямой запрос 1С++

(36) Сейчас читаю про попадание в индекс, например:

Например мы хотим выбрать документы из 1SJOURN за период .
Подходящий индекс – ACDATETIM (дата/время) : «DTOS(date)+time+iddoc»
Если использовать
Код:

|WHERE    Жур.Date BETWEEN :НачДата~~ AND :КонДата~~


то оптимизатор не найдет индекса, так как «Жур.Date»  не соответствует «DTOS(date)+time+iddoc»
    К счастью FoxPro поддерживает упорядочение строк – и можно использовать оператор          BETWEEN .
Длина строки «time+iddoc» равна 15.
Определим переменные МинСтрока= "               "
                                        МаксСтрока= "ZZZZZZZZZZZZZZZ"
Собственно условие
Код:

WHERE   DTOS(date)+time+iddoc BETWEEN (DTOS(:НачДата~~)+'           ') AND (DTOS(:КонДата~~)+'ZZZZZZZZZZZZZZZ')


(для простоты переменные МинСтрока и МаксСтрока не используются)

(34) че не устраивает ?

(39) Зайдем с другой стороны. Что еще пишет в сообщении об ошибке кроме Function name is missing? На какую строку ругается?

вот.. кусок кода
    мд = СоздатьОбъект("MetaDataWork");
    Для ном = 1 по Метаданные.Регистр() Цикл
        Рег = Метаданные.Регистр(ном);
        Состояние("движуха регистра "+Рег.Идентификатор);
        Сообщить("движуха регистра "+Рег.Идентификатор,"i");
        
        Если Рег.БыстраяОбработкаДвижений =0 Тогда
            стр ="
            |DELETE
            |FROM $Регистр."+Рег.Идентификатор+"
            |WHERE iddoc in (select Жур.iddoc from 1sjourn Жур where
            |
            |dtos(Жур.date)+Жур.time+Жур.iddoc between (dtos(:НачДата~~)+'      '+'         ')  and  (dtos(:КонДата~~)+'ZZZZZZ' + 'ZZZZZZZZZ')
            |)
            |";
        Иначе
            стр ="
            |DELETE
            |FROM $Регистр."+Рег.Идентификатор+"
            |    WHERE
            |        DTOS(date)+time+iddoc+STR(lineno,4)+STR(actno,6) BETWEEN
            |         DTOS(:НачДата~~)+'      '+'         '+'    '+'      '
            |     And DTOS(:КонДата~~)+'ZZZZZZ'+'ZZZZZZZZZ'+'ZZZZ'+'ZZZZZZ'    
            |
            |";
        КонецЕсли;            
        Запрос.УстановитьТекстовыйПараметр("НачДата", '01.01.80');
        Запрос.УстановитьТекстовыйПараметр("КонДата", ВыбДата);
            
            
            
        Если Запрос.ВыполнитьИнструкцию(стр) = 0 Тогда
            Сообщить("движуха регистра "+Рег.Идентификатор,"!!!");
        КонецЕсли;

А тебе.. можно запихать выборку доков во временную табличку и соединять потом везде в делете

(41) dtos(:НачДата~~) в сочетании с УстановитьТекстовыйПараметр("НачДата", '01.01.80') - чушь, приводящая к ругани на несоответствие типов. К тому же, '01.01.80' есть большие грабли в деле правильного понимания драйвером сего безобразия.

(41) Добавчик: а Жур.date у нас какого типа?

(43) ты не в теме

(45) Я очень даже в теме VFPOLEDB на DBF.
VFPOLEDB на dtos() со строковым параметром будет ругаться на несоответствие типов.

(45) Изучай:

Visual FoxPro 9.0 Справка по языку  
Функция DTOS( )  
См.также  Пример  

Свернуть все  




Возвращает дату в виде символьной строки формата ггггммдд из заданного выражения типа "дата" (Date) или "дата-время" DateTime.





DTOS(dExpression | tExpression)



Параметры
dExpression

Указывает выражение типа "дата" для преобразования посредством функции DTOS( ) в строку из восьми цифр. tExpression

Указывает выражение типа "дата-время" для преобразования посредством функции DTOS( ) в строку из восьми цифр.
Возвращаемое значение


Символьное

Примечания


Эта функция полезна для индексирования таблиц, содержащих поля типа "дата" и "дата-время". Она равнозначна функции DTOC( ) для случая, когда указывается первый необязательный аргумент.

Вид и содержимое символьной строки, возвращаемой функцией DTOS( ), не зависит от установок SET DATE или SET CENTURY.

(46) :)

Продолжай дальше изучение справки по vfp

(40) Запрос >>> OLEDBCommand error:
FAILED! ICommandText::Execute(): Function name is missing ).

(49) Спасибо, но в таких рекомендациях не нуждаюсь. Эту справку и так почти наизусть знаю.

(41) В чем разница Если Рег.БыстраяОбработкаДвижений =0 Тогда

(52) в табличке движений регистра будут доп поля - не надо будет делать соединение с журналом (аналогично будут поля, ежели стоит галка на одном из измерений регистра)

(50) М-да, очень информативно. Но видно, что стоит закрывающая скобка, которой не найдено соответствие.

для проводок, нужно задействовать этот индекс
DTOS(DATE)+TIME+DOCID+STR(NUMBER,5)+STR(CORNO,5)

(51) и как помогает ?

в УсловиеПоВидамДок

у тя там че хоть ?

Ты не у всех документов режешь движуху ?

(57) Движуху надо оставить по банк.випис. и зарплатная часть

//*******************************************
Функция УсловиеПоВидамДок()
    
    СтрокаУсловия = "(";
    
    СчетчикВыбраных = 0;
    Для СчетчикДок = 1 По Докум.РазмерСписка() Цикл //перебираем таблицы документов
        
        Если Докум.Пометка(СчетчикДок) = 0 Тогда
            Продолжить;
        КонецЕсли;
        
        СчетчикВыбраных = СчетчикВыбраных + 1;
        
    КонецЦикла;
        
    Для СчетчикДок = 1 По Докум.РазмерСписка() Цикл //перебираем таблицы документов
        
        Если Докум.Пометка(СчетчикДок) = 0 Тогда
            Продолжить;
        КонецЕсли;
        
        ВидДок = Докум.ПолучитьЗначение(СчетчикДок);
        
        СтрокаУсловия = СтрокаУсловия + "jr.IDDOCDEF = $ВидДокумента." + ВидДок.Идентификатор;
        СчетчикВыбраных = СчетчикВыбраных - 1;
        
        Если СчетчикВыбраных = 0 Тогда
            СтрокаУсловия = СтрокаУсловия + ")";
        Иначе
            СтрокаУсловия = СтрокаУсловия + "
            |    OR ";
        КонецЕсли;
            
    КонецЦикла;
    
    Возврат СтрокаУсловия;
    
КонецФункции

(55) Чем можно смотреть какой индекс используется у какай таблички?

(56) Ага, особенно в поисках ошибок в чужом коде.

(50) select Пров.TIME FROM 1SENTRY as Пров
INNER JOIN
   1SJourn ON 1SJourn.IDDoc = Пров.DocID
WHERE 1SJourn.Date BETWEEN :НачДата AND :НачДата~


Запрос >>> OLEDBCommand error:
FAILED! ICommandText::Execute(): Command contains unrecognized phrase/keyword.

(59) Ничем. В фоксе нет такого средства. Но есть возможность посмотреть уровень оптимизации. SYS(3054). Но для этого запрос надо отлаживать в фоксе, и только потом готовый запрос тащить в другие системы.

(61) Разумеется ругается. Он не знает что такое  :НачДата

(61)
select
Пров.TIME
FROM 1SENTRY as Пров
INNER JOIN
   1SJourn as Жур ON Жур .IDDoc = Пров.DocID
WHERE Жур .Date BETWEEN :НачДата~~ AND :НачДата~~

(62) :)))))))))))))))))))))))))))))))))))))

только вот, соединение с журналом в этом запросе лишнее + нет попадания в индекс

(65) Ну вот и прелестно, хоть кому-то я жизнь скрасил.

(67) месье не знает как посмотреть индексы на табличку ?

(68) Мсье знает как посмотреть индексы на табличку, но вопрос был про использование индексов в запросе, а это сильно разные вещи.

(68) кто то походу троллит тебя :)

(31) Лучше переписать через INNER JOIN с журналом или оставить как есть только попадать в индекс.Что бістрее отработает?

(64) Так работает.Спасибо.

(63) Все он знает. 1sqa если что....

(73) Не всё. Найдите отличия между :НачДата~~ и :НачДата

(71) Что быстрее отработает поможет узнать тестовый прогон запросов.

(74) {d '2001-01-01'}, '20010101'
дальше бум тупить, или как ?

(75) что быстрее работает, покажет план выполнения запроса

и о чудо, его тоже можно смотреть в дбф базах.. если че

(72) см. (66)

в этом запросе, можно выкинуть соединение с журналом и воткнуть условие на дату из проводки

(76) И что? Первое вообще не пойми что, второе - строка, которая может быть получена от функции dtos() при передаче ей значения типа ДАТА, например {^2001-01-1}.

(78) его - это ЧТО?

ТекстЗапроса = "
    |Delete
    |    Пров
    |FROM
    |   1SENTRY as Пров
    |WHERE
    | Пров.docid in (
    |    select
    |      jr.iddoc as iddoc
    |    from
    |      1sjourn as jr
    |where DTOS(jr.date)+jr.time+jr.iddoc BETWEEN (DTOS(:НачДата~~)+'               ') AND (DTOS(:КонДата~~)+'ZZZZZZZZZZZZZZZ') AND " + УсловиеПоВидамДок() + ")
    |
    |
    |";
    
В журнале ведь индекс DTOS(date)+time+iddoc  , почему нету прироста по скорости?

(78) Или под словом "его" имеется в виду план запроса? Если так, то разочарую - в фоксе нет понятия "план запроса", впрочем, как нет и понятия "дбф база" :)

(82) "ведь индекс DTOS(date)+time+iddoc  , почему нету прироста по скорости?"
Потому, что, как минимум, наличие какого-то индекса не гарантирует его использования.

(82)
что в УсловиеПоВидамДок ?

(85) WHERE (jr.IDDOCDEF = ' E7L')

(86) там всегда 1 вид документа ?
или что ?

УсловиеПоВидамДок() покажи код функции

(83) та ты шо

(87) Нет, пока пробую на копии базы то 1 . А потом будет порядка 20-и

через OR

(87) Cvjnhb (58)

(90) и зачем это всё ?
Зачем в этом запросе ограничение по виду ?
Это свёртка же, там нужно у всех доков проводки выкидывать

если у двух документов нужно оставить, то так тогда хотя бы

and not in ($ВидДокумента.ПервыйДок,$ВидДокумента.ВторойДок)
но никак не or

(93) Ну назовем это неполная свертка, нужно несколько видов доков оставить с проводками, движухой и т.д.Такая вот тупая задача.Незнаю как бухи будут сводить остатки....

Сейчас запускал чистку за 1 день по виду док. приходная.Время выполнения 45 сек причем 33 из них это чистка 1ссентри

(89) Сильный аргумент. :) Лучше ссылочку на доку по планам запросов в фоксе кинул для изучения, может где мимо меня промелькнула?

(96) http://www.1cpp.ru/forum/YaBB.pl?num=1210677779/15

даже фокс не нужен, только некоторое файло с него

(98) "ЗЫ... Нужны VFP9 Run-Time Libraries " А это уже перестало быть фоксом? :) Учите матчасть. :)

(98) И что-то про планы запросов не наблюдаю ничего? Куда смотреть?

(99) читать то умеешь, али как ?

(101) Аргументировать то можешь или как? Пруф на планы запросов в фоксе в студию.

чем тебя (97) не устраивает ?

(103) Тем, что там нет ничего про планы запросов.

ну и для тех, у кого не установлен фокс, читаем это:
http://www.1cpp.ru/forum/YaBB.pl?num=1210677779/27#27

(105) Ну и где там про планы запросов. Где взять и как работать с рантаймом фокса я сам поучить могу. Где планы запросов, ткни меня носом.

(105) А, ты повелся на Execute_PLAN? Наивный... :) Нет и не может там быть плана ибо его нет в природе. Там всего лишь вывод в файл результата работы уже упомянутой функции Sys(3054). А это ни разу не план, в нем нет информации по используемым индексам и т.д. Там есть уровень оптимизации и не более того.

(107) спасибо, я в курсе

а на счет индексов - всё там будет написано

будет написано какой задействован индекс и какой уровень оптимизации

этого более чем достаточно в данном вопросе.

(109) Не будет. Уровень оптимизации указывается всего тремя словами: full, partial, none. Всё!

Кстати, о птичках. Так как в данной теме обсужадется получение данных из дбф-файлов 1С версии 7.*, то могу огорчить еще одним сообщением.
Для того, что бы индеккс использовался, нужно чтобы он был открыт во время выполнения запроса. Отрываться он может и автоматом при открытии таблицы, но для этого он должен быть создан соотвествующим образом. А вот это с указанными файлами еще надо проверить. Хоть в 1с у индексных фалов и стоИт расширение CDX, то еще не факт, что в дбф-файлах стоИт соттвествующий признак. А без него что есть индексы, что их нет - без разницы.

(110) Не будет. Нет там указания на индекс.

Статью из хелпа показать?

(113)
http://support.microsoft.com/default.aspx?scid=kb;EN-US;156551

using index... не о чем не говорит вам ?

(115) Дата поста и версия фокса ничего не говорят?

(116) в 9.2 я вижу тоже самое, если что , используя поделку из форума 1cpp

(117) 9.2? Это что? Версия фокса? Или чего-то еще? Если фокса, то где откопал? Или ты так второй сервиспак обзываешь? Так после него еще паки были.

да sp2