| Структура программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
непонятный процесс сумирования Создание OCX, как? Таблицы Paradox, индексирование Книга "Программированние в Delphi глазами Хакера", Стоит брать или нет ? Нужен доступ к MS SQL Server из Kylix.Как сделать? Модем, Набор модемом Что то запутался Компонент меню Hook, LB_GETCURSEL Open array parameters ???_Как писать на CD_???, Как? Ну очень частые вопросы!, Прошу сюда перед тем как спросить! Копирование записей, Без TBathMove Уменьшаем екзешник Рисование на рабочем столе, Хочу нарисовать часы прямо на обоях 1 человек хвастался: Pen.Style:=psDot при Pen.Width > 1. Как? Как работать с локальной сетиью в Дельфи6, Локальная сеть! Заполняем рандомную хештаблицу вручную, структура данных млин Excel, корректно закрыть файл Как Вы относитесь к курящим девушкам? Hook на клаву..., ^^^помогите^^^ Системное время Открыть документ MS Word, в своем приложении Получения реестра Создать окно и не передавать ему фокус, Окно не должно получить фокус при создан Иконка в таскбаре Помогите друзья!!! Отрубление инета., Как програмно отрубить инет. Список доменов/компьютеров, Как получить Чёто сообразить немогу как найти строку в списке! проверка орфографии через word в delphi Удаленный доступ, Как определить... "Слежка" за изменением системного времени компа MouseState, Передача координат мыши через сокет.. Небольшой взлом, Admin и Windows 2000 Эмулция нажатия кнопок в играх использующих Random, не целых чисел удалённый реестр Буфер обмена, Как очистить? Error, ООП Помогите найти ошибку Определение номера пункта..., в контекстном меню Проводника. Маски, в строке Сервис в NT, как написать? FindWindowEx, <> null Требуется в гриде отобразить строку,а не зн-е поля, Свое отображение в Grid'e DLL, список функций Изменение размеров дочерней формы Свой стиль имен компонентов, используете? Текст на Рабочем столе., Как нарисовать и удалить? Компонент vclskin102, Помогите взломать пожалуйста Использование свойства TAG Какое сообщение ловить, при перерисовке, родителя? АТХ или мать полетел, Как проверить блок питания АТХ Настройка принтера, Без результатно :/ COMMAND.COM в Delphi Более 2-х колонок в DBLookupComboBox, Есть вопрос насчет ширины колонок Downloaded Program Files, Очистка Downloaded Program Files Удалить повторы слов ClientSocket, Ка избежать ошибки ? Млин, как вызвать функцию из DLL? КАК ОЧИСТИТЬ LISTVIEW?, Вот и весь вопрос. программно изменить DNS-cуффикс компьютера? Нужен код программы,переставляющий колонки в гриде, колонки в гриде Индикатор сортировки в гриде, Индикатор сортировки в гриде Как Вы относитесь к курящим девушкам? Paradox, MySQL..., Как всунуть в базу данных картинку? База данных и её регистрация, Регистрация базы данных через Delphi Регистрация своего расширения |
Платные хостинги Раскрутка сайта Книги по программированию Таблицы Paradox, индексирование
- Во время работы приложения выпадает сообщение о нарушении индекса. Таблица Paradox 7.0 имеет семь индексов (включительно с первичным). В этом случае нужна ли реиндексация или требуется удалить все индексы, а затем их заново создать. И еще: как создать первичный ключ описание есть, а как удалить первичный ключ описания нет - подскажите кто-нибудь.Vit посоветовал удалить все файлы с диска кроме *.DB. Как все это сделать програмно, я не имею ввиду совет Vit`a. - Это пример из моей программы, сокращать не стал, если будут вопросы, спрашивай. Код with fLogo do begin if bool then begin lfirst.caption := 'Осуществляется первый запуск приложения'; lfirst.visible := true; try Application.ProcessMessages; lload.Caption := 'Соединение с базой данных..'; Application.ProcessMessages; fdm.DPhone.Connected := True; fDM.tTel.Exclusive := true; lload.Caption := 'Откртие таблицы физических лиц..'; Application.ProcessMessages; fDM.tTel.Open; lload.Caption := 'Создание индексного файла для таблицы физических лиц...'; Application.ProcessMessages; fDm.tTel. AddIndex('Phone','Phone', [ixCaseInsensitive]); fDm.tTel.AddIndex('Name','Name', [ixCaseInsensitive]); fDm.tTel.AddIndex('Street','Street;Home;Kvr', [ixCaseInsensitive]); fDm.tTel.Close; fDM.tTel.Exclusive := false; except fDm.tTel.Close; fDM.tTel.Exclusive := false; MessageBox(0,PChar('Не могу создать индексные файлы для таблицы телефонных номеров физических лиц!'+#13+'Приложение вынуждено завершить свою работу.'),'Критическая ошибка', MB_OK+MB_ICONERROR); exit; end; fDM.tOrg.Exclusive := true; Application.ProcessMessages; lload.Caption := 'Откртие таблицы юридических лиц...'; Application.ProcessMessages; fDM.tOrg.Open; try lload.Caption := 'Создание индексного файла для таблицы юридических лиц...'; Application.ProcessMessages; fDm.tOrg.AddIndex('Phone','Phone', [ixCaseInsensitive]); fDm.tOrg.AddIndex('OrgName','OrgName', [ixCaseInsensitive]); fDm.tOrg.AddIndex('Street','Street;Home', [ixCaseInsensitive]); fDm.tOrg.Close; fDM.tOrg.Exclusive := false; except fDm.tOrg.Close; fDM.tOrg.Exclusive := false; MessageBox(0,PChar('Не могу создать индексные файлы для таблицы телефонных номеров юридических лиц!'+#13+'Приложение вынуждено завершить свою работу.'),'Критическая ошибка', MB_OK+MB_ICONERROR); exit; end; try lload.Caption := 'Откртие таблицы телефонных номеров физических лиц...'; Application.ProcessMessages; fDM.tTel.Open; except MessageBox(0,PChar('Не могу открыть таблицу телефонных номеров физических лиц!'+#13+'Приложение вынуждено завершить свою работу.'),'Критическая ошибка', MB_OK+MB_ICONERROR); Application.Terminate; end; Reg.WriteString('First', 'false'); Reg.CloseKey; Reg.Free; lfirst.visible := false; end else begin try lload.Caption := 'Откртие таблицы телефонных номеров юридических лиц...'; Application.ProcessMessages; fDM.tTel.Open; except MessageBox(0,PChar('Не могу открыть таблицу телефонных номеров юридических лиц!'+#13+'Приложение вынуждено завершить свою работу.'),'Критическая ошибка', MB_OK+MB_ICONERROR); exit; end; end; end; //withhighlightSyntax('delphiVhMmU0','delphi');Два важных момента.1) таблица должны бать открыта в эксклюзивном режиме (fDM.tTel.Exclusive := false);2) 2) в моем примере, я создаю вторичные индексы. но если все создавать с нуля (т.е. предварительно будут удалены индексные файлы Paradox (*.PX, и т.д.), то в первую очередь необходимо создать уникальный первичный индекс.Индексные файлы удалять не требуется в том случае, если ты хочешь просто их пересоздать. - Выпадает сообщение о повреждении первичного индекса. Как мне "отремонтировать" его. Я полагаю, что нужно индеск сначала удалить, а затем создать заново. Создать могу, а как удалить? Вот в чем вопрос.В ответе Pegas`а я не нашел ответа на свой вопрос. Извинете! - Именно так как я и предлагал.1) Закрываем все таблицы2) sesion.active:=false;3) програмно удаляем все файлы кроме DB4) sesion.active:=true;5) Создаём повторно ключи и индексы - А как "но если все создавать с нуля (т.е. предварительно будут удалены индексные файлы Paradox (*.PX, и т.д.)" Vit уже объяснил...  |