hdata for oracle,ADO 存取oracle blob字段(存jpg图片)的源码!

ODBC Driver for Oracle

For the current Oracle ODBC Driver from Microsoft:

oConn.Open "Driver={Microsoft ODBC for Oracle};" & _

"Server=OracleServer.world;" & _

"Uid=myUsername;" & _

"Pwd=myPassword;"

For the older Oracle ODBC Driver from Microsoft:

oConn.Open "Driver={Microsoft ODBC Driver for Oracle};" & _

"ConnectString=OracleServer.world;" & _

"Uid=myUsername;" & _

"Pwd=myPassword;"

char *pBuf = m_pBMPBuffer ;

VARIANT varBLOB;

SAFEARRAY *psa;

SAFEARRAYBOUND rgsabound[1];

m_pRecordset->AddNew(); ///添加新记录

m_pRecordset->PutCollect("username",_variant_t("小李")); ///为新记录填充username字段

m_pRecordset->PutCollect("old",_variant_t((long)28); ///填充old字段

if(pBuf){

rgsabound[0].lLbound = 0;

rgsabound[0].cElements = m_nFileLen;

psa = SafeArrayCreate(VT_UI1, 1, rgsabound); ///创建SAFEARRAY对象

for (long i = 0; i < (long)m_nFileLen; i++)

SafeArrayPutElement (psa, &i, pBuf++); ///将pBuf指向的二进制数据保存到SAFEARRAY对象psa中

varBLOB.vt = VT_ARRAY | VT_UI1;///将varBLOB的类型设置为BYTE类型的数组

varBLOB.parray = psa; ///为varBLOB变量赋值 m_pRecordset->GetFields()->GetItem("photo")->AppendChunk(varBLOB); ///加入BLOB类型的数据

}

m_pRecordset->Update(); ///保存我们的数据到库中

至此我们的数据已经成功地保存到了数据库中,接下来我们所要做的工作便是将该数据提取出来,让我们继续吧!

3.2 BLOB数据的读取

对应于保存数据时我们所使用的AppendChunk函数，读取数据应该使用GetChunk函数,GetChunk的原型如下:

_variant_t GetChunk (long Length );

给出数据的长度后GetChunk将返回包含数据的VARIANT类型变量,然后我们可以利用SafeArrayAccessData函数得到VARIANT变量中指向数据的char *类型的指针,以方便我们的处理，具体代码如下：

long lDataSize = m_pRecordset->GetFields()->GetItem("photo")->ActualSize;

///得到数据的长度

if(lDataSize > 0)

{

_variant_t varBLOB;

varBLOB = m_pRecordset->GetFields()->GetItem("photo")->GetChunk(lDataSize);

if(varBLOB.vt == (VT_ARRAY | VT_UI1)) ///判断数据类型是否正确

{

char *pBuf = NULL;