压缩带密码的access数据库(100分)

  • 主题发起人 主题发起人 ugvanxk
  • 开始时间 开始时间
U

ugvanxk

Unregistered / Unconfirmed
GUEST, unregistred user!
假设此数据库的密码是 idlehagar

use JRO_TLB;
procedure CompactMdb;
const sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;';
var oJetEng: JetEngine;
 sOldMdb, sNewMdb: string;
begin
 sOldMdb := sProvider + 'Data Source=' + 'C:/Database/Test.mdb;'
  + 'Jet OLEDB:Database Password=idlehagar';
 sNewMdb := sProvider + 'Data Source=' + 'C:/Test.mdb;'
  + 'Jet OLEDB:Database Password=idlehagar';
 try
  try
   oJetEng := CoJetEngine.Create;
   oJetEng.CompactDatabase(sOldMdb, sNewMdb);
   if FileExists('C:/Test.mdb') then begin
    CopyFile('C:/Test.mdb', 'C:/Database/Test.mdb', False);
    DeleteFile('C:/Test.mdb');
  end;
  except
   on E: Exception do
    showmessage('Compact database failed');
  end
 finally
  oJetEng := nil;
 end;
end;
提示jro_tlb没有找到,到哪里找,其他的办法。
压缩,备份,恢复
 
http://wolfsoft.nugoo.com/
 
重要注意:
1- 在你的uses语句中加入JRO_TLB单元。
2- 在压缩的过程中,其它人不能打开或使用数据库。
3- 如果你的编译器报告没有找到JRO_TLB单元,就按以下步骤去做:
a) 在Delphi IDE中选择Project - Import Type Library.
b) 往下翻直到你找到“Microsoft Jet and Replication Objects 2.1 Library”.
c) 点击Install按钮
d) 重新编译
我在上面网站找到,但我在d6下运行,都是2。5,2。6版本,编译通不过,提示
[Error] JRO_TLB.pas(656): Cannot assign to a read-only property
那位帮我修改编译通过
 
/////////////////////////////////////////////////////下面是一个最好用的办法——侯雪冬


看到很多富翁提出类似问题,给出一个比较好的解决方法
第一个参数为原始数据库文件名(完整路径),第二个参数为密码
修改后可以实现压缩后与压缩前有不同的密码!
//引用ComObj,ActiveX
function CompactDatabase(AFileName,APassWord:string):boolean;
//压缩与修复数据库,覆盖源文件
const
SConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
+'Jet OLEDB:Database Password=%s;';
var
SPath,SFile:Array [0..254] Of Char;
STempFileName:String;
JE:OleVariant;
begin
GetTempPath(40,SPath);//取得Windows的Temp路径
GetTempFileName(SPath,'~CP',0,SFile);//取得Temp文件名,Windows将自动建立0字节文件
STempFileName:=SFile;//PChar->String
DeleteFile(STempFileName);//删除Windows建立的0字节文件
try
JE:=CreateOleObject('JRO.JetEngine');//建立OLE对象,函数结束OLE对象超过作用域自动释放
OleCheck(JE.CompactDatabase(format(SConnectionString,[AFileName,APassWord]),
format(SConnectionString,[STempFileName,APassWord])));//压缩数据库
//复制并覆盖源数据库文件,如果复制失败则函数返回假,压缩成功但没有到函数的功能
result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);
DeleteFile(STempFileName);//删除临时文件
except
result:=false;//压缩失败
end;
end;
 
to ugvanxk:

http://www.delphibbs.com/delphibbs/dispq.asp?lid=577790
 
看我的,程序一直在用!mdb带mdw文件
procedure TF_Main.CompressClick(Sender: TObject);
var
jt:TJetEngine;
pnstr:string;
SourceDatabase:WideString;
TargatDatabase:WideString;
begin
F_DataModule.ADOCon.Close;
if FileExists(Copy(Trim(F_DataModule.DataIniFile.ReadString('InitData','DataPath', '')),0,Length(Trim(F_DataModule.DataIniFile.ReadString('InitData','DataPath', '')))-3)+'ldb') then
begin
ShowWIE(2,'系统数据文件被打开(请关闭),不能压缩数据!');
F_DataModule.ADOCon.Open;
exit;
end;
Screen.Cursor:=crHourGlass;
if FileExists('Temp.mdb') then DeleteFile('Temp.mdb');
SourceDatabase:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'Password=P5Xzy2Lj066;User ID=PINEWOOD;'+
'Data Source='+F_DataModule.DataIniFile.ReadString('InitData','DataPath', '')+';'+
'Persist Security Info=True;'+
'Jet OLEDB:System database='+ExtractFilePath(Trim(F_DataModule.DataIniFile.ReadString('InitData','DataPath', '')))+'SM.mdw';
TargatDatabase:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'Password=P5Xzy2Lj066;User ID=PINEWOOD;'+
'Data Source=Temp.sms';
try
jt:=TjetEngine.Create(self);
try
jt.CompactDatabase(SourceDatabase,TargatDatabase);
DeleteFile(F_DataModule.DataIniFile.ReadString('InitData','DataPath', ''));
RenameFile('Temp.sms',F_DataModule.DataIniFile.ReadString('InitData','DataPath', ''));
ShowWIE(2,'系统数据压缩成功!');
except
ShowWIE(2,'系统数据压缩失败!');
end;
finally
jt.free;
F_DataModule.ADOCon.Open;
Screen.Cursor:=crDefault;
end;
end;
 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1268352
 
多人接受答案了。
 
后退
顶部