Из TQuery в TQuery

← →
Гена (2008-05-26 08:46) [0]

Добрый день! Подскажите как быть. Я выполняю запрос в TQuery, передавая параметры. Запрос нормально отрабатывается. Теперь я должен возвратить результат что бы второй TQuery мог получить все данные первого TQuery.
Типа Query2 := Query1; - Подскажите как сделать это ?

← →
Sergey13 © (2008-05-26 08:51) [1]

> [0] Гена (26.05.08 08:46)
> Подскажите как сделать это ?

Для начала - вопросы нормально задавать.
Что в первом кверике и почему его не хватает?

← →
Гена (2008-05-26 09:06) [2]

В общем есть универсальная функция, которая получает запрос, получает параметры и отрабатывает запрос. Затем функция должна возвратить результат, что бы из других мест можно было ее вызвать и получить результат отработки.

например:

Function Sql_run (Str : String) : TQuery
begin
Query1.SQL.Text := Str;
Query1.Open;
end;

Есть множество процедур которые будут вызывать эту функцию, например

procedure TForm1.Button1Click(Sender: TObject);
Var
Q : TQuery;
begin
теперь мне нужно вызвать Sql_run и получить результат выполнения запроса
в переменную Q
end;

← →
Sergey13 © (2008-05-26 09:14) [3]

> [2] Гена (26.05.08 09:06)
> В общем есть универсальная функция

И какой в ней смысл?

← →
Гена (2008-05-26 09:20) [4]

Смысл есть, мне просто нужно узнать как получить результат запроса.

← →
ЮЮ © (2008-05-26 10:37) [5]

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

Для «повторного использования» достаточно переместиться в начало.
зачем тебе отдельный Query2?

Function Sql_run (Str : String; Q:TQuery)
begin
Q.SQL.Text := Str;
Q.Open;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
Q : TQuery;
begin
Q:=tQuery.create(nil);
Sql_run ("select * from qwe", Q);

Какой ужас, а сообщения компилятора специально не читаем?

Из TQuery в TQuery Найти похожие ветки