C++ Builder修改Access数据库密码

最新推荐文章于 2021-05-18 03:03:40 发布

小字

最新推荐文章于 2021-05-18 03:03:40 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

文章标签： access 数据库 c++ database button sql

本文链接：https://blog.youkuaiyun.com/luxer_1985/article/details/7264601

本文介绍了一个利用OLE方法实现Access数据库文件的迁移，并更改其密码的过程。通过设置正确的Provider参数，实现了在不破坏原有数据的情况下，将源数据库文件重定向到新的位置，并更改数据库密码。此方法避免了直接使用SQL语句或ADOQuery控件修改密码时遇到的错误提示，提供了一种较为稳定的解决方案。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString   f1= "AccoutMe.mdb ";           //   源库1
    AnsiString   psw1= "123456";                //   密码1，若设置错误也会报“意外错误”
    AnsiString   f2= "AccoutMe_new.mdb ";       //   源库2
    AnsiString   psw2= "abc";                   //   新密码2
    bool flg_Success = false;

    AnsiString   dir = ExtractFilePath(Application-> ExeName);
    f1=dir+f1;                              //新数据库绝对路径
    f2=dir+f2;

    if (FileExists( f2 ) )      //若目标文件已存在，先删除
            DeleteFileA(f2);

    char Provider1[512] = { 0 }, Provider2[512] = { 0 };

    sprintf(Provider1,
            "Provider=Microsoft.Jet.OLEDB.4.0;"
             "Data Source='%s';"
             "Jet OLEDB:Database Password='%s'" , f1, psw1
           );

//    sprintf(Provider2,
//            "Provider=Microsoft.Jet.4.0.OLE DB.Provider;"
//            "Data Source='%s';"
//            "Jet OLEDB:Database Password='%s'"
//            , f2, psw2
//            );   // 注意提供正确的Provider写法，否则提示“意外错误”

    sprintf(Provider2,
            "Provider=Microsoft.Jet.OLEDB.4.0;"
            "Data Source='%s';"
            "Jet OLEDB:Database Password='%s'" , f2, psw2
           );

    Variant Adoobj = Variant::CreateObject( "JRO.JetEngine");
    
    try
    {
        Adoobj.OleProcedure( "CompactDatabase", WideString(Provider1), WideString(Provider2) );

        if (FileExists(f1))
            DeleteFileA(f1);

        RenameFile(f2, f1);

        flg_Success = true;
    }
    __finally
    {
        Adoobj.Clear();
        Adoobj = Unassigned;
    }
    ShowMessage( BoolToStr(flg_Success, true) ) ;

}

这是OLE的方法，由于代码较简洁就不多写注释了。

原帖子见：http://topic.youkuaiyun.com/u/20120214/17/6bde8f44-3afb-4f8d-afc1-f971c879e3d9.html

特别感谢老妖！

PS：

OLE报错太不友好了。

不论是用独占方式打开ACCESS用SQL语句ALTER DATABASE PASSWORD "旧密码" "新密码"，

还是用ADOQuery等控件，设置独占打开方式和 ADO 控件的SQL属性为"alter…………"修改ACCESS密码，都没有成功。

调试中ing...