2,497
社区成员
发帖
与我相关
我的任务
分享使用DAO的CompactDatabase,当ACCESS数据库加有密码时应该怎样写?
当去掉密码时正常,有密码同则会报错:提示密码不正确.
多谢!
多谢!
...全文
请发表友善的回复…
发表回复
Snakeguo 2002-04-24
- 打赏
- 举报
IUPRG(爱情停电，遨游苦读中):
ole_tmp是做什么用的?
ole_tmp是做什么用的?
安优小青和他的程序生活 2002-04-22
- 打赏
- 举报
procedure TF_main.N_COMPRESSClick(Sender: TObject);
var ole_tmp:olevariant;
src_file,des_file,app_path:string;
begin
engine:=codbengine.create;
dtmd1.Database1.Connected :=false;
app_path:=copy(application.exename,1,length(application.exename)-16);
if copy(app_path,length(app_path),1)='\' then
app_path := copy(app_path,1,
length(app_path)-1);
src_file:=app_path+'\data\ENGINER.mdb';
des_file:=app_path+'\data\!~tmp.mdb';
engine.CompactDatabase(src_file,des_file,ole_tmp,ole_tmp,';pwd=*&^rfv');
deletefile(src_file);
renamefile(des_file,src_file);
messagedlg('数据压缩完毕！',mtinformation,[mbok],0);
dtmd1.Database1.Connected :=true;
dtmd1.Tbl_system.Open;
// engine._Release ;
end;
var ole_tmp:olevariant;
src_file,des_file,app_path:string;
begin
engine:=codbengine.create;
dtmd1.Database1.Connected :=false;
app_path:=copy(application.exename,1,length(application.exename)-16);
if copy(app_path,length(app_path),1)='\' then
app_path := copy(app_path,1,
length(app_path)-1);
src_file:=app_path+'\data\ENGINER.mdb';
des_file:=app_path+'\data\!~tmp.mdb';
engine.CompactDatabase(src_file,des_file,ole_tmp,ole_tmp,';pwd=*&^rfv');
deletefile(src_file);
renamefile(des_file,src_file);
messagedlg('数据压缩完毕！',mtinformation,[mbok],0);
dtmd1.Database1.Connected :=true;
dtmd1.Tbl_system.Open;
// engine._Release ;
end;
