关于ADO使用的问题(Access2000数据库)(50分)

  • 主题发起人 主题发起人 fookk
  • 开始时间 开始时间
F

fookk

Unregistered / Unconfirmed
GUEST, unregistred user!
近来,我用Access2000为数据库编写了一个使用ADO组建的程序,我为了数据安全为
Access数据库设置密码,防止非法用户使用Access打开数据库,造成安全隐患。Access
数据库设置密码需要以独占方式打开,设置密码后,用TAdoTable控件的connectionstring
进行设置,测试无法连接数据库。
系统提示:改数据库已被其它程序以独占方式使用。
这是为什么?我一直搞不明白,请各位高手指教,内容要详细。
怎样才能实现我的目的?
 
access的密码填写比较特殊。
需要到
all/Jet OLEDB:Database Password
里面填写。
 
其它程序
//关掉Access2000,delphi ......
 
远帆说得不错!正确
 
如远帆所说的那样呀
 
首先用access给数据为加个密码。
然后退出access.再在ado的连接向导
中如远帆说的那样。测试连接就应该是
成功的。
 
hbezwwl说的对.我以前的程序就是这样作的.保证没问题.
 
如远帆所说的那样
 
我的程序里面用到的,仔细找找第五行!
query.Destroy;
screen.Cursor := crHourGlass;
dao := CreateOleObject('DAO.DBEngine.36');
//access2000要用dao3.6,在access97上用35和36都可以
dao.CompactDatabase( maindir + '/fileindex.mdb', maindir + '/temp.mdb','',0,';pwd=comeon'); //****重点****
DeleteFile(maindir + '/fileindex.mdb');
RenameFile(maindir + '/temp.mdb', maindir + '/fileindex.mdb');
screen.Cursor := crDefault;
application.MessageBox('数据库碎片清理完成!', '数据库碎片清理', MB_OK + MB_ICONINFORMATION);
createquery;
 
多人接受答案了。
 
后退
顶部