Последовательное выполнение запросов

[artemavd]

Добрый день! Как выполнить запросы один за другим? Наприме, я выполняю какой-то запрос. Получил некий результат. Затем, по задумке, я должен выполнить другой запрос, но, уже применимо к результату, который был получен в результате работы предыдущего запроса. БД на ADO.

[Sparkman]

Сообщение от artemavd

Добрый день! Как выполнить запросы один за другим? Наприме, я выполняю какой-то запрос. Получил некий результат. Затем, по задумке, я должен выполнить другой запрос, но, уже применимо к результату, который был получен в результате работы предыдущего запроса. БД на ADO.

ADO

Запрос1
Commit
Запрос2
Commit

[artemavd]

И что я должен оттуда уяснить? Я выполняю один запрос:

procedure TForm1.DBText4Click(Sender: TObject);
begin
  Form1.DataSource1.DataSet:=Form1.ADOTable1;
  Form1.ADOQuery1.Active:=False;
  Form1.ADOQuery1.SQL.Text:='select * from export where [Number application]=' + QuotedStr(Form1.Label55.Caption);
  Form1.ADOQuery1.Active:=True;
  Form1.DataSource1.DataSet:=Form1.ADOQuery1;
end;

получил некий результат. Затем должен выполнить второй запрос:

procedure TForm1.DBText11Click(Sender: TObject);
begin
 Form1.DataSource1.DataSet:=Form1.ADOTable1;
 Form1.ADOQuery1.Active:=False;
 Form1.ADOQuery1.SQL.Text:='select * from export where [ScanDate]=' + QuotedStr(Form1.Label55.Caption);
 Form1.ADOQuery1.Active:=True;
 Form1.DataSource1.DataSet:=Form1.ADOQuery1;
end;

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

[Sparkman]

Сообщение от artemavd

И что я должен оттуда уяснить? Я выполняю один запрос:

procedure TForm1.DBText4Click(Sender: TObject);
begin
  Form1.DataSource1.DataSet:=Form1.ADOTable1;
  Form1.ADOQuery1.Active:=False;
  Form1.ADOQuery1.SQL.Text:='select * from export where [Number application]=' + QuotedStr(Form1.Label55.Caption);
  Form1.ADOQuery1.Active:=True;
  Form1.DataSource1.DataSet:=Form1.ADOQuery1;
end;

получил некий результат. Затем должен выполнить второй запрос:

procedure TForm1.DBText11Click(Sender: TObject);
begin
 Form1.DataSource1.DataSet:=Form1.ADOTable1;
 Form1.ADOQuery1.Active:=False;
 Form1.ADOQuery1.SQL.Text:='select * from export where [ScanDate]=' + QuotedStr(Form1.Label55.Caption);
 Form1.ADOQuery1.Active:=True;
 Form1.DataSource1.DataSet:=Form1.ADOQuery1;
end;

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

ADO - это интерфейс доступа к БД, судя по всему у вас скорей всего MS SQL Server.

1) чтобы пользоваться результатом первого запроса, нужно его куда-нибудь сохранить, ну или хотя бы не изменять переменную (ADOQuerry1);
2) чтобы второй запрос оперировал результатом первого - нужно сохранить результат первого запроса в БД, например, создать временную таблицу, если исходные данные нельзя изменять.

[artemavd]

У меня ADO. Я же четко написал. Причем тут MS SQL Server. Как выполнить первый пункт?

[soleil@mmc]

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

[artemavd]

а что есть "результат работы предыдущего запроса"?

Это есть набор записей, который был возвращен после выполнения первого запроса и к которому нужно применить второй запрос.

[Serge_Bliznykov]

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

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

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

[Stilet]

после выполнения первого запроса и к которому нужно применить второй запрос.

У меня глупый вопрос: А почему не сделать все одним вложенным запросом? Зачем их по порядку выполнять?

[soleil@mmc]

учи СКЛ короче
нет ничего сложного в том чтобы применить оба фильтра в одном запросе через "И"
только вот неясно - каким образом в одном и том же поле Form1.Label55.Caption окажутся данные по полю Number application и ScanDate одновременно?!