Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.09.2007, 16:29   #1
Eduard
 
Регистрация: 10.09.2007
Сообщений: 3
По умолчанию Создание файла db из отфильтрованной таблицы??

Привет всем..

Есть таблица Paradox
использую компоненты Table, DataSource и DBGrid.
Фильтрую таблицу по одному из полей...

Необходимо отфильтрованную таблицу сохранить в отдельный файл db.

с помощью нижеследующей процедуры копируется вся таблица (а не только отфильтрованная часть)
SOS

procedure QuickCopyTable(T: TTable;DestTblName:string;Overwrite : boolean);
// только для не SQL-ых, т.е не промышленных БД (dBase, Paradox ..)
var DBType: DBIName;
WasOpen:boolean;
NumCopied:word;
begin
WasOpen:=T.Active;
if not WasOpen then T.Open;
Check(DbiGetProp(hDBIObj(T.Handle), drvDRIVERTYPE,@DBType,SizeOf(DBINAM E),
NumCopied));
Check(DbiCopyTable(T.DBHandle, Overwrite, PChar(T.TableName),DBType, PChar(DestTblName)));
T.Active:=WasOpen;
end;
Eduard вне форума Ответить с цитированием
Старый 10.09.2007, 17:04   #2
Nemon
Армия Рассейская
Форумчанин
 
Аватар для Nemon
 
Регистрация: 06.12.2006
Сообщений: 175
По умолчанию

попробуй использовать компонент BatchMove
Сделаем ночь ярче!!! - Ракетные войска стратегического назначения
Центральный клуб туристов РВСН
Nemon вне форума Ответить с цитированием
Старый 10.09.2007, 17:23   #3
Pitbull
детский тренер
Форумчанин
 
Аватар для Pitbull
 
Регистрация: 08.06.2007
Сообщений: 532
По умолчанию

table1.first;
table2.insert;
for i:=0 to table1.recordcount-1 do
begin
if table1.Fields.Fields[i].value >..... then
table2.insetRecord([.....])
end;
table2.post;

или просто все поля прировнять....
просто компилятора ща нет.Не за своим компом...Завтра напишу....
Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp
Pitbull вне форума Ответить с цитированием
Старый 11.09.2007, 10:47   #4
Eduard
 
Регистрация: 10.09.2007
Сообщений: 3
По умолчанию

спасибо BatchMove скопировал как надо
Eduard вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создание своей сводной таблицы... Bu$ter Microsoft Office Excel 4 17.06.2008 14:30
Создание обобщающей таблицы Алексей82 Microsoft Office Excel 4 14.06.2008 06:10
Программное создание таблицы в InterBase Proof БД в Delphi 2 05.05.2008 21:05