Обращение в ADOquery к ADOquery

@Yliya · Регистрация: 11.06.2012

Author24 — интернет-сервис помощи студентам

Доброго времени суток.
Вопрос заключается в следующем:
Имеется подключенная бд *.mdb к delphi
В delphi есть запрос на основе одной из таблиц *.mdb сделанный по средствам компонента ADOQuery.
Необходимо сделать новый запрос на основе уже выполненного запроса (см. предыдущий пункт).
По средствам каких компонентов я могу это сделать?

@HyperZen · 18.01.2014, 19:24

Вы имеете ввиду осуществить выборку из полученных данных от первого запроса?

@Yliya · 18.01.2014, 19:30 **[ТС]**

Да)

@HyperZen · 18.01.2014, 19:34

Сделайте запрос в запросе.

@Yliya · 18.01.2014, 19:36 **[ТС]**

т.е?

@HyperZen · 18.01.2014, 19:36

Пример:

SQL

1	SELECT * FROM (SELECT * FROM table1)

@Yliya · 18.01.2014, 20:42 **[ТС]**

В общем у меня есть таблица расходы (фио\категория расхода\наименование\дата\сумма)
Я делаю запрос на выборку по параметрам выбираемым в комбобоксах и отображаю его в дбгриде.
Далее мне необходимо построить график на основе нового запроса с группировкой записей по дате и суммированием сумм предыдущего запроса.

Добавлено через 33 минуты
Предложенный способ с запросом в запросе не выходит, т.к. сильно много символов и delphi переводит их на другую строку.
Проба запроса типа с указанием ссылки на предыдущий запрос не увенчалась успехом (ошибка синтаксиса)

Delphi

1
2
3

  Form1.qry12.SQL.Text := 'SELECT (' + qry11.SQL.Text + ').Дата, Sum((' +
    qry11.SQL.Text + ').Сумма) AS [Sum-Сумма] FROM ((' + qry11.SQL.Text +
    ')) GROUP BY (' + qry11.SQL.Text + ').Дата;';

Добавлено через 7 минут
Вот код рабочего запроса qry11:

Delphi

  'SELECT ' + edt8.Text + '.Ôèî, ' + edt8.Text + '.[' + lbl6.caption + '], ' +
    edt19.Text + ' ' + edt8.Text + '.Äàòà, ' + edt8.Text + '.Ñóììà FROM ' +
    edt8.Text + ' WHERE (((' + edt8.Text + '.Ôèî) like "' + edt4.Text +
    '") AND ((' + edt8.Text + '.[' + lbl6.caption + ']) like "' + edt18.Text +
    '") ' + edt17.Text + ' AND ((' + edt8.Text + '.Äàòà) Between #' + edt10.Text
    + '# And #' + edt12.Text + '#));

Т.е. длинна требуемого мне запроса просто запредельна получается, если 4 раза вставить текст qry11

Добавлено через 21 минуту
Как мне сохранить мой запрос на выборку, что бы потом можно было к нему обратиться для группировки?

@HyperZen · 18.01.2014, 22:11

Тогда читайте мануал про TStoredProc

Добавлено через 6 минут
Вот цитата с другого форума:

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

в отличие от того же .NET - там это просто сказка! (я уже молчу про LINQ)

поэтому, Вам нужно:
или объединять Ваши последовательные запросы так, чтобы это был ОДИН запрос к БД
(например: SELECT * FROM (SELECT * from from export where [Number application]= .... ) Z1 where Z1.ScanDate= .... )
или писать ХП на сервере, где в MS SQL можно делать выборки в табличные переменные (ну или временные таблицы, как кому больше нравится), потом эти выборки использовать в качестве источников данных для других выборок и т.д. и т.п...

Добавлено через 3 минуты
Можно создать в БД временную таблицу, например, назовем ее Temp_Table. Туда скидывать данные после первого запроса, затем, если необходимо, выполнять второй запрос из нашей временной таблицы.

@Yliya · 18.01.2014, 22:24 **[ТС]**

Все оказалось проще.

Delphi

Form1.qry12.SQL.Text:='SELECT  '+edt8.text+'.Äàòà, sum('+edt8.text+'.Ñóììà) AS [Ñóììà] FROM '+edt8.text+' WHERE ((('+edt8.text+'.Ôèî) like "'+edt4.Text+'") AND (('+edt8.text+'.['+lbl6.Caption+']) like "'+edt18.text+'") '+edt17.Text+' AND (('+edt8.text+'.Äàòà) Between #'+edt10.text+'# And #'+edt12.text+'#)) GROUP BY '+edt8.text+'.Äàòà;';

Спасибо за внимание.

@Yliya 1 / 1 / 0 Регистрация: 11.06.2012 Сообщений: 14
		1
	Обращение в ADOquery к ADOquery 18.01.2014, 18:27. Показов 2809. Ответов 8 Метки нет (Все метки) Доброго времени суток. Вопрос заключается в следующем: Имеется подключенная бд .mdb к delphi В delphi есть запрос на основе одной из таблиц .mdb сделанный по средствам компонента ADOQuery. Необходимо сделать новый запрос на основе уже выполненного запроса (см. предыдущий пункт). По средствам каких компонентов я могу это сделать? 0

@HyperZen 498 / 251 / 56 Регистрация: 16.06.2011 Сообщений: 904
	18.01.2014, 19:24	2
	Вы имеете ввиду осуществить выборку из полученных данных от первого запроса? 0

@Yliya 1 / 1 / 0 Регистрация: 11.06.2012 Сообщений: 14
	18.01.2014, 19:30 [ТС]	3
	Да) 0

@HyperZen 498 / 251 / 56 Регистрация: 16.06.2011 Сообщений: 904
	18.01.2014, 19:34	4
	Сделайте запрос в запросе. 0

@Yliya 1 / 1 / 0 Регистрация: 11.06.2012 Сообщений: 14
	18.01.2014, 19:36 [ТС]	5
	т.е? 0

@HyperZen 498 / 251 / 56 Регистрация: 16.06.2011 Сообщений: 904
	18.01.2014, 22:11	8
	Тогда читайте мануал про TStoredProc Добавлено через 6 минут Вот цитата с другого форума: к огромному сожалению, в Delphi не реализован механизм, когда можно в качестве источника данных для запроса указывать набор, полученный ранее (в результате предыдущего запроса) в отличие от того же .NET - там это просто сказка! (я уже молчу про LINQ) поэтому, Вам нужно: или объединять Ваши последовательные запросы так, чтобы это был ОДИН запрос к БД (например: SELECT * FROM (SELECT * from from export where [Number application]= .... ) Z1 where Z1.ScanDate= .... ) или писать ХП на сервере, где в MS SQL можно делать выборки в табличные переменные (ну или временные таблицы, как кому больше нравится), потом эти выборки использовать в качестве источников данных для других выборок и т.д. и т.п... Добавлено через 3 минуты Можно создать в БД временную таблицу, например, назовем ее Temp_Table. Туда скидывать данные после первого запроса, затем, если необходимо, выполнять второй запрос из нашей временной таблицы. 1

	18.01.2014, 22:24

Опции темы