Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Из TQuery в TQuery [D7, XP]

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

Anatoly Podgoretsky (2008-05-26 11:55:00) [1]
Какой ужас, а сообщения компилятора специально не читаем?

AndreyV (2008-05-26 11:23:00) [2]
> [6] Vlad Oshin © (26.05.08 11:11)

Вот у автора и спрашивают: нафига это ему?

Vlad Oshin (2008-05-26 11:11:00) [3]
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);

ЮЮ (2008-05-26 10:37:00) [4]
Query1 — это и есть результат запроса, т.е. набор данных, по которому можно перемещаться и из текущей записи извлекать данные из полей.

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

Гена (2008-05-26 09:20:00) [5]
Смысл есть, мне просто нужно узнать как получить результат запроса.

Sergey13 (2008-05-26 09:14:00) [6]
> [2] Гена (26.05.08 09:06)
> В общем есть универсальная функция

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

Гена (2008-05-26 09:06:00) [7]
В общем есть универсальная функция, которая получает запрос, получает параметры и отрабатывает запрос. Затем функция должна возвратить результат, что бы из других мест можно было ее вызвать и получить результат отработки.

например:

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 08:51:00) [8]
> [0] Гена (26.05.08 08:46)
> Подскажите как сделать это ?

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »