| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Восстановление индексов [D6, Paradox]
Новичок в СУБД © (2003-04-23 09:14:00)Как программно восстановить индекс (индексы) таблицы Paradox.
dbiRegenIndexesне срабатывает :-(
try
MainDM.CustomersTbl.Active:=True;
except
MainDM.CustomersTbl.Exclusive:=True;
MainDM.CustomersTbl.RegenIndexes(MainDM.CustomersTbl.Handle);
MainDM.CustomersTbl.Active:=True;
end;
Новичок в СУБД (2003-04-23 13:12:00) [1]>> Dred2k © (23.04.03 12:34)
Спасибо.
>> Anatoly Podgoretsky © (23.04.03 12:48)
Я что-то не так указал?
Anatoly Podgoretsky (2003-04-23 12:48:00) [2]Кстати поле имя служит для указания имени или ника, а тема именно для темы сообщения, неудивляйся если не увидишь своих сообщений
Dred2k (2003-04-23 12:34:00) [3]Это - яркий пример из RXLib.BdeUtils (поставь RX - пригодится!).
Если не поможет, значит таблица требует восстановления (см. http://www.delphimaster.ru/cgi-bin/forum.pl?look=1&id=1051083074&n=1)
procedure ReindexTable(Table: TTable);
var
WasActive: Boolean;
WasExclusive: Boolean;
begin
with Table do begin
WasActive := Active;
WasExclusive := Exclusive;
DisableControls;
try
if not (WasActive and WasExclusive) then Close;
try
Exclusive := True;
Open;
Check(dbiRegenIndexes(Handle));
finally
if not (WasActive and WasExclusive) then begin
Close;
Exclusive := WasExclusive;
Active := WasActive;
end;
end;
finally
EnableControls;
end;
end;
end;
Новичок в СУБД (2003-04-23 11:45:00) [4]Премного благодарен.
Term (2003-04-23 11:23:00) [5]не знаю это правильно или нет, но попробуй сначала
Table.DeleteIndex(), а после снова Table.AddIndex(),токо исключения расставь.
Хотя есть утилитка,
поищи в инете pdxrbld ver 4 или выше
Новичок в СУБД (2003-04-23 11:03:00) [6]Ведь кто-то же знает решение!
Сами мы не местные, поможите люди добрые.
У кого есть такая возможность.
Кто советом, кто ссылочкой.
:-)
| |
