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 "), (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 "), (char*) e.ErrorMessage());
  AfxMessageBox(errMsg);
  pRs->Close();
  pConn->Close();
  ::CoUninitialize();
  return;
 }

 CoUninitialize();