corrupt table/index header file xxx.db

[enalbant]

Delphi 7 kullaniyorum, paradoks tablosunda boyle bir hata olustu. database de yaklasik 8000 kayit var. nedeni ne olabilir ?

[hakkus]

Merhabalar,
İndexleriniz bozulmuş olabilir.
Database DeskTop ta tablo nuzu restructure yapın.
İndex lerinizi silin yeniden oluşturun.
Eğer hala düzelmemişse borland ın sitesinden
tutil32d_package isimli programı indirin bununla tablo nuzu tamir edin.
Kolay gelsin.

[mege]

benim programdadqa böyle bir problem vardı.. paradoxda zırt pırt headerlar uçuyordu.. sonunda çözümü programın içinden otomatik olarak index kurtarmayı ekleme bullduk..
eğer index hatası varsa:

Kod: Tümünü seç

Table.Close;
str := Table.TableName;
Delete(str,Pos('.',str),3);
DeleteFile(PChar(AliasPath+'\' + Str + '.px'));
DeleteFile(PChar(AliasPath+'\' + Str + '.xg0'));
DeleteFile(PChar(AliasPath+'\' + Str + '.yg0'));
DeleteFile(PChar(AliasPath+'\' + Str + '.xg1'));
DeleteFile(PChar(AliasPath+'\' + Str + '.yg1'));
Table.AddIndex('Prim','XXXXXNo;XXXNo;YYYYNo;Tarih;ZZZZZNo',[ixPrimary]);
Table.AddIndex('XNo','XXXXXNo',[ixCaseInSensitive]);
Table.Open;
Table.Close;