Имеем дбф-версию Торговли 7.7, есть документ "Заявка" с реквизитом "Адрес" (Тип-строка, длина-300). Этот реквиизит забивается через кладр. Нужно найти все раннее введенные заявки, с определенным адресом. Решил подучиться и написать запрос:

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

Запрос = База.СоздатьКоманду();

ТекстЗапроса = "
|SELECT
|Док.IDDoc as Док,
|$Док.Адрес as Адрес
|FROM
|$Документ.Заявка as Док
|WHERE
|$Док.Адрес = :Адрес2";
   
Запрос.УстановитьТекстовыйПараметр("Адрес2", Адрес);
Запрос.Отладка(1);
ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
ТЗ.ВыбратьСтроку();

Здесь "Адрес2" - определенный адрес.

В отладке следующее:

SELECT
   Док.IDDoc as Док,
  Док.sp56980 as Адрес
FROM
   dh56943 as Док
WHERE
   Док.sp56980 = ',428000,Чувашская Республика - Чувашия,,Чебоксары г,,Ильенко Г.А. ул,7,5,23'
ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
{Документ.Заявка.Форма.Модуль(186)}: FAILED! ICommandText::Execute(): Command contains unrecognized phrase/keyword.

1. Не могу понять в чем ошибка?
2. дбф-ка dh56943 содержит поле sp56980, которое в свою очередь содержит только индекс+регион+город (напр.: ,428000,Чувашская Республика - Чувашия,,Чебоксары г, ). А район, улица, д., кв. в других полях sp56981, sp56982... Получается, что условие из запроса
|WHERE
|$Док.Адрес = :Адрес2";
никогда не будет истинным, т.к неполно? Как тут быть?

В DD что про sp56981, sp56982 написано?

(0) используй like

(1) 2 вопрос отпал, sp56980 содержит полный адрес.

(2) like используется только в ADO или и в 1с++ можно использовать?

(4) Можно.

(4) ты не поверишь, но везде.

исправил запрос на:
|WHERE
|$Док.Адрес like :Адрес2";
   
Запрос.УстановитьТекстовыйПараметр("Адрес2", Адрес);

Ошибка та же самая. Подскажите синтаксис с like.

|$Док.Адрес like "+Адрес2+";

это не надо
Запрос.УстановитьТекстовыйПараметр("Адрес2", Адрес);

Т.е. |$Док.Адрес like "+Адрес+";

(7) а что в отладке?

исправил на:
ТекстЗапроса = "
   |SELECT
   |    Док.IDDoc as Док,
   |   $Док.Адрес as Адрес
   |FROM
   |    $Документ.Заявка as Док
   |WHERE
   |    $Док.Адрес like "+Адрес+";
   
   //Запрос.УстановитьТекстовыйПараметр("Адрес2", Адрес);

теперь при открытии документа Заявка ошибка:
|    $Док.Адрес like "+Адрес+";<<?>>
{Документ.Заявка.Форма.Модуль(179)}: Пропущен символ '"' (двойная кавычка)
|    $Док.Адрес like "+Адрес+";<<?>>
{Документ.Заявка.Форма.Модуль(179)}: Пропущен символ ';'

WHERE
   |    $Док.Адрес like '"+Адрес+"'";

(12) Пля ну ты как маленький

ТекстЗапроса = "
   |SELECT
   |    Док.IDDoc as Док,
   |   $Док.Адрес as Адрес
   |FROM
   |    $Документ.Заявка as Док
   |WHERE
   |    $Док.Адрес like "+Адрес;

(15) не взлетит

пля, поставил апострафы и кавычки:
|    $Док.Адрес like апостроф кавычка +Адрес+ кавычка апостроф кавычка;

дебаг такой:
SELECT
   Док.IDDoc as Док,
  Док.sp56980 as Адрес
FROM
   dh56943 as Док
WHERE
   Док.sp56980 like ',428000,Чувашская Республика - Чувашия,,Чебоксары г,,Ильенко Г.А. ул,7,5,23                                                                                                                                                                                                                                 '
ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
{Документ.Заявка.Форма.Модуль(187)}: FAILED! ICommandText::Execute(): Command contains unrecognized phrase/keyword.

как пробелы конечные убрать? хотя я конструкцию '"+Адрес+"'" не понимаю

WHERE
   |    $Док.Адрес like '"+СокрП(Адрес)+"'";

так, для начала:

|where like '%'+:Адрес+'%'
|";
Запрос.УстановитьТекстовыйПараметр("Адрес", Адрес);

(16) ну, у меня вот такая конструкция работает

SELECT
   Док.IDDoc as Док,
   Док.Адрес as Адрес
FROM
   $Документ.Заявка as Док
WHERE
   Док.Адрес like :Адрес2

WHERE $Док.Адрес like '%"+СокрП(Адрес)+"%'

+20
|where $Док.Адрес like '%'+:Адрес+'%'
|";
Запрос.УстановитьТекстовыйПараметр("Адрес", Адрес);

(20) а, блин, точно
:)

ТекстЗапроса = "
   |SELECT
   |    Док.IDDoc as Док,
   |   $Док.Адрес as Адрес
   |FROM
   |    $Документ.Заявка as Док
   |WHERE
   |where $Док.Адрес like '%'+:Адрес+'%'
   |";
   
   Запрос.УстановитьТекстовыйПараметр("Адрес", Адрес);

дебаг:
SELECT
   Док.IDDoc as Док,
  Док.sp56980 as Адрес
FROM
   dh56943 as Док
WHERE
where Док.sp56980 like '%'+',428000,Чувашская Республика - Чувашия,,Чебоксары г,,Ильенко Г.А. ул,7,5,23                                                                                                                                                                                                                                 '+'%'
ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
{Документ.Заявка.Форма.Модуль(189)}: FAILED! ICommandText::Execute(): Command contains unrecognized phrase/keyword.

(23) А если у него точное соответствие?

(25)
ТекстЗапроса = "
   |SELECT
   |    Док.IDDoc as Док,
   |   $Док.Адрес as Адрес
   |FROM
   |    $Документ.Заявка as Док
   |WHERE
   |where $Док.Адрес like '%' :Адрес '%'
   |";
   
   Запрос.УстановитьТекстовыйПараметр("Адрес", СокрЛП(Адрес));

ТекстЗапроса = "
   |SELECT
   |    Док.IDDoc as Док,
   |   $Док.Адрес as Адрес
   |FROM
   |    $Документ.Заявка as Док
   |WHERE
   |where $Док.Адрес like '%Адрес%'
   |";
   
   Запрос.УстановитьТекстовыйПараметр("Адрес", Адрес);

(25) ну ёпт.. WHERE лишний убери

(28) и ты тоже

(27) и ты..

:)

сорри, убрал, но то же самое

(27) не взлетит

(31) ы
:)

Непонимаю нафиг ему параметр устанавливать.

(33) без условия твой запрос хоть что-то выдаёт ?

(36) составные запросы зло, в них конструктор не работает.

(38) Конструкторы сами зло.

(37) без условия ошибка:
SELECT
   Док.IDDoc as Док,
  Док.sp56980 as Адрес
FROM
   dh56943 as Док
ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
{Документ.Заявка.Форма.Модуль(188)}: FAILED! ICommandText::Execute(): Cannot open file c:\временные\тест\1sbdb\dh56943.dbf.

ТекстЗапроса = "
|SELECT
|    Док.IDDoc as Док,
|    Док.Адрес as Адрес
|FROM
|    $Документ.Заявка as Док
|WHERE
|    Док.Адрес like '%'+:Адрес+'%'
|";
   
Запрос.УстановитьТекстовыйПараметр("Адрес", Адрес);

вот.

(39) ну почему, в снеговике, например, текст запроса форматируют.

(40) монопольно чтоле делаешь???

(40) ага, зачЁт.. с этого и надо было начинать.
Поди МонОпОльнО открытой базе запрос выполняешь ?
:))))))))))))))))))))))))

(40) внезапно :)

+41 тока забыл $ проставить на 2-х строчках...

(43) да, вери биг сорри=) я учусь пока

(47) пользуйся решением от hogik - и проблем с монопольной базой не будет.
Ну или пиши запросы на 1sqlite - там и синтаксис попроще и не нужно писать мегаконструкции для попадания в индекс.
Хотя фокс быстрее на некоторых запросах.

(47) и еще можешь тренироваться на 1CQA.ert

Напишите, пожалуйста, правильный вариант на точное соответствие адреса и что обозначают плюсы и % в записи
like '%'+:Адрес+'%'

(50)
http://msdn.microsoft.com/ru-ru/library/ms179859.aspx

(50) значит + это просто коннект строк

(52) какой догадливый..

Итак, остановился на:
ТекстЗапроса = "
   |SELECT
   |    Док.IDDoc as Док,
   |   $Док.Адрес as Адрес
   |FROM
   |    $Документ.Заявка as Док
   |WHERE
   |$Док.Адрес like '%Адрес%'";
   
   //Запрос.УстановитьТекстовыйПараметр("Адрес", Адрес);

Запрос.Отладка(1);
ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
Сообщить(ТЗ.КоличествоСтрок());

debug:
SELECT
   Док.IDDoc as Док,
  Док.sp56980 as Адрес
FROM
   dh56943 as Док
WHERE
Док.sp56980 like '%Адрес%'
0

Выходит, что количество строк равно нулю, хотя заявка с таким адресом есть. Что я не учел?

ТекстЗапроса = "
|SELECT
|    Док.IDDoc as Док,
|    $Док.Адрес as Адрес
|FROM
|    $Документ.Заявка as Док
|WHERE
|    $Док.Адрес like '%'+:Адрес+'%'
|";
   
Запрос.УстановитьТекстовыйПараметр("Адрес", СокрЛП(Адрес));

попробуй это

(55) все равно 0

(56) отладку покажи

+57 значит нет такого адреса

+57 и это, а без условия что то возвращает?

(57)SELECT
   Док.IDDoc as Док,
  Док.sp56980 as Адрес
FROM
   dh56943 as Док
WHERE
   Док.sp56980 like '%'+',428000,Чувашская Республика - Чувашия,,Чебоксары г,,Ильенко Г.А. ул,7,5,23'+'%'
0

(59)SELECT
   Док.IDDoc as Док,
  Док.sp56980 as Адрес
FROM
   dh56943 as Док
2173

(60)
1. без условия что?
2. условие такое: Запрос.УстановитьТекстовыйПараметр("Адрес", "Республика");
?

(61) а, ну значит нет такого адреса там: ",428000,Чувашская Республика - Чувашия,,Чебоксары г,,Ильенко Г.А. ул,7,5,23"

(61) проведен док с адресом
,428000,Чувашская Республика - Чувашия,,Чебоксары г,,Ильенко Г.А. ул,7,5,23
18.04.11

(64) а теперь открой файл dh56943 и посмотри, как хранятся данные.

+65 в колонке sp56980

(66) что интересно там так: ,428032,њєтр°ёър  •хёяєсышър - њєтр°ш ,,њхсюъёрЁ® у,,ђхэшэуЁрфёър  єы,12,,25

мож дело в кодировке, смотрю дбф через прогу "Просмотр DBF"

(67) а кодовая страница какая?

(67) с кодовой страницей разобрался, 1251

Запрос.Выполнить("EXECSCRIPT('SET ANSI OFF')");  
   // Устанавливаем время ожидания захвата таблиц , если во время выполнения запроса кто то проводит документы
   // Очень полезная функция - аналогична времени ожидания в 1С
   Запрос.Выполнить("EXECSCRIPT('SET REPROCESS TO 60 SECONDS')");
   // Убираем буфепизацию, чтобы данные возвращаемые запросам всегда были актуальны
   Запрос.Выполнить("EXECSCRIPT('SET REFRESH TO 0,-1')");    
   
   Запрос.Выполнить("Exec('SET TABLEVALIDATE TO 0')");// Отключили блокировки

(70) база тестовая, так что только я работаю в ней

(71) получаешь данные?

(48) я тоже как то эксперментировал с DBF и у меня прямые запросы работали дольше запросов на языке 1С. А выгрузитьитоги() так, вообще, на порядок быстрее запросов.
ИМХО в семерке запросы имеют смысл только для СКЛ.

(73) ой, вот только не надо...

(73) "гиви, у тэбя золотие рюки. только вот растют они из жёппы..."©

(73) Как тогда быстро найти нужные заявки, если
Имеем дбф-версию Торговли 7.7, есть документ "Заявка" с реквизитом "Адрес" (Тип-строка, длина-300). Этот реквиизит забивается через кладр. Нужно найти все раннее введенные заявки, с определенным адресом.
Обычный запрос долго пашет, общий реквизит документа или графа отбора не катят.

(76) не слушай его
:)

(72) не понял, что значит "получаешь данные?"

(76) так же как и в запросе, но перебором

(78) запрос работает? Данные, которые тебе нужны, ты получаешь?

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

все отбой, завтра со свежей головой еще раз подумаю

(75) покритикуй:


//    К сожалению, пока виртуальные таблицы в DBF версии вообще не работают. Поэтому запрос приведенный выше придется переписать в развернутый вид
   
ТекстЗапроса = "
|SELECT
|    $Рег.Номенклатура as [Название  $Справочник.Номенклатура] ,
|    $Рег.Фирма as [НаимФирмы  $Справочник.Фирмы],  
|    Цены.Цена as [Цена $Число],
|    $Рег.Количество AS КоличествоОстаток,    
|    $СпрЕдиниц.Штрихкод  AS Штрихкод
|FROM
|    $РегистрИтоги.ОстаткиТМЦ as Рег    
|    LEFT OUTER JOIN
|    $Справочник.Цены as СпрЦен
|     ON
|      $Рег.Номенклатура =  СпрЦен.ParentExt  AND  $СпрЦен.ТипЦен = :ТипЦен
//весь этот гемор(два запроса в запросе) чтобы получить значение периодического реквизита
|     LEFT JOIN (    
|              SELECT
|                Период.objid as objid,
|                  Период.value as Цена
|            FROM 1sconst as Период
|                WHERE
|          Период.date IN
|                            (SELECT
|                              MAX(Константа.date)
|                            FROM 1sconst as Константа
|                            WHERE
|                                (Константа.date <= :ВыбДата ~~)
|                                    AND (Константа.id = $ИсторияРеквизита.Цены.Цена)
|                                   AND (Константа.objid = Период.objid)
|                                )
|        AND Период.id = $ИсторияРеквизита.Цены.Цена
|      ) as Цены ON Цены.objid = СпрЦен.id      
//Конец Гемора с получением периодической цены  
|      LEFT JOIN
|        $Справочник.Единицы as СпрЕдиниц
|      ON
|       $Рег.Номенклатура =  СпрЕдиниц.ParentExt
|WHERE      
|    $Рег.Номенклатура NOT IN (SELECT Val FROM "+ИмяТаблицыНом+")
|     AND
|     $Рег.Фирма IN (SELECT Val FROM "+ИмяТаблицыФирм+")
|     AND
|     $Рег.Склад = :ВыбСклад
|";  

 //РАБОТАЕТ ЭТОТ ПРЯМОЙ ЗАПРОС ЕЩЕ МЕДЛЕНЕЕ ЗАПРОСА НА ВСТРОЕННОМ ЯЗЫКЕ 1С
       
   Запрос. УстановитьТекстовыйПараметр ("ВыбСклад",ВыбСкладНаФорме);
   Запрос. УстановитьТекстовыйПараметр ("ТипЦен",ВыбТипЦен);
   Запрос. УстановитьТекстовыйПараметр ("ВыбДата",ТекущаяДата());
   
Запрос.ВыполнитьИнструкцию(ТекстЗапроса,ТЗ);

(83) периодич реквизит, наверное, быстрее будет получать через сортировку и select top 1

(83) А $ПоследнееЗначение чем не угодило?

(85) это же DBF-база

(86)
А если так:
Текстзапроса="Select TOP 1 VALUE from _1SCONST(NOLOCK)
           |where ID='"+МетаДатаВорк.ИДРеквизитаСправочника("ВидыНалогов","Ставка")+"'
           |and OBJID = ? and
           |DATE<= ? order by DATE DESC, TIME DESC";

Вместо вопросов значения

(87)+ имя таблички поправь - это из скульной базы

цитирую: "Эффективное использование MSSQL при помощи ВК 1С"

в DBF версии в модуле проведения ЗАПРОСЫ НЕ РАБОТАЮТ! Т.к. при этом происходит начало транзакции и драйвер FoxPro не может ничего получить из базы.
Замечание от Uzhast:  На самом деле в модуле проведения запросы работают. Но есть тонкости:...

(87) см. (84)

Структуру данных адреса, если эта задача постоянная, надо переделывать:
1. могу ввести не по КЛАДРу.
2. КЛАДР - не догма, он меняется со временем.

Скорость получения остатков по регистру

цитирую:
"я тестировал при выгрузке ~35000 строк
выгрузитьостатки() - 1.7 сек
запрос.Выполнить() + Выгрузить() - 105 сек
...
Давно известный факт - выгрузка итогов быстрее запроса примерно в пять раз."

см. подробности в последнем и предпоследнем посте

(83,92) нет соединений с использованием индекса

(89) сто лет в обед выполняются запросы в дбф базе в модуле проведения, хоть с фоксом, хоть 1sqlite

(92) ВыгрузитьИтоги медленнее запроса в ДБФ варианте с правильным использованием индексов в тексте запроса.

(94) закеж пример!
Оно и в СКЛ пригодится, наверное.

(95) пример зависит от конкретной базы и от индексов, установленных на табличку итогов и движений регистра

а так, читай,:
http://www.1cpp.ru/forum/YaBB.pl?num=1184317705

(91) а есть идеи?