|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.09.2007, 16:29 | #1 |
Регистрация: 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; |
10.09.2007, 17:04 | #2 |
Армия Рассейская
Форумчанин
Регистрация: 06.12.2006
Сообщений: 175
|
попробуй использовать компонент BatchMove
Сделаем ночь ярче!!! - Ракетные войска стратегического назначения
Центральный клуб туристов РВСН |
10.09.2007, 17:23 | #3 |
детский тренер
Форумчанин
Регистрация: 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
|
11.09.2007, 10:47 | #4 |
Регистрация: 10.09.2007
Сообщений: 3
|
спасибо BatchMove скопировал как надо
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создание своей сводной таблицы... | 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 |