Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.05.2013, 17:15   #1
Я))
Новичок
Джуниор
 
Регистрация: 17.05.2013
Сообщений: 2
Вопрос реализовать перекрестный запрос в delphi для вывода в excel

Доброго времени суток)
нуждаюсь в помощи по построению перекрестного запроса в delphi и отображению данных в excel
есть запросы написанные в access (первый (обычный) вспомогательный для второго (перекрестного)) и на основе их строится отчет...нужно тоже самое только через sql в delphi с выводом в excel

запросы из ACCESS:
1 вспомогательный, обычный
Код:
SELECT Анкета.[Номер анкеты], Заключение.Заключение, Анкета.[Дата тестирования], Категория.Категория, Year([Дата тестирования]) AS Выражение1
FROM Заключение INNER JOIN ((Категория INNER JOIN Анкета ON Категория.[Код категории] = Анкета.[Код категории]) INNER JOIN Результаты ON Анкета.[Номер анкеты] = Результаты.[Номер анкеты]) ON Заключение.[Код заключения] = Результаты.[Код заключения]
WHERE (((Year([Дата тестирования]))=[Формы]![Отчет]![год_поиск]));
2 перекрестный
Код:
TRANSFORM Count([Отчет (вспом)].[Номер анкеты]) AS [Count-Номер анкеты]
SELECT [Отчет (вспом)].Заключение, [Отчет (вспом)].Категория, Count([Отчет (вспом)].[Номер анкеты]) AS [Итоговое значение Номер анкеты]
FROM [Отчет (вспом)]
GROUP BY [Отчет (вспом)].Заключение, [Отчет (вспом)].Категория
PIVOT Format([Дата тестирования],"mmm") In ("янв","фев","мар","апр","май","июн","июл","авг","сен","окт","ноя","дек");

Последний раз редактировалось Stilet; 17.05.2013 в 19:59.
Я)) вне форума Ответить с цитированием
Старый 17.05.2013, 17:24   #2
GoodDA
фрилансер
Форумчанин
 
Аватар для GoodDA
 
Регистрация: 18.07.2008
Сообщений: 107
По умолчанию

врядли вам его перепишут без самой базы и исходника.

Попробуйте переделать запрос на запрос добавления данных,
т.е. смысл такой, создаете таблицу, запрос в нее записывает данные, и в делфи обращаетесь к этой таблице
GoodDA вне форума Ответить с цитированием
Старый 17.05.2013, 19:29   #3
Я))
Новичок
Джуниор
 
Регистрация: 17.05.2013
Сообщений: 2
По умолчанию

основной вопрос в том что в delphi sql не знает TRANSFORM...если его можно чем то заменить, то как? запрос я переделала грубо говоря в линейный:

Код:
SELECT year_report.vyvod,year_report.category, Count(year_report.nomer) AS kol_vyvod, year_report.month_report
FROM ( SELECT NOMER, VYVOD, DATE_TEST, CATEGORY, Extract  (Year From DATE_TEST) AS year_report,Extract  (month From DATE_TEST) AS month_report
FROM vyvod, CONCLUSION, CATEGORY
WHERE (vyvod.kod_vyvod= CONCLUSION. KOD_RESULT) and (CATEGORY.kod_cat=CONCLUSION.kod_cat) and
 ( Extract  (Year From DATE_TEST)=2001 )) as year_report
GROUP BY VYVOD, CATEGORY,year_report.month_report
НО мне нужен именно перекрестный...

Последний раз редактировалось Stilet; 17.05.2013 в 20:00.
Я)) вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перекрестный запрос shefus SQL, базы данных 3 22.12.2011 11:06
как реализовать структуру БД для удобного вывода отчётов? nuevegramodelamor Microsoft Office Access 17 18.04.2011 16:02
запрос для вывода дерева. bondik SQL, базы данных 1 06.12.2010 07:50
Перекрестный запрос zander Microsoft Office Access 2 13.01.2010 15:25