Excel 97

Проблема такая.
Макрос. Запрос SQL. Данные из файла doc.dbf в массив переменных. Отбор с суммированием-группировкой.
Строка с одним оператором SELECT даёт правильный результат.
Но если строка запроса включает оператор UNION ALL, то происходит так: данные после этого оператора не включаются в результат. Т.е. строки в массиве заняты, но они пустые.

Подробнее - в приложении.

Файлы doc.dbf и doc.fpt записать в папку D:\tmp\

В файле docdbf.xls макрос docsum - его надо запустить.
В ячейке А1 должны быть цифры 1, 2, 3 или 4 - это номера строк запроса

Результат выполнения (по столбцам): счёт, код, сумма по vid=2, сумма по vid=1
В ячейке В1 - строка запроса выполненного макроса в виде текста

Макрос со строками 1 и 2 по отдельности работают нормально. Т.е. только по vid=1, либо vid=2
Строка 3 (и аналог 4) - строки с UNION строк 1 и 2. Т.е. в разных полях суммы, где vid=1 и vid=2

Но в результате запроса данные не объединяются. Получаются пустые строки по второй сумме (строка запроса после UNION ALL).

В чём ошибка?


Сами строки запроса выглядят так:

1) SELECT schet_a as sch, agentcode as code, SUM(summa) as rea, 0 as zak FROM doc WHERE (vid='2') AND (type='1') GROUP BY sch, code ORDER BY code, sch

2) SELECT schet_a as sch, agentcode as code, 0 as rea, SUM(summa) as zak FROM doc WHERE (vid='1') AND (type='1') GROUP BY sch, code ORDER BY code, sch

3) SELECT schet_a as sch, agentcode as code, SUM(summa) as rea, 0 as zak FROM doc WHERE (vid='2') AND (type='1') GROUP BY sch, code UNION ALL SELECT schet_a as sch, agentcode as code, 0 as rea, SUM(summa) as zak FROM doc WHERE (vid='1') AND (type='1') GROUP BY sch, code ORDER BY code, sch

4) SELECT schet_a as sch, agentcode as code, SUM(summa) as rea, 0 as zak FROM doc WHERE (vid='1') AND (type='1') GROUP BY sch, code UNION ALL SELECT schet_a as sch, agentcode as code, 0 as rea, SUM(summa) as zak FROM doc WHERE (vid='2') AND (type='1') GROUP BY sch, code ORDER BY code, sch

К сожалению, удалять поле Sclads никак не получится, т.к. этот файл doc.dbf является рабочим в другой программе.
Наверняка, дело не в строке SQL, а в драйвере подключения Driver={Microsoft Visual FoxPro Driver}.
С ним не работает не только sql-оператор UNION ALL, но и другие.
Например, пытался выйти из положения с помощью встроенного запроса, но не работает даже строка "SELECT * FROM (SELECT * FROM doc) ".

Из других файлов dbf, у которых строка подключения выглядит как "Driver={Microsoft dBASE Driver (*.dbf)}, всё работает: и UNION, и вложенные (причём, несколько раз) запросы. Но, сам нужный файл doc.dbf работает только при Microsoft Visual FoxPro Driver. А при Microsoft dBASE Driver (*.dbf) вылетает:
Ошибка выполнения '-2147467259 (80004005)':
[Microsoft][Драйвер ODBC dBase] Внешняя таблица не имеет предполагаемый формат.

Похоже, придётся обойтись другими способами. А именно, получать данные двумя запросами в два массива и создавать отдельную процедуру по нужному объединению данных из этих двух массивов в третий. А жаль, запросом проще и быстрее.

Эти и некоторые другие мысли описаны в теме SQL-запрос. Получить данные из массива (-ов) или другого (других) Recordset