2,209
社区成员
发帖
与我相关
我的任务
分享请教使用DAO来修改access密码
各位老师，我想在delphi中调用dao来将access2000的数据库密码由a变成b，主代码如下：
var Dao:OleVariant;
temp:olevariant;
begin
Dao:=CreateOleObject('Dao.DbEngine.36');
temp:=dao.opendatabase('d:\data.mdb',,false,';pwd=a');
temp.newPassword('a','b' );
end;
但第二行始终通不过，望回信给予启示。谢谢
var Dao:OleVariant;
temp:olevariant;
begin
Dao:=CreateOleObject('Dao.DbEngine.36');
temp:=dao.opendatabase('d:\data.mdb',,false,';pwd=a');
temp.newPassword('a','b' );
end;
但第二行始终通不过，望回信给予启示。谢谢
...全文
请发表友善的回复…
发表回复
zhucde 2003-10-31
- 打赏
- 举报
(VC,不懂Delphi)
方法一:试试下面的代码:
DAODBEngine* pDBEngine = AfxDaoGetEngine();
ASSERT(pDBEngine != NULL);
COleVariant varUserName (strUserName, VT_BSTRT);
COleVariant varPassword (strPassword, VT_BSTRT);
DAO_CHECK(pDBEngine->put_DefaultUser (V_BSTR(&varUserName));
DAO_CHECK(pDBEngine->put_DefaultPassword (V_BSTR(&varPassword));
方法二:你可以使用CDaoDatabase的Open方法来打开:
MyDaoDatabase->Open("C:\MyDatabaseFile.mdb",FALSE,FALSE,";PWD=MyPassWord");
方法一:试试下面的代码:
DAODBEngine* pDBEngine = AfxDaoGetEngine();
ASSERT(pDBEngine != NULL);
COleVariant varUserName (strUserName, VT_BSTRT);
COleVariant varPassword (strPassword, VT_BSTRT);
DAO_CHECK(pDBEngine->put_DefaultUser (V_BSTR(&varUserName));
DAO_CHECK(pDBEngine->put_DefaultPassword (V_BSTR(&varPassword));
方法二:你可以使用CDaoDatabase的Open方法来打开:
MyDaoDatabase->Open("C:\MyDatabaseFile.mdb",FALSE,FALSE,";PWD=MyPassWord");
