MFC +ADO+Access+PHOTO 的使用总结

新建MFC 程序

在头文件中加入#import   "C:\Program Files\Common Files\System\ADO\msado15.dll" no_namespace  rename( "EOF","EndOfFile")

在APP中加入 _ConnectionPtr   pMyConnect;
 _RecordsetPtr  m_pRecordset;

 

 extern CPicToDbApp theApp;

//onOK()函数

 WIN32_FIND_DATA FindFileData;
 int iCount=1;
 HANDLE hFind;
 DWORD dwError;
 CString FileName;
    m_time=0;
 UpdateData(FALSE);

 //初始化ADO
    InitADO();
  
    //查找文件写入数据库
    clock_t start = clock();

 hFind = FindFirstFile(m_eopen+"\\"+"*.jpg", &FindFileData);
 if (hFind == INVALID_HANDLE_VALUE)
 {
  m_output.Format("FindFirstFile failed (%d)\n",GetLastError());
  GetDlgItem(IDC_BUTTON)->EnableWindow(true);
     GetDlgItem(IDOK)->EnableWindow(true);
  UpdateData(FALSE);
  return;
 }
 m_output.Format("正在保存第%d个文件...",iCount);
 UpdateData(FALSE);
  

    FileName=m_eopen+"\\"+FindFileData.cFileName;
    theApp.PicToAccess(FileName);

 //将数据存入数据库中
 double d;
 while (FindNextFile(hFind,&FindFileData) != 0)
 {
  FileName=m_eopen+"\\"+FindFileData.cFileName;
  m_output.Format("正在保存第%d个文件...",iCount); 
  
        //有点闪烁

        UpdateData(FALSE);
  iCount++;
  
  theApp.PicToAccess(FileName);
    } 

   
    m_output.Format("总共写入了%d个文件",iCount);
 
 clock_t end = clock();
 d = (double)( end - start ) / CLOCKS_PER_SEC;
 m_time=d;

 GetDlgItem(IDC_BUTTON)->EnableWindow(true);
 GetDlgItem(IDOK)->EnableWindow(true);
 UpdateData(FALSE);

 //错误处理
 dwError = GetLastError();
 FindClose(hFind);
 if (dwError!= ERROR_NO_MORE_FILES)
 {
  m_output.Format("FindNextFile error. Error is %u\n", dwError);
  return;
    }

 theApp.m_pRecordset->Close();
 theApp.m_pRecordset=NULL;

 

 

void CPicToDbDlg::OnCancel()
{

 if(theApp.pMyConnect)
 {
  theApp.pMyConnect->Close();
  theApp.pMyConnect=NULL;
 }
 CDialog::OnCancel();
}

void InitADO()
{
 HRESULT   hr=theApp.pMyConnect.CreateInstance(__uuidof(Connection));
 if(FAILED(hr))return;
 //打开数据库
 try{
  theApp.pMyConnect->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dbpicture.mdb","","",adModeUnknown);
  
 }
 catch   (_com_error &e)
 {
  ::MessageBox(NULL,e.Description(), "警告 ",MB_OK|MB_ICONWARNING);
 }
 
 
    try
 {
  theApp.m_pRecordset.CreateInstance("ADODB.Recordset");
  theApp.m_pRecordset->Open("SELECT * FROM sheet1",theApp.pMyConnect.GetInterfacePtr(),\
   adOpenStatic,adLockOptimistic,adCmdText);
  
 }
 ///捕捉异常
 catch(_com_error e)
 {
  AfxMessageBox("读取数据库失败!");
 }
}