| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как сохранить результат фильтра таблицы в файл? [D5, Paradox]

ORFO ©   (2002-06-06 11:36:00) 

Как сохранить результат фильтра таблицы в файл?
есть таблица , скажем из 1000 записей...
накладываю фильтр, остается 10 записей...
как мне оставшиеся записи сохранить на жесткий диск в отдельную таблицу ??
функция dbimakepermanent не работает...

---

deleon   (2002-06-06 14:38:00) [1]

Попробуй через компонент TBatchMove, хотя особой разницы нет, но у меня все прекрасно получалось. Это самый эффективный(читай быстрый)способ сохранение фильтрованного набора данных для Paradox или dBase!

---

ORFO   (2002-06-06 12:34:00) [2]

>deleon
TableClients1.Active := true ;
tableclients2.BatchMove(tableclients1,batcopy) ;
получаю ошибку
invalid parametr

---

ORFO   (2002-06-06 12:08:00) [3]

dbimakepermanent не работает - она сохраняет всю таблицу не учитывая фильтров...

---

Reindeer Moss Eater   (2002-06-06 12:07:00) [4]

DbiMakePermanent

---

deleon   (2002-06-06 12:00:00) [5]

Проще всего в твоем случае воспользоваться компонентом TBatchMove c установленным свойством batCopy.

---

Johnmen   (2002-06-06 11:55:00) [6]

>ORFO (06.06.02 11:48)

...а дальше - как в фильтре....

---

ORFO   (2002-06-06 11:51:00) [7]

на самом деле я пробовал еще так -

with TDest do begin
DatabaseName := ExtractFilePath(Application.ExeName) ;
TableName := "clients.db";
if not (tdest.Exists) then
begin
FieldDefs.Assign(TableClients1.FieldDefs);
CreateTable;
active := true ;
for i := 0 to pred(TableClients1.RecordCount) do
begin
tableclients1.RecNo := i ;
TDest.append ;
for j := 1 to (TableClients1.FieldCount) do begin
TDest.fields.FieldByNumber(j).value := TableClients1.fields.FieldByNumber(j).value ;
end;
TDest.post ;
end;
end;
tdest.free ;
end;


но тут не работает строка
tableclients1.RecNo := i ;
т.е. переход просто не срабатывает... RecNo постоянно остается один - 456

---

ORFO   (2002-06-06 11:48:00) [8]

в смысле ты имеешь в виду запросом типа insert into "c:\temptable.db" select * from - а вот дальше как ?

---

Anatoly Podgoretsky   (2002-06-06 11:46:00) [9]

Insert into

---

Наверх