| Понятие программирование, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Антикейлоггер Indy Components, Опрос Вклинить одну строку в другую., Гимнастика для мозга... String to cardinal Предварительный просмотр, Как сделать просмотр перед печатью? управление приложением, из другого приложения СЕТЕВОЙ МОНИТОР, ПЕРЕДАЧА РАБОЧЕГО СТОЛА ПО СЕТИ jpg2tga опимального дерева поиска vs. pack и unpack Tera XL Report Свойства ListBox, Я чайник, помогите плиз Как рисовать на десктопе за ярлыками? Быстрый поиск в TListBox, Кажись баг я нашел... ЧекБоксы WebBrowser, вопрос по печати Определения кодировки текста, DOS или Windows... как? Left side cannot be assigned to RTF TO HTML, помогите пожалуйста Люди!!! Спасайте!!! Диплом!!!, Исходник дистанционного управления Как Вы относитесь к курящим девушкам? Помогите с прогой, Установка времени Команда, Вопрос по образовании команды TValueListEditor Как загрузить картинку в компонент удаление данных, удаление данных pWideChar в String, перевести И снова попап, вставка картинки TSMDBLookupCombo, TEXT TMT, Compile Can not translate character between character set Отображение БД, Перенаправление просмотра Поле ввода Edit, Дробные числа TdxDbGRid, Трабл с колонкой Проблема с DLL, Не хочет грузить DLL из Win98 Нулевые символы, Хочу читатать нулевые символы FTP-Client, определение ошибок Шпион Как подключиться к существующей SQL базе???, Локальная и сетевая база данных. Scrollbar в TreeView Помогите! Работа с файлами в TIF формате, Открытие и сохранение TIF файлов Обновлён FAQ для скачивания, Версия 2.0 (Более 1700 статей) Закрыть окно, Подтверждение закрытия? коллекция утилит мыш в ComboBox? помогите разобраться со стеком, ошибка при работе стека Delphi 6 Update Packs 1 & 2 высота строки TDBGrid? Проблема с BITBLT Video v Kylix Perform Достойный учебник Массивы Borland Pas и Borl. pas. for windows Где скачать Дельфи??? heapmin,heapmax, что такое Коды ошибок..., недюсь кому-нибудь понадобится Форма поверх другой, Форма поверх другой Глюк с TToolBar, или может TImageList Cерийники биоса и комплектующих мат платы Прокрутка, Прокрутка Коды ошыбок компонента TCustomWinSocket RichEdit, нижний и верхний индексы "Нестандартная форма", "Нестандартная форма" Как Вы относитесь к курящим девушкам? UPX, скачать Перехват сообщений об ошибке Тройной клик, как перехватить *.HLP, Как сделать и запустить? Что писать в HELP'е?, Какие пункты необходимы? |
Платные хостинги Раскрутка сайта Книги по программированию удаление данных, удаление данных
- Народ подскажите как физически удалить данные с таблицы Paradox. Команда Table.delet срабатывает, но надо чтобы физически данные удалялись из файла.Как я понимаю надо использовать упаковку, но как ее реализовать без unit BDE. - А как вы, простите без BDE с Paradox соединились? Добавлено @ 12:37 Это через БДЕ... прям из хелпа выдрал... // Pack a Paradox or dBASE table// The table must be opened exclusively before calling this function...procedure PackTable(Table: TTable);var Props: CURProps; hDb: hDBIDb; TableDesc: CRTblDesc;begin // Make sure the table is open exclusively so we can get the db handle... if not Table.Active then raise EDatabaseError.Create('Table must be opened to pack'); if not Table.Exclusive then raise EDatabaseError.Create('Table must be opened exclusively to pack'); // Get the table properties to determine table type... Check(DbiGetCursorProps(Table.Handle, Props)); // If the table is a Paradox table, you must call DbiDoRestructure... if Props.szTableType = szPARADOX then begin // Blank out the structure... FillChar(TableDesc, sizeof(TableDesc), 0); // Get the database handle from the table's cursor handle... Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb))); // Put the table name in the table descriptor... StrPCopy(TableDesc.szTblName, Table.TableName); // Put the table type in the table descriptor... StrPCopy(TableDesc.szTblType, Props.szTableType); // Set the Pack option in the table descriptor to TRUE... TableDesc.bPack := True; // Close the table so the restructure can complete... Table.Close; // Call DbiDoRestructure... Check(DbiDoRestructure(hDb, 1, @TableDesc, nil, nil, nil, False)); end else // If the table is a dBASE table, simply call DbiPackTable... if (Props.szTableType = szDBASE) then Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE, True)) else // Pack only works on PAradox or dBASE; nothing else... raise EDatabaseError.Create('Table must be either of Paradox or dBASE ' + 'type to pack'); Table.Open;end; - Ключевая функция DbiPackTable.... поищи в хелпе.... - Насколько я знаю, то записи из таблиц Paradox удаляются навсегда, а не так как dBase (только помечаются). Я даже не понимаю, что дает упаковка Paradox-таблиц, может просто сбор мусора? - Ну вот это же из хелпа дельфийского.... Если зажигаются звезды. значит, это кому-нибудь нужно.... - dsergey, записи удаляются, но место, где они были остаётся. упаковка просто уберёт эти пустые места. - Я заполнил несколько таблиц Paradox данными (по несколько тысяч записей), затем сделал удаление."Снял" размеры.Выполнил упаковку."Снял" размеры.Никакой разницы. - Попробуй вызвать RecNo последней записи после удаления... давно было,но я как-то был в шоке, когда таблица с 2 записями выдала 6 000 с чем-то номером последней записи. После этого я начал их паковать....  |