VC++开发GIS系统（5）利用ADO技术实现SQL Server存储二进制数据

GIS系统中经常会使用数据库作为数据存储管理工具，像一些大型的GIS软件甚至会封装一个SDE（详见这里），本文中提供了一个示例，即通过VC++的ADO技术来访问数据库。如图：

主要功能是实现图片以二进制的方式存储到数据库，然后从数据库读出并保存成文件。

关于ADO编程

在我之前的博客中有详细的介绍，可以参考VC++ADO编程小记、ADO编程RecordSet.OPEN参数解释、ADO编程多步OLE DB 操作产生错误这3篇文章。

关键代码

ADO环境初始化

BOOL readImages::OnInitDialog()
{
  CDialog::OnInitDialog();

  // TODO:  在此添加额外的初始化
  //*****初始化ADO库******

  ::CoInitialize(NULL);// 初始化OLE/COM库环境

  try
  {
    // 创建Connection对象
    m_pConnection.CreateInstance("ADODB.Connection");
    // 设置连接字符串，必须是BSTR型或者_bstr_t类型
    //_bstr_t strConnect ="Provider=SQLOLEDB;Data Source=YQC-PC\\SQLEXPRESS;Integrated Security=SSPI;Initial Catalog=testADO";
    _bstr_t strConnect="Provider=SQLOLEDB; Server=localhost; Database=testADO; uid=sa; pwd=Sailor_1990;"; 
    //m_pConnection->Open(strConnect,"","",adModeUnknown);
    m_pConnection->Open(strConnect,"","",NULL);
        if(m_pConnection!=NULL)
    {
      AfxMessageBox(_T("数据库连接成功"));
    }
  }
  // 捕捉异常
  catch(_com_error e)
  {
    // 显示错误信息
    AfxMessageBox(e.Description());
  }

  return TRUE;  // return TRUE unless you set the focus to a control
  // 异常: OCX 属性页应返回 FALSE
}

存储数据库

void readImages::OnBnClickedButtonSavetodb()
{
  variant_t varBLOB;
  _StreamPtr pStm;
  pStm.CreateInstance ( "ADODB.Stream" ) ;
  variant_t varOptional(DISP_E_PARAMNOTFOUND,VT_ERROR);
  pStm->PutType ( adTypeBinary); //类型为二进制

  pStm->Open( varOptional, adModeUnknown, adOpenStreamUnspecified, 
    _bstr_t() , _bstr_t() ) ; //生成二进制流
  pStm->LoadFromFile ( _bstr_t (m_filepath) ) ; //读入文件
  varBLOB = pStm->Read( adReadAll) ;
  if(FAILED(m_pRecordset.CreateInstance("ADODB.Recordset")))
  {
    return;
  }

  try
  {
    m_pRecordset->Open(_bstr_t(_T("imageADO")),_variant_t((IDispatch *)m_pConnection,true), adOpenDynamic,adLockOptimistic, adCmdTable);
  } 
  catch(_com_error e)
  {
    AfxMessageBox(e.Description());

  }
  try
  {
    m_pRecordset->AddNew();
    m_pRecordset->PutCollect("p",(variant_t)m_filepath);
    m_pRecordset->PutCollect( "cao",varBLOB);
    m_pRecordset->PutCollect( "t",(variant_t)m_fileType);
  }
  catch(_com_error e)
  {
    AfxMessageBox(e.Description());
  }
  m_pRecordset->Update();
  m_pRecordset->Close();
  MessageBox(_T("OK"));
}

从数据库读文件

void DBToFile::OnBnClickedButtonTofile()
{
  // TODO: 在此添加控件通知处理程序代码
  variant_t varBLOB;
  _StreamPtr pStm;

  pStm.CreateInstance ( "ADODB.Stream" ) ;
  variant_t varOptional(DISP_E_PARAMNOTFOUND,VT_ERROR) ;
  pStm->PutType ( adTypeBinary); //类型为二进制

  pStm->Open( varOptional, adModeUnknown, adOpenStreamUnspecified, 
    _bstr_t() , _bstr_t() ) ; //生成二进制流

  m_pRecordset.CreateInstance(__uuidof(Recordset));
  m_pRecordset->Open(_bstr_t(_T("select cao from imageADO where id=1")), m_pConnection.GetInterfacePtr(), adOpenDynamic , adLockOptimistic, adCmdText);

  pStm->Write( m_pRecordset->GetFields()->GetItem( "cao" )->Value ); //写入流文件
  pStm->SaveToFile ((_bstr_t)m_filepath, adSaveCreateOverWrite);
  MessageBox(_T("导出成功"));
  m_pRecordset->Close();

}

具体有什么问题欢迎留言，下面是整个程序代码，欢迎下载研究。

链接：http://pan.baidu.com/s/1kT5fKf9

密码：s2c9