在VC6中使用ADO读取Oracle中的BLOB字段.docx

在VC6中使用ADO读取Oracle中的BLOB字段 今天尝试将存储于Oracle（版本：9.0.1.1.1）中BLOB字段里的图像文件读出来，文件量很小，不到10K。使用vc6+ADO，使用控制台程序初步尝试如下：:CoInitialize(NULL);/初始化OLE/COM库环境_ConnectionPtrm_pConn;tryHRESULThr=m_pConn.CreateInstance(ADODB.Connection);if(FAILED(hr)coutCreateADOConnectionfailedOpen(_bstr_t)oracleConnectionString,(_bstr_t)oracleUserID,(_bstr_t)oraclePassword,adModeUnknown);if(FAILED(hr)coutCannotconnecttodatabaseendl;exit(0);elsecoutConnecttodatabasesuccessfully!endl;catch(_com_errore)CStringerrMsg=e.ErrorMessage();couterrMsgendl;exit(0);_RecordsetPtrm_pRecordset;tryHRESULThr=m_pRecordset.CreateInstance(ADODB.Recordset);if(FAILED(hr)coutCreateADORecordsetfailedOpen(bstrSQL,(IDispatch*)m_pConn,adOpenDynamic,adLockOptimistic,adCmdText);if(FAILED(hr)coutOpenADORecordsetfailedendl;exit(0);catch(_com_errore)CStringerrMsg=e.ErrorMessage();couterrMsgGetFields()-GetItem(stupic)-ActualSize;coutBLOBlengthislDataSize0)_variant_tvarBLOB;varBLOB=m_pRecordset-GetFields()-GetItem(stupic)-GetChunk(lDataSize);/判断数据类型是否正确if(varBLOB.vt=(VT_ARRAY|VT_UI1)BYTE*pBuf=NULL;/得到指向数据的指针SafeArrayAccessData(varBLOB.parray,(void*)&pBuf);/*/*这里是对pBuf数据的处理*/CFiletargetImageFile;CFileExceptioneTargetImageFile;CStringtargetImageFileName=C:stupicture.bmp;if(!targetImageFile.Open(targetImageFileName,CFile:modeCreate|CFile:modeWrite,&eTargetImageFile)coutCreatefilefailedendl;exit(0);else/打开文件成功，准备写入targetImageFile.Write(BYTE*)pBuf,lDataSize);coutWritestupicture.bmpfilesuccessfully!Close();m_pConn=NULL;coutADOconnectionclosedsuccessfullyopen()方法打开试试，看看你的错误是在哪条语句。回复人： bysen() ( ) 信誉：98 2003-05-29 13:37:50Z 得分:0但是你要得到blob中的值还是要用GetChunk()命令在ado中select的blob只是起定位的作用而且Provider=SQLOLEDB.1要改为OraOLEDB.Oracle.1,否则getchunk命令可能不能执行 而且楼主最后自己回了一帖:回复人： cnwhsg(sun) ( ) 信誉：89 2003-05-29 14:42:18Z 得分:0我这样修改了一下就没有问题了， 我把连接字符串的Provider=MSDAORA，改为Provider=OraOLEDB.Oracle.1，就可以了。现在我点晕了，这个Provider到底怎么写了，好象写法十分多了，有地方详细说明的吗？ 我刚开始看到这个回复的时候还没当回事，因为Connection是正常的，而且过去连接数据库也没有因为Provider写的不对出过问题，所以我把注意力都放在了Recordset的Open方法上面，但是却怎么改也不行。 折腾到晚饭前，已经是黔驴技穷，随手改了一下Provider为OraOLEDB.Oracle.1，单步到m_pRecordset-Open(bstrSQL,(IDispatch*)m_pConn,ad