Скачать: CL | DM;

Из 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?

---

← →
Vlad Oshin ©   (2008-05-26 11:11) [6]

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);

---

← →
AndreyV ©   (2008-05-26 11:23) [7]

> [6] Vlad Oshin ©   (26.05.08 11:11)

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

---

← →
Anatoly Podgoretsky ©   (2008-05-26 11:55) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c