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();