Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.05;
Скачать: CL | DM;

Вниз

Рекурсивная функция   Найти похожие ветки 

 
Вованчик ©   (2004-02-24 15:52) [0]

Здравствуйте.

Написал рекурсивную функцию:

function GetSQL(var N: String): String;
var Query: TIBQuery;
Str: String;
begin
Query := TIBQuery.Create(Self);
Query.DataBaseName := Data.DB;
Query.Transaction := Data.Transaction;
Query.SQL.Text := ‘SELECT N FROM Vid_Calculation_Table’ + fos_Number_Otdel +
‘WHERE N_Vid = ’ + N;
Query.Open;
Result := ‘’;
While not Query.eof do
begin
Str := Query.FieldByName(‘N’).asString;
Result := Result + ‘ OR N_Vid = ’ + Str + GetSQL(Str);
Query.Next;
end;
Query.Close;
Query.Free;
end;

но она выдает эксепшин "не могу выполнить на закрытом датасете" на строке Query.Next, убираю
Query.Close;
Query.Free;
все работает без проблем, но тогда экземпляров может создаться очень много...

В чем может быть проблема? По идее то должен закрыться соответсвующий экземляр Query и функция продолжить работу, но все почему то не так ... Помогите разобраться ...

Спасибо.


 
jack128 ©   (2004-02-24 16:02) [1]

не может быть..Ты же открыл куери. Это точно реальный код?? может ты случайно в рабочем коде Query.Close в цикл поставил??


 
Вованчик ©   (2004-02-24 16:06) [2]

может может, самый реальный код :(
> может ты случайно в рабочем коде Query.Close в цикл поставил??
если б так :)



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

Текущий архив: 2004.03.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
1-12426
Raki
2004-02-15 00:28
2004.03.05
Форма внизу Z order.


6-12480
Michael_X
2003-12-17 17:54
2004.03.05
Определение удалённой ОС.


3-12231
Splinter
2004-02-10 06:43
2004.03.05
Объединение полей БД в Delphi


3-12261
uw
2004-02-10 09:58
2004.03.05
Data-aware TreeView


14-12538
slippery
2004-02-13 21:42
2004.03.05
Помогите найти!!!