Access2000的数据库文件如何加密码？ADO中如何访问？

Question

类似的问题以前好像也有人提过，我看了还是不能解决我 的问题：
1。给一个已经存在的.MDB数据库文件加个密码
2。在VC＋ADO＋Access2000的方式如何访问带密码的数据库？
问题解决就结贴！

Answer 1

2.    _ConnectionPtr m_pConn;
    CString m_sConn="Provider=Microsoft.Jet.OLEDB.4.0.1;Data Source=d:\\db1.mdb";
    m_pConn.CreateInstance("ADODB.Connection");
    try
    {
        HRESULT hr=m_pConn->Open((_bstr_t)m_sConn,"用户名","密码",adConnectUnspecified);    
        if (FAILED(hr))
        {
            AfxMessageBox("不能连接数据库 source!");
            return FALSE;
        }
    }
    catch(_com_error e)
    {
        AfxMessageBox("不能连接数据库 error!");
        return FALSE;
    }

Answer 2

1.你是说用程序的办法来给mdb文件加密码吗？帮你找点资料，我没有做过。

Answer 3

1 ALTER DATABASE PASSWORD [456] [123]

Answer 4

直接在程序里执行上面的语句就是
m_pConnection->Execute("ALTER DATABASE PASSWORD [456] [123] ",NULL,adCmdText);

Answer 5

to  laiyiling(最熟悉的陌生人) 
你说的方法我试了，总是失败啊

Answer 6

2 
m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=Cb_DATA.mdb;Jet OLEDB:DataBase Password=123;Mode=Share Deny Read|Share Deny Write","","",adModeUnknown);

Answer 7

你用密码可以搜到很多帖子，这个方法是用过的，可以行
http://community.csdn.net/Expert/topic/3102/3102757.xml?temp=.7488825

Answer 8

提示错误：无效的SQL语句，期待：SELECT、UPDATE、INSERT等
怎么解决啊？

Answer 9

问题解决了，小节一下：
1。给没有密码的数据库添加密码：
hr = m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=d:\\DB\\REMO.mdb;Mode=Share Deny Read|Share Deny Write", "","",0);
m_pConnection->Execute("ALTER DATABASE PASSWORD [123] NULL",NULL,adCmdText);
以上是设置密码为123
2。将密码123改为456：
hr = m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=d:\\DB\\REMO.mdb;Jet OLEDB:DataBase Password=SANYCOM;Mode=Share Deny Read|Share Deny Write","","",0);
m_pConnection->Execute("ALTER DATABASE PASSWORD [456] [123]",NULL,adCmdText);
注意和1。中的不同：Open的第一个参数中多了密码部分，这样才能正常开发数据库注意：open中的第一个参数中的Data Source＝完整路径\文件名.mdb（没有完整路径open失败）
3。访问有密码的数据库
方法一：
hr = m_pConnection->Open("DSN=REMO","Admin","456",0);//其中REMO为数据源，合适数据源存在的情况，当然如果open失败可以重新设置数据源（见后面）
方法二：
hr = m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=d:\\DB\\REMO.mdb;Jet OLEDB:DataBase Password=SANYCOM;Mode=Share Deny Read|Share Deny Write","","",0);
注意：第2，3个参数为空，参数值已经在第一个参数里了，缺点：数据源位置在程序中写死了，不好，最好动态获得数据库文件位置，用GetModuleFileName（）很方便的
4。在程序中设置数据源的方法：
//设置数据库文件的位置在SMC的上一目录
//-----------------------------------------------------------
CString sPath;
//得到可执行程序的完整路径和程序名
GetModuleFileName(NULL,sPath.GetBufferSetLength(MAX_PATH+1),MAX_PATH);
sPath.ReleaseBuffer ();
// AfxMessageBox(sPath);
int nPos;
nPos=sPath.ReverseFind ('\\');
sPath=sPath.Left (nPos);
// nPos=sPath.ReverseFind('\\');
// sPath=sPath.Left (nPos);
//得到数据库文件的路径和文件名
CString lpszFile = sPath + "\\REMO.mdb";
m_strFilePath = lpszFile;
   
char* szDesc;
int mlen;
szDesc=new char[256];
sprintf(szDesc,"DSN=%s? DESCRIPTION=远程车载控制数据源? DBQ=%s? FIL=MicrosoftAccess? DEFAULTDIR=%s?? ","REMO",lpszFile,sPath);

//AfxMessageBox(szDesc);
mlen = strlen(szDesc);
    for (int i=0; i<mlen; i++)
{
if (szDesc[i] == '?')
szDesc[i] = '\0';
} //AfxMessageBox(szDesc);
if (FALSE == SQLConfigDataSource(NULL,ODBC_ADD_SYS_DSN,"Microsoft Access Driver (*.mdb)\0",(LPTSTR)szDesc))
{
MessageBox("创建数据源失败，程序将退出。请手动设置数据源。","警告",MB_ICONHAND| MB_ICONSTOP| MB_ICONERROR);
//---2004.6.7---add--start--//
//弹出ODBC配置窗口，进行设置
char cWinPath[MAX_PATH];
GetWindowsDirectory(cWinPath,MAX_PATH);
CString strWinPath = (CString)cWinPath + "\\system32\\odbcad32.exe";
try{WinExec(strWinPath,1);}
catch(_com_error e)
{
AfxMessageBox(e.Description());
}
//---2004.6.7---add---end-//
PostQuitMessage(0);
}
delete szDesc;就这些了，错误的地方请大家指出，有更好的方法继续告诉我。
谢谢各位了。

Answer 10

补充：2。中的PASSWORD应该为456，写错 了：）
配置数据源函数SQLConfigDataSource（）需要#include <odbcinst.h>支持。