ado方式访问带密码数据库的方法

主要代码：

CString strSql;

TCHAR FileName[MAX_PATH],errMsg[MAX_PATH];

::CoInitialize(NULL); //初始化Com

IADORecordBinding *picRs = NULL;

_RecordsetPtr pRs("ADODB.Recordset");

_ConnectionPtr pConn("ADODB.Connection" );

//CFootballTeamRs rsFootballTeam;

GetModuleFileName(NULL,FileName,MAX_PATH);

(_tcsrchr(FileName,'\\'))[1] = 0;

lstrcat(FileName,_T("pass.mdb"));

strSql = strSql +

"Provider=Microsoft.Jet.OLEDB.4.0;" +

"Data Source = " +

FileName +

";Persist Security Info=False;Jet OLEDB:Database Password=cd;";

//pConn->ConnectionString = chDataSource;

//pConn->Provider = _T("Microsoft.Jet.OLEDB.4.0");

CString sqlSentence = _T("select * from pass");

try

{

pConn->Open((_bstr_t)strSql, "", "", adModeUnknown);

pRs->QueryInterface(

__uuidof(IADORecordBinding), (LPVOID*)&picRs);

pRs->Open( (_variant_t)sqlSentence, // 查询DemoTable表中所有字段

pConn.GetInterfacePtr(), // 获取库接库的IDispatch指针

adOpenDynamic,

adLockOptimistic,

adCmdText);

}

catch (_com_error &e)

{

sprintf(errMsg,_T("Code meaning = %s\n"), (char*) e.ErrorMessage());

AfxMessageBox(errMsg);

pRs->Close();

pConn->Close();

::CoUninitialize();

return;

}

try

{

while(!(pRs->EndOfFile))

{

CString pass = (LPCTSTR)(_bstr_t)pRs->GetCollect("pass");

if(pass.IsEmpty()) return;

SetDlgItemText(IDC_PASS,pass);

pRs->MoveNext();

//break;

}

pRs->Close();

pConn->Close();

}

catch (_com_error &e)

{

sprintf(errMsg,_T("Code meaning = %s\n"), (char*) e.ErrorMessage());

AfxMessageBox(errMsg);

pRs->Close();

pConn->Close();

::CoUninitialize();

return;

}

CoUninitialize();