程序博客网 > 蜂群算法的优点

Ado + CArchive 保存对象至数据库

来源：互联网 发布：蜂群算法的优点 编辑：程序博客网 时间：2024/04/30 20:31

     需要将一个完整的对象保存到数据库中，一来可以充分利用已有的序列化函数，二来方便利用数据库。

     网上找了一些代码，很郁闷的是，要么调试不通，要么内存泄漏。

     自己调通了也没有泄漏，附上部分代码，因为移植稍微改了点东西，可能会有小毛病，没法测，应该不会是大碍。

 

 

    

 

 

BOOL Carfieldlee::SaveOBJ()
{
 ADODB::_ConnectionPtr       pConnection;
 ADODB::_RecordsetPtr        pRecordset;   //各个列的集合
 _variant_t RecordsAffected;

 CString strPath = _T("");;
 CString strFile = _T("波妞.mdb");
 CString DBName=_T("Provider=Microsoft.JET.OLEDB.4.0;Data source=");
 DBName=DBName+strPath+strFile;
 pConnection.CreateInstance(__uuidof(ADODB::Connection));
 pRecordset.CreateInstance(__uuidof(ADODB::Recordset)); //为Recordset对象创建实例
 /******************连接数据库********************/
 try
 {
  pConnection->ConnectionTimeout = 8;
  //连接ACCESS
  pConnection->Open(_bstr_t(DBName),_T(""),_T(""),ADODB::adModeUnknown);
 }
 catch(_com_error e)///捕捉异常
 {
  strErrormessage.Format(_T("连接数据库失败!/r错误信息:%s"),e.ErrorMessage());
  AfxMessageBox(strErrormessage);
  return ;
 }

 CString strTableName = _T("模型");
 try
 {
  pRecordset->CursorLocation=ADODB::adUseClient;
  _bstr_t strCmd=_T("SELECT * FROM ") + strTableName;
  pRecordset->Open(strCmd,_variant_t((IDispatch*)pConnection,TRUE),
   ADODB::adOpenStatic,ADODB::adLockOptimistic,ADODB::adCmdText);
 }
 catch(_com_error &e)
 {
  strErrormessage.Format(_T("连接数据库表%s失败!/r错误信息:%s"),strTableName,e.ErrorMessage());
  M5MessageBox(NULL, strErrormessage);
  return ;
 }

 pRecordset->AddNew();
 pRecordset->PutCollect(_T("经度"), 115 );
 pRecordset->PutCollect(_T("纬度"), 30 );

 CMemFile memFile;
 CArchive ar(&memFile, CArchive::store);
 m_pCarfielldee->Serialize(ar); //******************************* 需要保存的对象指针*********************/
 ar.Close();

 // 取得内存文件的长度
 long lSize = memFile.GetLength();
 LPBYTE lpInfo = memFile.Detach();

 VARIANT   varBLOB;
 SAFEARRAY  *psa;
 SAFEARRAYBOUND rgsabound[1];

 rgsabound[0].lLbound = 0;
 rgsabound[0].cElements = dwSize;

 // 创建safearray对象存取流数据
 psa = SafeArrayCreateVector( VT_UI1, 0, lSize);
 // 指向字节数组的指针
 unsigned char *pData = NULL;
 // 取得一个 safe array的指针. 锁定数组.
 SafeArrayAccessData( psa, (void**)&pData );
 // 拷贝内存文件到 safearray
 memcpy( pData, lpInfo, lSize );
 // 清理缓冲区
 delete lpInfo;
 // 锁定对 safearray的访问
 SafeArrayUnaccessData(psa);

 varBLOB.vt = VT_ARRAY | VT_UI1;
 varBLOB.parray = psa;   
 pRecordset->GetFields()->GetItem(_variant_t("空间信息"))->AppendChunk(varBLOB); 
 pRecordset->Update();

 if(pConnection->State)
  pConnection->Close();
 pConnection.Release();

 if(pRecordset->State)
  pRecordset->Close();
 pRecordset=NULL;

 return TRUE;
}


BOOL Carfieldlee::ReadOBJ()
{
 ADODB::_ConnectionPtr       pConnection;
 ADODB::_RecordsetPtr        pRecordset;   //各个列的集合
 _variant_t RecordsAffected;
 CString strErrormessage, strCondition, strTableName;

 CString strPath = _T("");;
 CString strFile = _T("波妞.mdb");
 CString DBName=_T("Provider=Microsoft.JET.OLEDB.4.0;Data source=");
 DBName=DBName+strPath+strFile;
 pConnection.CreateInstance(__uuidof(ADODB::Connection));
 pRecordset.CreateInstance(__uuidof(ADODB::Recordset)); //为Recordset对象创建实例
 /******************连接数据库********************/
 try
 {
  pConnection->ConnectionTimeout = 8;
  //连接ACCESS
  pConnection->Open(_bstr_t(DBName),_T(""),_T(""),ADODB::adModeUnknown);
 }
 catch(_com_error e)///捕捉异常
 {
  strErrormessage.Format(_T("连接数据库失败!/r错误信息:%s"),e.ErrorMessage());
  AfxMessageBox(strErrormessage);
  return ;
 }

 strTableName = _T("模型");
 strCondition.Format(_T("WHERE ID=%d"), 3);
 try
 {
  _bstr_t strCmd=_T("SELECT * FROM ") + strTableName + _T(" ") + strCondition;
  pRecordset=pConnection->Execute(strCmd,&RecordsAffected,ADODB::adCmdText);
 }
 catch(_com_error &e)
 {
  strErrormessage.Format(_T("连接数据库表%s失败!/r错误信息:%s"),strTableName,e.ErrorMessage());
  AfxMessageBox(strErrormessage);
  return FALSE;
 }

 int nln = 1;
 try
 {
  while(!pRecordset->adoEOF)
  {
   //读出序列化进去的 空间信息
   long lDataSize = pRecordset->GetFields()->GetItem(_variant_t("空间信息"))->ActualSize;
   if(lDataSize <= 0)
   {
    strErrormessage.Format(_T("数据库 表-模型 中第%d行--空间信息--有误！  已经跳过！"),nln);
    AfxMessageBox(strErrormessage);
    pRecordset->MoveNext();
    nln++;
    continue;
   }

   _variant_t   varBLOB;
   VariantInit (&varBLOB);

   varBLOB = pRecordset->GetFields()->GetItem(_variant_t("空间信息"))->GetChunk(lDataSize);
   if(varBLOB.vt == (VT_ARRAY | VT_UI1))
   {    
    BYTE *pBuf = NULL;    
    SafeArrayAccessData(varBLOB.parray,(void **)&pBuf);
    SafeArrayUnaccessData (varBLOB.parray);

    CMemFile memfile;
    memfile.Attach(pBuf,lDataSize);
    memfile.SeekToBegin();
    CArchive ar(&memfile, CArchive::load);

    m_pCarfielldee = new Carfieldlee;
    m_pCarfielldee->Serialize(ar); //*************************************需要赋值的指针****************************//

    ar.Close();
    memfile.Detach();  
   }
   VariantClear(&varBLOB);

   pRecordset->MoveNext();
   nln++; 
  }

 }
 catch(_com_error &e)
 {
  strErrormessage.Format(_T("读数据库表%s失败!/r错误信息:%s"),strTableName,e.ErrorMessage());
  AfxMessageBox(strErrormessage);
  return FALSE;
 }

 if(pConnection->State)
  pConnection->Close();
 pConnection.Release();

 if(pRecordset->State)
  pRecordset->Close();
 pRecordset=NULL;

 return TRUE;
}

蜂群算法的优点 蜂群算法的优点
原创粉丝点击
热门IT博客
孩子王 知乎孩子王 知乎
linux 线程通信效率linux 线程通信效率
linux c 字符串拷贝
网络推广 推荐书籍
淘宝买家秀兼职怎么做
运营优化方案怎么写
telnet 失败 端口23
数据库应用系统软件
linux 卸载svn1.7
excel数据验证限制
服装erp软件排行
网络语种草是什么意思
西门子plc编程手册下载
吉卜马淘宝商城旗舰店
站长域名查询
mac双系统怎么切换
不是网络电视怎么联网
试客联盟 淘宝查不查
沧海一声笑歌词知乎
淘宝老是跳转扫码登陆
热门问题 老师的惩罚 人脸识别 我在镇武司摸鱼那些年 重生之率土为王 我在大康的咸鱼生活 盘龙之生命进化 天生仙种 凡人之先天五行 春回大明朝 姑娘不必设防，我是瞎子 宇豪酒店 宇豪大酒店 宇豪 宇豪馨怡酒店 临沂翔宇豪生大酒店 宇豪金港湾酒店 宇豪商务酒店 成都明宇豪雅酒店 宇豪酒店电话 宇豪假日酒店 成都东大明宇豪雅饭店 明宇豪雅饭店 科华明宇豪雅饭店 乌鲁木齐宇豪海逸酒店 东大明宇豪雅饭店 都江堰明宇豪雅酒店 明宇豪雅酒店电话 宇豪主题酒店 宇豪海逸酒店 南充东方花园明宇豪雅饭店 宇轩 宇轩小凡 dj宇轩 宇轩这名字寓意如何 宇轩名字寓意 一代军神向宇轩 宇轩名字的含义是什么 宇辉战舰 宇辉物流 宇辉 宇辉人才市场招聘会 宇辉人才市场招聘信息 宇辰 宇通房车 宇通zk6127h 宇通集团 宇通大客车 宇通股票 宇通巴士 宇通大巴车 宇通招聘

程序博客网，程序员的互联网技术博客家园。csdn论坛精品 msdn技术资料都在这里