через OLEDBData. У кого есть пример? Скиньте пож-та

у меня на предложение "TOTALS SUM(Себест), SUM(ПродСтоимость), SUM(Количество), SUM(СебестВ), SUM(ПродСтоимостьВ), SUM(КоличествоВ)
BY Фирма, Покупатель, Поставщик, Номенклатура"
ругается

group by

(2) group by - это другое. Мне нужен подсчет итогов по полям в (1)

Подсчет итога по себестоимости

select sum(себестоимость)
, товар
from ...
group by товар

ты предлагаешь объединения делать с основным запросом? Это не оч. удобно

я как раз и хотел от этого отойти

Я не вижу запрос, вот старый отчет для примера:

http://www.itland.ru/forum/index.php?showtopic=13339&st=15

(7) сенк, конечно, но не то, что я хотел :(  Видимо на фоксе TOTALS нету

(8) Ну это легко проверить :)

http://msdn.microsoft.com/en-us/library/80x51c04(v=vs.80).aspx

Временные таблицы в запросе
(аналог поместить 8)
http://www.1cpp.ru/forum/YaBB.pl?num=1188673318

делаю


EXECSCRIPT('SELECT  * INTO CURSOR TmpTable1 NOFILTER from (
SELECT
   SUM(РегПродажа_04_4.SP2222) as Себест,
   SUM(РегПродажа_04_4.SP2223) as ПродСтоимость,    
  SUM(РегПродажа_04_4.SP2224) as Количество,
   SUM(РегПродажа_04_4.SP2225) as СебестВ,
   SUM(РегПродажа_04_4.SP2226) as ПродСтоимостьВ,
   SUM(РегПродажа_04_4.SP2227) as КоличествоВ,

   СпрФирмы_04_4.DESCR as Фирма,

   СпрКонтр_04_4.DESCR as Покупатель,

   СпрКонтрП_04_4.DESCR as Поставщик,

   СпрНомен_04_4.DESCR as Номенклатура
FROM
   _RA2228_04 as РегПродажа_04_4
   LEFT JOIN _1SJOURN_04 as Журн_04_4 ON РегПродажа_04_4.IDDOC = Журн_04_4.IDDOC
   LEFT JOIN _SC156_04 as СпрНомен_04_4 ON РегПродажа_04_4.SP2218 = СпрНомен_04_4.ID
   LEFT JOIN _SC134_04 as СпрКонтр_04_4 ON РегПродажа_04_4.SP2219 = СпрКонтр_04_4.ID
   LEFT JOIN _SC134_04 as СпрКонтрП_04_4 ON РегПродажа_04_4.SP2220 = СпрКонтрП_04_4.ID
   LEFT JOIN _SC331_04 as СпрФирмы_04_4 ON РегПродажа_04_4.SP2221 = СпрФирмы_04_4.ID
WHERE Журн_04_4.DATE BETWEEN :НачДата~~ AND :КонДата~~


GROUP BY Фирма,Покупатель,Поставщик,Номенклатура

UNION ALL

SELECT
   SUM(РегПродажа_Old_4.SP2222) as Себест,
   SUM(РегПродажа_Old_4.SP2223) as ПродСтоимость,    
  SUM(РегПродажа_Old_4.SP2224) as Количество,
   SUM(РегПродажа_Old_4.SP2225) as СебестВ,
   SUM(РегПродажа_Old_4.SP2226) as ПродСтоимостьВ,
   SUM(РегПродажа_Old_4.SP2227) as КоличествоВ,

   СпрФирмы_Old_4.DESCR as Фирма,

   СпрКонтр_Old_4.DESCR as Покупатель,

   СпрКонтрП_Old_4.DESCR as Поставщик,

   СпрНомен_Old_4.DESCR as Номенклатура
FROM
   _RA2228_Old as РегПродажа_Old_4
   LEFT JOIN _1SJOURN_Old as Журн_Old_4 ON РегПродажа_Old_4.IDDOC = Журн_Old_4.IDDOC
   LEFT JOIN _SC156_Old as СпрНомен_Old_4 ON РегПродажа_Old_4.SP2218 = СпрНомен_Old_4.ID
   LEFT JOIN _SC134_Old as СпрКонтр_Old_4 ON РегПродажа_Old_4.SP2219 = СпрКонтр_Old_4.ID
   LEFT JOIN _SC134_Old as СпрКонтрП_Old_4 ON РегПродажа_Old_4.SP2220 = СпрКонтрП_Old_4.ID
   LEFT JOIN _SC331_Old as СпрФирмы_Old_4 ON РегПродажа_Old_4.SP2221 = СпрФирмы_Old_4.ID
WHERE Журн_Old_4.DATE BETWEEN :НачДата~~ AND :КонДата~~


GROUP BY Фирма,Покупатель,Поставщик,Номенклатура

UNION ALL

SELECT
   SUM(РегПродажа_4.SP2222) as Себест,
   SUM(РегПродажа_4.SP2223) as ПродСтоимость,    
  SUM(РегПродажа_4.SP2224) as Количество,
   SUM(РегПродажа_4.SP2225) as СебестВ,
   SUM(РегПродажа_4.SP2226) as ПродСтоимостьВ,
   SUM(РегПродажа_4.SP2227) as КоличествоВ,

   СпрФирмы_4.DESCR as Фирма,

   СпрКонтр_4.DESCR as Покупатель,

   СпрКонтрП_4.DESCR as Поставщик,

   СпрНомен_4.DESCR as Номенклатура
FROM
   RA2228 as РегПродажа_4
   LEFT JOIN 1SJOURN as Журн_4 ON РегПродажа_4.IDDOC = Журн_4.IDDOC
   LEFT JOIN SC156 as СпрНомен_4 ON РегПродажа_4.SP2218 = СпрНомен_4.ID
   LEFT JOIN SC134 as СпрКонтр_4 ON РегПродажа_4.SP2219 = СпрКонтр_4.ID
   LEFT JOIN SC134 as СпрКонтрП_4 ON РегПродажа_4.SP2220 = СпрКонтрП_4.ID
   LEFT JOIN SC331 as СпрФирмы_4 ON РегПродажа_4.SP2221 = СпрФирмы_4.ID
WHERE Журн_4.DATE BETWEEN :НачДата~~ AND :КонДата~~


GROUP BY Фирма,Покупатель,Поставщик,Номенклатура

ORDER BY Фирма,Покупатель,Поставщик,Номенклатура,Количество DESC, КоличествоВ DESC

)as WW  ')


Command contains unrecognized phrase/keyword

пардон

я затупил. щас сделал по инструкции

// Знак "'" не  поддерживается, поэтому заменяем на скобки
   Скобка="[";
   номпозиции=Найти(ТекстЗапроса,"'");
   Пока номпозиции<>0 Цикл  
       ТекстЗапроса=Лев(ТекстЗапроса,номпозиции-1)+Скобка+Сред(ТекстЗапроса,номпозиции+1);
       Если Скобка="[" Тогда   Скобка="]"
       Иначе  Скобка="["
       КонецЕсли;
       номпозиции=Найти(ТекстЗапроса,"'");
   КонецЦикла;
   
       
   // Знак """ не  поддерживается, поэтому заменяем на скобки
   Скобка="[";
   номпозиции=Найти(ТекстЗапроса,"""");
   Пока номпозиции<>0 Цикл  
       ТекстЗапроса=Лев(ТекстЗапроса,номпозиции-1)+Скобка+Сред(ТекстЗапроса,номпозиции+1);
       Если Скобка="[" Тогда   Скобка="]"
       Иначе  Скобка="["            
       КонецЕсли;
       номпозиции=Найти(ТекстЗапроса,"""");
   КонецЦикла;
   
   //Разделитель строк не поддерживается поэтому убираем,
   //строки больше 255 симолов не поддерживаются , поэтому удлиняем при помощи CHR(13)
   ВрТекстЗапроса="";
   Для Счетчик=1 По СтрКоличествоСтрок(ТекстЗапроса) Цикл
       ТекСтрока=СтрПолучитьСтроку(ТекстЗапроса,Счетчик);
       ТекСтрока=" "+СокрЛП(ТекСтрока)+" ";
       Если Счетчик=1 Тогда
           ВрТекстЗапроса=ВрТекстЗапроса+ТекСтрока;
       Иначе  
           Если СокрЛП(ТекСтрока)<>"" Тогда
           ПереносСтрокиФоксПро="'"+CHR(13)+"'";
           ВрТекстЗапроса=ВрТекстЗапроса+ПереносСтрокиФоксПро+ТекСтрока;
           КонецЕсли;
       КонецЕсли;
   КонецЦикла;
   ТекстЗапроса = ВрТекстЗапроса;
   ВрТекстЗапроса = "";
   
   //Даты с "'" и с "[" не поддерживаются
   номпозиции=Найти(ТекстЗапроса,"{d"); // {d [2006-01-01]}
   Пока  номпозиции<>0 Цикл

           Начало=Лев(ТекстЗапроса,номпозиции-1);
           ДатаПар=Сред(ТекстЗапроса,номпозиции+4,10);
           Конец=Сред(ТекстЗапроса,номпозиции+16);

           ТекстЗапроса=Начало+"{^ "+ДатаПар+"}"+Конец;
           номпозиции=Найти(ТекстЗапроса,"{d");
   КонецЦикла;

получился такой текст
EXECSCRIPT('SELECT  * INTO CURSOR TmpTable1 NOFILTER from (  '
' SELECT '
' SUM(РегПродажа_04_4.SP2222) as Себест, '
' SUM(РегПродажа_04_4.SP2223) as ПродСтоимость, '
' SUM(РегПродажа_04_4.SP2224) as Количество, '
' SUM(РегПродажа_04_4.SP2225) as СебестВ, '
' SUM(РегПродажа_04_4.SP2226) as ПродСтоимостьВ, '
' SUM(РегПродажа_04_4.SP2227) as КоличествоВ, '
' СпрФирмы_04_4.DESCR as Фирма, '
' СпрКонтр_04_4.DESCR as Покупатель, '
' СпрКонтрП_04_4.DESCR as Поставщик, '
' СпрНомен_04_4.DESCR as Номенклатура '
' FROM '
' _RA2228_04 as РегПродажа_04_4 '
' LEFT JOIN _1SJOURN_04 as Журн_04_4 ON РегПродажа_04_4.IDDOC = Журн_04_4.IDDOC '
' LEFT JOIN _SC156_04 as СпрНомен_04_4 ON РегПродажа_04_4.SP2218 = СпрНомен_04_4.ID '
' LEFT JOIN _SC134_04 as СпрКонтр_04_4 ON РегПродажа_04_4.SP2219 = СпрКонтр_04_4.ID '
' LEFT JOIN _SC134_04 as СпрКонтрП_04_4 ON РегПродажа_04_4.SP2220 = СпрКонтрП_04_4.ID '
' LEFT JOIN _SC331_04 as СпрФирмы_04_4 ON РегПродажа_04_4.SP2221 = СпрФирмы_04_4.ID '
' WHERE Журн_04_4.DATE BETWEEN :НачДата~~ AND :КонДата~~ '
' GROUP BY Фирма,Покупатель,Поставщик,Номенклатура '
' UNION ALL '
' SELECT '
' SUM(РегПродажа_Old_4.SP2222) as Себест, '
' SUM(РегПродажа_Old_4.SP2223) as ПродСтоимость, '
' SUM(РегПродажа_Old_4.SP2224) as Количество, '
' SUM(РегПродажа_Old_4.SP2225) as СебестВ, '
' SUM(РегПродажа_Old_4.SP2226) as ПродСтоимостьВ, '
' SUM(РегПродажа_Old_4.SP2227) as КоличествоВ, '
' СпрФирмы_Old_4.DESCR as Фирма, '
' СпрКонтр_Old_4.DESCR as Покупатель, '
' СпрКонтрП_Old_4.DESCR as Поставщик, '
' СпрНомен_Old_4.DESCR as Номенклатура '
' FROM '
' _RA2228_Old as РегПродажа_Old_4 '
' LEFT JOIN _1SJOURN_Old as Журн_Old_4 ON РегПродажа_Old_4.IDDOC = Журн_Old_4.IDDOC '
' LEFT JOIN _SC156_Old as СпрНомен_Old_4 ON РегПродажа_Old_4.SP2218 = СпрНомен_Old_4.ID '
' LEFT JOIN _SC134_Old as СпрКонтр_Old_4 ON РегПродажа_Old_4.SP2219 = СпрКонтр_Old_4.ID '
' LEFT JOIN _SC134_Old as СпрКонтрП_Old_4 ON РегПродажа_Old_4.SP2220 = СпрКонтрП_Old_4.ID '
' LEFT JOIN _SC331_Old as СпрФирмы_Old_4 ON РегПродажа_Old_4.SP2221 = СпрФирмы_Old_4.ID '
' WHERE Журн_Old_4.DATE BETWEEN :НачДата~~ AND :КонДата~~ '
' GROUP BY Фирма,Покупатель,Поставщик,Номенклатура '
' UNION ALL '
' SELECT '
' SUM(РегПродажа_4.SP2222) as Себест, '
' SUM(РегПродажа_4.SP2223) as ПродСтоимость, '
' SUM(РегПродажа_4.SP2224) as Количество, '
' SUM(РегПродажа_4.SP2225) as СебестВ, '
' SUM(РегПродажа_4.SP2226) as ПродСтоимостьВ, '
' SUM(РегПродажа_4.SP2227) as КоличествоВ, '
' СпрФирмы_4.DESCR as Фирма, '
' СпрКонтр_4.DESCR as Покупатель, '
' СпрКонтрП_4.DESCR as Поставщик, '
' СпрНомен_4.DESCR as Номенклатура '
' FROM '
' RA2228 as РегПродажа_4 '
' LEFT JOIN 1SJOURN as Журн_4 ON РегПродажа_4.IDDOC = Журн_4.IDDOC '
' LEFT JOIN SC156 as СпрНомен_4 ON РегПродажа_4.SP2218 = СпрНомен_4.ID '
' LEFT JOIN SC134 as СпрКонтр_4 ON РегПродажа_4.SP2219 = СпрКонтр_4.ID '
' LEFT JOIN SC134 as СпрКонтрП_4 ON РегПродажа_4.SP2220 = СпрКонтрП_4.ID '
' LEFT JOIN SC331 as СпрФирмы_4 ON РегПродажа_4.SP2221 = СпрФирмы_4.ID '
' WHERE Журн_4.DATE BETWEEN :НачДата~~ AND :КонДата~~ '
' GROUP BY Фирма,Покупатель,Поставщик,Номенклатура '
' ORDER BY Фирма,Покупатель,Поставщик,Номенклатура,Количество DESC, КоличествоВ DESC )as WW  ')


но FAILED! ICommandText::Execute(): Function name is missing )

и не понятно зачем во временную пихать такой здоровый запрос
использование такое  же как в 8 - что то положить, что потом используется в нескольких запросах

по существу при UNION  название as давать только в первом

Отлаживать лучше без временной

(15) у меня оч. здоровый запрос получается, чтобы весь собрать пихаю промежут. результаты во внутр. таблицу

(16) текст без преобразования и инструкции execscript выполняется нормально

СпрФирмы_04_4.DESCR as Фирма,
...
UNION ALL
...
СпрФирмы_4.DESCR as Фирма,

так не пишут

СпрФирмы_04_4.DESCR as Фирма,
...
UNION ALL
...
СпрФирмы_4.DESCR ,

(19) хм, приму на заметку. но упростил и выкинул юнионы. вот такой исх. текст запроса


SELECT
   SUM(РегПродажа_04_4.SP2222) as Себест,
   SUM(РегПродажа_04_4.SP2223) as ПродСтоимость,    
     SUM(РегПродажа_04_4.SP2224) as Количество,
   SUM(РегПродажа_04_4.SP2225) as СебестВ,
   SUM(РегПродажа_04_4.SP2226) as ПродСтоимостьВ,
   SUM(РегПродажа_04_4.SP2227) as КоличествоВ,

   СпрФирмы_04_4.DESCR as Фирма,

   СпрКонтр_04_4.DESCR as Покупатель,

   СпрКонтрП_04_4.DESCR as Поставщик,

   СпрНомен_04_4.DESCR as Номенклатура
FROM
   _RA2228_04 as РегПродажа_04_4
   LEFT JOIN _1SJOURN_04 as Журн_04_4 ON РегПродажа_04_4.IDDOC = Журн_04_4.IDDOC
   LEFT JOIN _SC156_04 as СпрНомен_04_4 ON РегПродажа_04_4.SP2218 = СпрНомен_04_4.ID
   LEFT JOIN _SC134_04 as СпрКонтр_04_4 ON РегПродажа_04_4.SP2219 = СпрКонтр_04_4.ID
   LEFT JOIN _SC134_04 as СпрКонтрП_04_4 ON РегПродажа_04_4.SP2220 = СпрКонтрП_04_4.ID
   LEFT JOIN _SC331_04 as СпрФирмы_04_4 ON РегПродажа_04_4.SP2221 = СпрФирмы_04_4.ID
WHERE Журн_04_4.DATE BETWEEN :НачДата~~ AND :КонДата~~


GROUP BY Фирма,Покупатель,Поставщик,Номенклатура

с преобразованиями


EXECSCRIPT('SELECT  * INTO CURSOR TmpTable1 NOFILTER from (  '
' SELECT '
' SUM(РегПродажа_04_4.SP2222) as Себест, '
' SUM(РегПродажа_04_4.SP2223) as ПродСтоимость, '
' SUM(РегПродажа_04_4.SP2224) as Количество, '
' SUM(РегПродажа_04_4.SP2225) as СебестВ, '
' SUM(РегПродажа_04_4.SP2226) as ПродСтоимостьВ, '
' SUM(РегПродажа_04_4.SP2227) as КоличествоВ, '
' СпрФирмы_04_4.DESCR as Фирма, '
' СпрКонтр_04_4.DESCR as Покупатель, '
' СпрКонтрП_04_4.DESCR as Поставщик, '
' СпрНомен_04_4.DESCR as Номенклатура '
' FROM '
' _RA2228_04 as РегПродажа_04_4 '
' LEFT JOIN _1SJOURN_04 as Журн_04_4 ON РегПродажа_04_4.IDDOC = Журн_04_4.IDDOC '
' LEFT JOIN _SC156_04 as СпрНомен_04_4 ON РегПродажа_04_4.SP2218 = СпрНомен_04_4.ID '
' LEFT JOIN _SC134_04 as СпрКонтр_04_4 ON РегПродажа_04_4.SP2219 = СпрКонтр_04_4.ID '
' LEFT JOIN _SC134_04 as СпрКонтрП_04_4 ON РегПродажа_04_4.SP2220 = СпрКонтрП_04_4.ID '
' LEFT JOIN _SC331_04 as СпрФирмы_04_4 ON РегПродажа_04_4.SP2221 = СпрФирмы_04_4.ID '
' WHERE Журн_04_4.DATE BETWEEN :НачДата~~ AND :КонДата~~ '
' GROUP BY Фирма,Покупатель,Поставщик,Номенклатура )as WW  ')

ну и FAILED! ICommandText::Execute(): Function name is missing ).

блин, я идиот, упустил еще одно преобразование параметров. итоговый текст
EXECSCRIPT('SELECT  * INTO CURSOR TmpTable1 NOFILTER from (  '
' SELECT '
' SUM(РегПродажа_04_4.SP2222) as Себест, '
' SUM(РегПродажа_04_4.SP2223) as ПродСтоимость, '
' SUM(РегПродажа_04_4.SP2224) as Количество, '
' SUM(РегПродажа_04_4.SP2225) as СебестВ, '
' SUM(РегПродажа_04_4.SP2226) as ПродСтоимостьВ, '
' SUM(РегПродажа_04_4.SP2227) as КоличествоВ, '
' СпрФирмы_04_4.DESCR as Фирма, '
' СпрКонтр_04_4.DESCR as Покупатель, '
' СпрКонтрП_04_4.DESCR as Поставщик, '
' СпрНомен_04_4.DESCR as Номенклатура '
' FROM '
' _RA2228_04 as РегПродажа_04_4 '
' LEFT JOIN _1SJOURN_04 as Журн_04_4 ON РегПродажа_04_4.IDDOC = Журн_04_4.IDDOC '
' LEFT JOIN _SC156_04 as СпрНомен_04_4 ON РегПродажа_04_4.SP2218 = СпрНомен_04_4.ID '
' LEFT JOIN _SC134_04 as СпрКонтр_04_4 ON РегПродажа_04_4.SP2219 = СпрКонтр_04_4.ID '
' LEFT JOIN _SC134_04 as СпрКонтрП_04_4 ON РегПродажа_04_4.SP2220 = СпрКонтрП_04_4.ID '
' LEFT JOIN _SC331_04 as СпрФирмы_04_4 ON РегПродажа_04_4.SP2221 = СпрФирмы_04_4.ID '
' WHERE Журн_04_4.DATE BETWEEN {^ 2012-10-01} AND {^ 2012-10-10} '
' GROUP BY Фирма,Покупатель,Поставщик,Номенклатура )as WW  ')

но ошибка та же

А простейший

EXECSCRIPT('SELECT  * INTO CURSOR TmpTable1 NOFILTER from ( '
' SELECT '
'РегПродажа_04_4.SP2222 as Себест'
' FROM '
' _RA2228_04 as РегПродажа_04_4 '
')as WW  ')

тоже самое :(
мож не установил чего?

попробую как я на др. компе. чета не так с библиотеками, кажется

http://www.microsoft.com/en-us/download/details.aspx?id=14839
Microsoft OLE DB Provider for Visual FoxPro 9.0

http://www.1cpp.ru/forum/YaBB.pl?num=1148038411/24#24

спасибо, буду курить

Если добавить отбор движение в регистр - не надо будет соединяться с журналом - быстреее в несколько раз
Если еще при этом задействовать индекс по дате - еще быстрее раз в 20. Там в факе все написано

(30) ага, это я читал, спасибо. Но потом, щас бы с вообще его запустить

У меня при переустановке фокса стал падать при создании строки подключения DataInitialize::GetDataSource(): Класс не зарегистрирован

может старый 1Cpp.dll ?

с ошибкой GetDataSource() все просто, нужно ставить было для всех пользователей

1с++ новый вроде, но выполнить регистрацию на 7ке вин не могу

Точно не момню - давно не пользую. можно vkloader
http://www.1cpp.ru/forum/YaBB.pl?num=1267638191
а вроде последние не требовали регистрации

(36) нет, думаю не в библиотеке дело, использую 2.5. Думается, именно в тексте собака порылась. Есть ли рабочий пример.На http://www.1cpp.ru/forum/YaBB.pl?num=1188673318 м.б. описка где-то? Покрайней мере есть одна ПереносСтрокиФоксПро="'+"+CHR(13)+"'"; вместо ПереносСтрокиФоксПро="'"+CHR(13)+"'";

up

>>>использую 2.5

дк уж..

3.2.4.0 на  дворе
http://www.1cpp.ru/forumfiles/Attachments/icpp-3-2-4-0-rc2.rar

да и.. для такого простейшего запроса использовать "псевдовременные" таблицы в фоксе особого смысла нет, горазо большее ускорение получишь, задействовав индексы.

+ почему не используешь метапарсер ?
Или это текст с отладки ?

(40) спасибо, сейчас попробую.
Это часть текста. Весь текст не проходит по ограничению длины
Не выполняется прямой запрос
ситуация аналогична

та же фигня. простой тестовый
ТекстЗапроса="EXECSCRIPT('SELECT  * INTO CURSOR TmpTable1 NOFILTER FROM ( '
|' SELECT '
|'РегПродажа_04_4.SP2222 AS Себест'
|' FROM '
|' RA2228_04 as РегПродажа_04_4 '
|') AS WW  ')";

FAILED! ICommandText::Execute(): Function name is missing ).

Может обработку рабочую кто для примера выложет?

(43) дык покажи весь текст запроса.

(44) а нафига ты текст в апострофы обрамил ?

весь текст динамически собирается. Сколько пользователь периодов формирования выберет - столько юнионов. Впринципе он простейший, но из-за ограничения на длину, приходится совать его табл.

(4) (вкрадчиво*) а как надо?

:)

(48) к (46)

текст запроса обрабатываю по след инструкции


MDW.УстановитьТекстовыйПараметр("КонДата",ДатаКонца);
   MDW.УстановитьТекстовыйПараметр("НачДата",ДатаНачала);
   ТекстЗапроса=MDW.ОбрМетаСКЛ(ТекстЗапроса);
   
   // Знак "'" не  поддерживается, поэтому заменяем на скобки
   Скобка="[";
   номпозиции=Найти(ТекстЗапроса,"'");
   Пока номпозиции<>0 Цикл  
       ТекстЗапроса=Лев(ТекстЗапроса,номпозиции-1)+Скобка+Сред(ТекстЗапроса,номпозиции+1);
       Если Скобка="[" Тогда   Скобка="]"
       Иначе  Скобка="["
       КонецЕсли;
       номпозиции=Найти(ТекстЗапроса,"'");
   КонецЦикла;
   
       
   // Знак """ не  поддерживается, поэтому заменяем на скобки
   Скобка="[";
   номпозиции=Найти(ТекстЗапроса,"""");
   Пока номпозиции<>0 Цикл  
       ТекстЗапроса=Лев(ТекстЗапроса,номпозиции-1)+Скобка+Сред(ТекстЗапроса,номпозиции+1);
       Если Скобка="[" Тогда   Скобка="]"
       Иначе  Скобка="["            
       КонецЕсли;
       номпозиции=Найти(ТекстЗапроса,"""");
   КонецЦикла;
   
   //Разделитель строк не поддерживается поэтому убираем,
   //строки больше 255 симолов не поддерживаются , поэтому удлиняем при помощи CHR(13)
   ВрТекстЗапроса="";
   Для Счетчик=1 По СтрКоличествоСтрок(ТекстЗапроса) Цикл
       ТекСтрока=СтрПолучитьСтроку(ТекстЗапроса,Счетчик);
       ТекСтрока=" "+СокрЛП(ТекСтрока)+" ";
       Если Счетчик=1 Тогда
           ВрТекстЗапроса=ВрТекстЗапроса+ТекСтрока;
       Иначе  
           Если СокрЛП(ТекСтрока)<>"" Тогда
           ПереносСтрокиФоксПро="'"+CHR(13)+"'";
           ВрТекстЗапроса=ВрТекстЗапроса+ПереносСтрокиФоксПро+ТекСтрока;
           КонецЕсли;
       КонецЕсли;
   КонецЦикла;
   ТекстЗапроса = ВрТекстЗапроса;
   ВрТекстЗапроса = "";
   
   //Даты с "'" и с "[" не поддерживаются
   номпозиции=Найти(ТекстЗапроса,"{d"); // {d [2006-01-01]}
   Пока  номпозиции<>0 Цикл

           Начало=Лев(ТекстЗапроса,номпозиции-1);
           ДатаПар=Сред(ТекстЗапроса,номпозиции+4,10);
           Конец=Сред(ТекстЗапроса,номпозиции+16);

           ТекстЗапроса=Начало+"{^ "+ДатаПар+"}"+Конец;
           номпозиции=Найти(ТекстЗапроса,"{d");
   КонецЦикла;

Для начала, с чего уверенность, что в базе есть табличка RA2228_04 ???

да есть, она не принадлежит правда к базе. Но обычным дбф запросом я к ней нормально обращаюсь

(53) + добавлена из внешней

и вот эти

_1SJOURN_Old
и вот эти
_SC156_04

Ты их откуда взял ?

внешняя база и с такими именами табличек ?
И откуда она взялась ?

это еще одни таблички внешние. Простой дбф запрос (без врем. таблиц) их читает за милую душу

это та же база, но старая

и в коде не видно, как ты обращаешься к табличками "чужой" базы - нужно как минимум, путь до таблички целиком в текст запроса пихать, либо использовать соединение с чужой базой.

(58) что значит эта же ?
1с-ина не формирует таблички с именами
_1SJOURN_Old
_SC156_04
RA2228_04

впринципе начал было записывать инфу о внеш таблицах в
1Cv7.DD чтобы вытянуть sqllite

вот и спрашиваю, откуда ты их взял ?
Это имена временных твоих табличек, или что ?

я имел ввиду, что это из архива этой же самой базы за старый период.

(61) а скульлайт то нафига нужен, при наличии фокса и запроса к сторонней базе ?

нет, это таблички с данными за старый период

(63) :)))

в 1с нет таблиц с именами _1SJOURN_Old , _SC156_04 и т.д.

(64) дык йо! былоб все просто с фоксом вытянул бы фоксом :)

Ответь на вопрос - откуда эти таблички, для начала.

(67) они были скопированы из архива старой базы, переименованы

(69) переименованы.. нафига ?
скопированы, куда ?
в родную базу ?

ну да. А что не так то. Не объединять же их в одну

(71) п..ц

Нужно было всего то, написать обычный запрос к внешней базе, используя метапарсер и ПрисоединитьМД + в этом же запросе поиметь объекты ЭТОЙ базы, синхронизируя элементы с разных баз по какому либо реквизиту (или, если это копия базы - сразу типизировать к объектам этой базы)

А не городить огород с временными табличками и с каким-то нелепым переименованием и копированием файлов.

(72) обычный запрос без execscript вполне читает эти таблицы, проверял. Проблемы начинаются когда по запросу пользователя идет много union ов.

тогда мы натыкаемся на вышеописанное ограничение дбф запросов в 1024 символа в скомпил. виде

в таком случае я хочу поместить их во внутр. таблицу, а потом объединить

вот тут и начинаются траблы с execscript  select into cursor

Ёпрст4, скажите плиз, как без этих апострофов?

к настоящей (родной) таблице базы тоже самое
ТекстЗапроса="EXECSCRIPT('SELECT  * INTO CURSOR TmpTable1 NOFILTER FROM ( '
   |' SELECT '
   |'РегПродажа_04_4.SP2222 AS Себест'
   |' FROM '
   |' RA2228 as РегПродажа_04_4 '
   |') AS WW  ')";
ICommandText::Execute(): Function name is missing ).


так все нормально
ТекстЗапроса="EXECSCRIPT('SELECT  * INTO CURSOR TmpTable1 NOFILTER FROM (  SELECT РегПродажа_04_4.SP2222 AS Себест  FROM RA2228 as РегПродажа_04_4 ) AS WW  ')";
(одной строкой)

и так тоже (а это не родная таблица)
ТекстЗапроса="EXECSCRIPT('SELECT  * INTO CURSOR TmpTable1 NOFILTER FROM (  SELECT РегПродажа_04_4.SP2222 AS Себест  FROM _RA2228_04 as РегПродажа_04_4 ) AS WW  ')";

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

http://zalil.ru/33901757

на вот , пример запроса к внешней базе с синхронизацией по коду + укладывание его во временную ТЗ.

и выкинь ты свои переименованыные файлы куда подальше.

пользуй метапарсер и наслаждайся.

седня не мой день :(
\_ЗАПРОСКВНЕШНЕЙБАЗЕСИНХРОНИЗАЦИЯПОКОДУ.ERT(73)}: FAILED! ICommandText::Execute(): Syntax error.

(83) покажи, какой текст запроса пихаешь

или тупо мою поделку запустил ?

Если да, то 1cpp какой версии ?
оледб, какой версии ?

ставь это
http://www.microsoft.com/en-us/download/details.aspx?id=14839
и это
http://www.1cpp.ru/forumfiles/Attachments/icpp-3-2-4-0-rc2.rar

все из этой ветки самое свежее

я кстати был неправ насчет описки на сайте (37)

именно все это, и фокспро и 1с++

Тогда моя поделка должна работать, запрос в монопольном режиме выполняешь ?
Если да, заплатка от hogik стоит ?

нет не в мономпольном, остальные выполняются. Есть какой-нить метод, прочитать версию 1с++?

(91) ^))))

нажать на знак "?"
Или меню-помощь- о программе.

интересно блин, еще раз заменил 1cpp.dll в bin на свежескачанную и ваша тестовая обработка
глОлеДБ = СоздатьОбъект("OLEDBData");
{D:\1C BASES\zzzzzzzzzzzz\EXTFORMS\_ЗАПРОСКВНЕШНЕЙБАЗЕСИНХРОНИЗАЦИЯПОКОДУ.ERT(125)}: Неудачная попытка создания объекта (OLEDBData)

(93) 1cpp Не загружена.. и всего лишь.
ЗЫ: смотри, что в каталогиИБ валяется еще и в папке пользователя.

Процедура ПриОткрытии()        
   Попытка              
       Путь = КаталогИБ(); Путь = Путь + ?(Прав(Путь,1)="\","","\");
       ЗагрузитьВнешнююКомпоненту(Путь+"1cpp.dll");
       Сообщить("1с++ загружена");
   Исключение
       Сообщить("не удалось загрузить 1с++");
       Возврат;
   КонецПопытки;
   
   глОлеДБ = СоздатьОбъект("OLEDBData");



1с++ загружена
глОлеДБ = СоздатьОбъект("OLEDBData");
{D:\1C BASES\qqqqqqqqqqqqqq\EXTFORMS\_ЗАПРОСКВНЕШНЕЙБАЗЕСИНХРОНИЗАЦИЯПОКОДУ.ERT(126)}: Неудачная попытка создания объекта (OLEDBData)

regsvr32 на win 7 не выполняется

при начале работы системы указал, все норм, версия 3.2, но обработка не выполняется Х)

(96) Ё...
1.1cpp сто лет в обед не требует регистрации в реестре
2.судя по ошибке, 1срр не загружена

FAILED! ICommandText::Execute(): Syntax error.

3. ЗагрузитьВнешнююКомпоненту пихать в попытку не имеет смысла - это ФУНКЦИЯ, которая возвращает, загружена ВК или нет, Исключения там никогда не будет.

Что написано в Меню "О программе" ?

я так и не понял. База точно файловая?

да, куда загрузить картинку лучше?

http://ipicture.ru/

http://s2.ipicture.ru/uploads/20121029/vy5L2ARY.png

И.. ?

http://s1.ipicture.ru/uploads/20121029/Q7k6NyhW.png

EXECSCRIPT('SELECT  * INTO CURSOR  Вася NOFILTER from (  '+
' SELECT '+
' СпрНаш.DESCR as КлиентосВЭтойбазе '+
' ,Спр.DESCR as КлиентосВУдаленнойБазе '+
' FROM sc134 СпрНаш '+
' left join D:\1C bases\xxxxxxxxxxx\torg92\sc134 Спр on СпрНаш.Code = Спр.Code )as WW  ')

И.. точно не в монопольном режиме ?
И точно в обеих базах есть справочник.Контрагенты ?
И что пишет это ?

ОлеДБКоманда.Отладка(1) ?

и точно, что установлен vfp из ссылки выше ?

а в ссылке из майкрософта файлик vfpoledb.msm - чисто вспомогательный, или его тоже куда закидывать нужно?

покажи вкладочку с предприятием

(110) ну да

что значит чисто вспомогательный ?!
Это установщик

msi - установщик

VFPOLEDBSetup.msi нужен вот этот.. + рестарт компа потом

http://s1.ipicture.ru/uploads/20121029/G3UgJPFH.png предприятие. Ща перезагружусь

все тож самое
FAILED! ICommandText::Execute(): Syntax error.

не верю.
:)

проверил на 2008  - усё работате

я тоже :)

нет 7-ки под рукой, думаю, там тоже усё работате.

Без помещения во временную ТЗ работает ?

Если да, то права на запись в каталогИБ есть ?

грю не мой день :) у меня ща бубен отрастет х)

именно туда "складываются" псевдо-временные файлы.

значение сортировки в самой базе как нибудь влияют?

влияет.. но в данном запросе - нет

вот так то хоть работает ?

//СоздатьВременнуюТаблицу(ТекстЗапроса,"Вася");
//Возврат ОлеДБКоманда.ВыполнитьИнструкцию("select * from Вася");
Возврат ОлеДБКоманда.ВыполнитьИнструкцию(ТекстЗапроса);

+ убери из текста запроса все комментарии (то что с -- )

ща

ТЗ = ОлеДБКоманда.ВыполнитьИнструкцию("EXECSCRIPT('SELECT  * INTO "+ТипТабл+"  "+
   ИмяВременнойТаблицы+" "+ДобПар+" from (SELECT СпрНаш.DESCR  as КлиентосВЭтойбазе ,Спр.DESCR as КлиентосВУдаленнойБазе FROM $Справочник.Контрагенты СпрНаш  left join База2.@Справочник.Контрагенты Спр on СпрНаш.Code = Спр.Code) as WW  ') ");  
ошибка уже другая
CommandText::Execute(): File '$справочник.контрагенты' does not exist.

(130) ну круто, в базе нет справочник.Контрагенты у тебя.

и (127) проверил ?

так

//СоздатьВременнуюТаблицу(ТекстЗапроса,"Вася");
   
   //Возврат ОлеДБКоманда.ВыполнитьИнструкцию("select * from Вася");
   
   Возврат ОлеДБКоманда.ВыполнитьИнструкцию(ТекстЗапроса);

и без коментариев не работает

без коменнтов в тексте запроса

ОлеДБКоманда = глОлеДБ.СоздатьКоманду();
   ТекстЗапроса = "
   |SELECT
   |    СпрНаш.DESCR as КлиентосВЭтойбазе
   |    ,Спр.DESCR as КлиентосВУдаленнойБазе
   |FROM $Справочник.Контрагенты СпрНаш
   |left join База2.@Справочник.Контрагенты Спр on СпрНаш.Code = Спр.Code
   |";
   глПарсерВторойБазы(ТекстЗапроса,"База2",ПутьКБазе2);
   ТекстЗапроса=СтрЗаменить(ТекстЗапроса,"*",":");
   
   //СоздатьВременнуюТаблицу(ТекстЗапроса,"Вася");
   
   //Возврат ОлеДБКоманда.ВыполнитьИнструкцию("select * from Вася");
   
   Возврат ОлеДБКоманда.ВыполнитьИнструкцию(ТекстЗапроса);


FAILED! ICommandText::Execute(): Syntax error.

спр.Контрагенты есть

хрень какая то, а так ?

Возврат ОлеДБКоманда.ВыполнитьИнструкцию("select * from $Справочник.Контрагенты");

(137) выполняет

win 7 home edition - глючная скатина, может из-за нее?

а так ?
    ТекстЗапроса = "
   |SELECT *
   |from База2.@Справочник.Контрагенты";
   глПарсерВторойБазы(ТекстЗапроса,"База2",ПутьКБазе2);
Возврат ОлеДБКоманда.ВыполнитьИнструкцию(ТекстЗапроса);

(139) надеюсь, 1с-ина у тебя не портабл версия ?!

она не дружит с вк

сетевая все компоненты

портабл - это что?

Command contains unrecognized phrase/keyword

(144) это отвязанная от винды версия платформы без установщика

щас типовуху скачаю откуда-нибудь

а так, что пишет ?

    ТекстЗапроса = "
   |SELECT *
   |from База2.@Справочник.Контрагенты";
   глПарсерВторойБазы(ТекстЗапроса,"База2",ПутьКБазе2);
  ОлеДБКоманда.Отладка(1);
Возврат ОлеДБКоманда.ВыполнитьИнструкцию(ТекстЗапроса);

SELECT *
from D:\1C bases\xxxxxxxxxxx\torg92\sc134
Возврат ОлеДБКоманда.ВыполнитьИнструкцию(ТекстЗапроса);
{D:\1C BASES\FIESTA-2010\FIESTA-2010\EXTFORMS\_ЗАПРОСКВНЕШНЕЙБАЗЕСИНХРОНИЗАЦИЯПОКОДУ.ERT(119)}: FAILED! ICommandText::Execute(): Command contains unrecognized phrase/keyword.

(149) Все дело в пробеле пути к базе?

(150) скорее всего

(150) кстати возможно, а можно как нибудь обойти, типа []?

можно попробовать в [] взять такой путь к табличке.

(152) пробуй.

да, выполнилась )))

Вот, теперь с временной тоже должно работать..
ну и..
можешь хоть к 10 базам в одном запросе обращаться

щас

ТЗ = ОлеДБКоманда.ВыполнитьИнструкцию("EXECSCRIPT('SELECT  * INTO "+ТипТабл+"  "+
{D:\1C\F2010\_ЗАПРОСКВНЕШНЕЙБАЗЕСИНХРОНИЗАЦИЯПОКОДУ.ERT(73)}: FAILED! ICommandText::Execute(): Cannot open file d:\1c\f2010\f2010\sc134.dbf.

(158) монопольно выполняешь ?
:)

все нормально!!!

ура!!!

Ребята, спасибо большое.

могу на пиво/морожное на яндекс или веб мани немного кинуть, хотя конечно Ёпрст4 и  kiruha потратили время намного больше. Кидайте реквизиты :)

Salimbek тоже спасибо :)

И КонецЦикла

в личке всё есть

ок

(164) На здоровье...