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

图像处理学习的一些心得

ado方式访问带密码数据库的方法    taianmonkey（原作） 
  
关键字     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();