ADO操作数据的几个问题

总结了几个在用ADO操作数据库的时候常遇见的问题。
1
读数据库中的二进制数据，在论坛里有人提到用GetChunk不行，只能读Image类型的数据，下面是一个声音数据的例子：
long lDataSize = m_adoRecordSet.GetFields()->GetItem("声音")->ActualSize;
if(lDataSize > 0)
{
   _variant_t varBLOB;
   varBLOB = m_adoRecordSet.GetFields()->GetItem("声音")->GetChunk(lDataSize);
   if(varBLOB.vt == (VT_ARRAY | VT_UI1))
   {
    char *pBuf = NULL;
    SafeArrayAccessData(varBLOB.parray,(void **)&pBuf);
    sndPlaySound(pBuf, SND_MEMORY | SND_SYNC | SND_NODEFAULT );//播放声音
    SafeArrayUnaccessData(varBLOB.parray);//注意这句不能少的
  }
}

2
在DLL中引入ADO库
采用下面方法在stdafx中加入
#import "C:\Program Files\Common Files\System\ADO\msado15.dll" no_namespace rename("EOF","adoEOF")
引入ADO库的时候可能会遇到下面一些错误信息，说是有EditModeEnum、RecordStatusEnum、ParameterDirectionEnum、LockTypeEnum、DataTypeEnum、FieldAttributeEnum重定义！总是编译通不过。
遇到这种情况可以试试改成
#pragma warning(disable:4146)
#import "C:\Program Files\Common Files\System\ADO\msado15.dll" named_guids rename("EOF","adoEOF"), rename("BOF","adoBOF")
#pragma warning(default:4146)
using namespace ADODB;

3
读写时间值的操作，下面只是一种可行的方法，可能还存在其他更好的方法。
写入时间值
COleDateTime oleDate = COleDateTime::GetCurrentTime();
_variant_t vtFld;
vtFld.vt = VT_DATE;
vtFld.date = oleDate;
pRecordSet->PutCollect("出生年月", vtFld);

读时间值
_bstr_t TheValue=m_pset->Fields->GetItem("出生年月")->Value;
temp=(char *)TheValue;
COleVariant vtime(temp);
vtime.ChangeType(VT_DATE);
COleDateTime time=vtime;

4
压缩ACCESS数据库，
Reference:  MS KB Article ID:Q230501  Compacting an Access Database via ADO
#import "C:\PROGRAM FILES\COMMON FILES\System\ado\MSJRO.DLL" no_namespace
try
{
    IJetEnginePtr jet(__uuidof(JetEngine));
    jet->CompactDatabase( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\nwind2.mdb;Jet OLEDB:Database Password=test",
  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\abbc.mdb;" \
  "Jet OLEDB:Engine Type=4;Jet OLEDB:Database Password=test");
}
catch(_com_error &e)
{      
   ::MessageBox(NULL, (LPCTSTR)e.Description( ), "", MB_OK) ;   
}

本文地址：http://com.8s8s.com/it/it184.htm