paradox的问题(急)(50分)

  • 主题发起人 主题发起人 happyloner
  • 开始时间 开始时间
H

happyloner

Unregistered / Unconfirmed
GUEST, unregistred user!
我给别人做的一个小系统,用的是paradox数据库,但最近有一个数据表坏了
提示是: corrupt table/index(s) header
怎么也打不开?
请问这是什么错误?可以恢复以前的数据吗?
可能是数据库大小问题吗?但仅有1.43M啊!
 
有可能恢复。
先删除不能打开库的索引文件。如果还不能打开,则用工具ATABREPP
http://vcl.vclxx.org/DELPHIGB/AAAT1022.HTM

 
可能是你用了很多table对数据库操作吧?这样paradox最容易坏了,楼上的工具可以
修复的
 
呵呵,我想我可能也要用到了
 
我也遇到过,可以试一试上面的工具。
 
现在有一个Paradox数据库因为突然掉电,坏了。

PARADOX数据库(.DB)在用DESKTOP打开时,出现
"CORRUPT TABLE/INDEX Header",不能OPEN。

我查阅过此类问题的解决方案,以修复工具PDXRBLD修复成功率最高。
可我在运行此软件的时候出现:
数据修复工具版本不匹配
我用的的DELPHI6企业版,在WIN2000下
大侠是否遇见此类情况。给个解决方案。

因程序急需修复,请多多帮忙。 二百分相送!!!!!
 
先删除不能打开表的索引文件
再重建索引
如Table1.addIndex
procedure RepairIndex(TableName:string);
var IndexFileName:string;
DataBaseName:string;
temp:string;
begin
DataBaseName:=ExtractFileDir(application.ExeName)+'/data/'+ChangeFileExt(TableName,'.DB');
if FileExists(DataBaseName)
then begin
{删除原来的索引}
IndexFileName:=ExtractFileDir(application.ExeName)+'/data/'+ChangeFileExt(TableName,'.PX');
if FileExists(IndexFileName)
then begin
DeleteFile(IndexFileName)
end;
{建立新索引}
Table1.TableName:=TableName;
Table1.AddIndex('','编号',[ixPrimary,ixUnique]);
end
else begin
temp:='数据库错误,缺少文件“' + DataBaseName + '”,不能为“'+TableName+'”修复索引!';
MessageDlg(temp, mtError, [mbOk], 0);
is_Success:='false';
end;
end;
 
后退
顶部