VPF::TQuery -> File - Форум программистов

Illusion Dolphin

Дата 2.7.2004, 10:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

У меня есть TQuery, который содержит текущий запрос. Необходимо этот запрос сделать в виде таблицы на жёстком диске. Нашёл в доках функцию, но она пишет ошибку:

Код


procedure MakePermTable(Qry: TQuery; PermTableName: string);
var
  h: HDBICur;
  ph: PHDBICur;
begin
  Qry.Prepare;    //не может выполнить операцию для открытого датасета
  Check(dbiQExec(Qry.StmtHandle, ph));
  h := ph^;
  Check(DbiMakePermanent(h, PChar(PermTableName), True));
end;

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

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

December

Дата 2.7.2004, 13:43 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57

Illusion Dolphin
В смысле тебе надо вылить результат запроса на диск или как?

--------------------

Для друзей с винграда - скидки на разработку сайтов

Illusion Dolphin

Дата 4.7.2004, 19:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Мне нужно результат запроса сохранить как обычную таблицу.

--------------------

p0s0l

Дата 4.7.2004, 20:27 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Illusion Dolphin, qry.prepare работает только для закрытых кверей...
1) Либо закрой её перед вызовом prepare:

Код

procedure MakePermTable(Qry: TQuery; PermTableName: string);
var h: HDBICur;
begin
 if Qry.Active then Qry.Close;
 Qry.Prepare;
 dbiQExec(Qry.StmtHandle, @h);
 DbiMakePermanent(h, PChar(PermTableName), True);
end;

2) Либо вообще не делай prepare...

Код

procedure MakePermTable(Qry: TQuery; PermTableName: string);
var h: HDBICur;
begin
 dbiQExec(Qry.StmtHandle, @h);
 DbiMakePermanent(h, PChar(PermTableName), True);
end;

--------------------

С уважением, г-н Посол.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »