ADO访问Access数据库错误解决心得随笔

最近在用ADO访问Access数据库的时候出现了一个奇怪的错误,觉得有必要记录下来,和大家分享一下。

  1. 环境
    1. win7 x86系统;

    2. VS2012编译器;

    3. Office2010;

    4. Access2000~Access2003连接串建立数据库连接。

  2. 关键数据库操作代码
    1. BOOL CAccessDatabase::Query(const CString strSQLString, UINT nFieldNumber, vector<vector<_variant_t> >& vecvecVariant)
      {
      _variant_t Variant;
      vector<_variant_t> vecVariant; EnterCriticalSection(&m_cs); _RecordsetPtr pRecordset = NULL;
      HRESULT hr = S_FALSE;
      try
      {
      hr = pRecordset.CreateInstance(_T("ADODB.Recordset"));
      if (SUCCEEDED(hr))
      {
      hr = pRecordset->Open(strSQLString.AllocSysString(), m_pConnection.GetInterfacePtr(), adOpenDynamic, adLockOptimistic, adCmdText);
      if (SUCCEEDED(hr))
      {
      if (!pRecordset->adoEOF)
      {
      hr = pRecordset->MoveFirst();
      if (SUCCEEDED(hr))
      {
      while (!(pRecordset->adoEOF))
      {
      vecVariant.clear();
      for (UINT i = ; i < nFieldNumber; ++i)
      {
      ZeroMemory(&Variant, sizeof(Variant));
      Variant = pRecordset->GetCollect(_variant_t((long)i));
      vecVariant.push_back(Variant);
      }
      vecvecVariant.push_back(vecVariant); hr = pRecordset->MoveNext();
      }
      }
      else
      {
      m_pLogFile->WriteLog(GetLastError(), _T("移动记录集指针到首部发生错误")); if (pRecordset->GetState() != adStateClosed)
      {
      hr = pRecordset->Close();
      if (FAILED(hr))
      {
      m_pLogFile->WriteLog(GetLastError(), _T("关闭记录集失败"));
      }
      else
      {
      m_pLogFile->WriteLog(GetLastError(), _T("记录集已关闭"));
      }
      } if (pRecordset != NULL)
      {
      pRecordset.Release();
      pRecordset = NULL;
      }
      LeaveCriticalSection(&m_cs);
      return FALSE;
      }
      }
      else
      {
      m_pLogFile->WriteLog(GetLastError(), _T("查询的记录集为空"));
      }
      }
      else
      {
      m_pLogFile->WriteLog(GetLastError(), _T("打开记录集失败")); if (pRecordset != NULL)
      {
      pRecordset.Release();
      pRecordset = NULL;
      }
      LeaveCriticalSection(&m_cs);
      return FALSE;
      }
      }
      else
      {
      m_pLogFile->WriteLog(GetLastError(), _T("初始化记录集失败")); pRecordset = NULL;
      LeaveCriticalSection(&m_cs);
      return FALSE;
      }
      }
      catch (_com_error e)
      {
      m_pLogFile->WriteLog(e.ErrorMessage());
      AfxMessageBox(e.ErrorMessage());
      LeaveCriticalSection(&m_cs);
      return FALSE;
      } if (pRecordset->GetState() != adStateClosed)
      {
      try
      {
      hr = pRecordset->Close();
      if (FAILED(hr))
      {
      m_pLogFile->WriteLog(GetLastError(), _T("关闭记录集失败"));
      }
      else
      {
      m_pLogFile->WriteLog(GetLastError(), _T("记录集已关闭"));
      }
      }
      catch (_com_error err)
      {
      m_pLogFile->WriteLog(err.ErrorMessage());
      AfxMessageBox(err.ErrorMessage());
      }
      } if (pRecordset != NULL)
      {
      pRecordset.Release();
      pRecordset = NULL;
      } LeaveCriticalSection(&m_cs); return TRUE;
      }
  3. 数据库调用代码
    1.     if (!Database.Query(_T("select ZoneName from Zone"), , vecvecZone))
      {
      LogFile.WriteLog(GetLastError(), _T("从数据库中获取客户端名称失败"));
      AfxMessageBox(_T("从数据库中获取客户端名称失败"));
      return;
      }
  4. 错误问题
    1. 程序在Query里面产生了异常。在调用pRecordset->Open(...)的时候产生了异常,异常错误信息是“未指定的错误”;
    2. 将调用的Sql语句放到Access数据库中可以正确执行。
  5. 解决办法
    1. 将数据库的表名"Zone"修改为"MyZone"等其它名称即可。
  6. 总结
    1. 在编程访问Access数据库时表名不能为"Zone"。
  7. 代码上传
    1. 下载连接:http://pan.baidu.com/s/1mgFlOqk
上一篇:x64 win64编译环境下ADO链接Access数据库的问题解决


下一篇:PHP判断字符串中是否包含指定字符串,支持中文哦