怎么将二进制数据存入Blob中？

Question

www.vckbase.com
去找一个例子adoblob,很清楚地演示了如何读写blob字段，不过是aceess的，但是在oracle下面我也测试通过，没有问题。

Answer 1

不行的。我试过了，用ADO根本不能访问Oracle中的Blob字段，
如果表中有Blob字段，就不能执行select * from MyTable语句。

Answer 2

blob类型的数据要通过dbms_lob包来处理。

Answer 3

请问dbms_lob包具体是怎么用的？
能给出例子吗？谢谢。

Answer 4

把你的mail留下来，我给你发代码，怎么可能不行？你连接数据库的provider使用不当，不要使用msdaora，使用oracle.oledb

Answer 5

DBMS_LOB包使用和维护 摘要：本文通过实例介绍了在ORACLE数据库中通过DBMS_LOB包使用和维护LOB数据类型的基本方法。关键词：ORACLEDBMS_LOBLOB维护中图分类号：TP311、引言随着社会的发展，在现代信息系统的开发中，需要存储的已不仅仅是简单的文字信息，同时还包括一些图片和音像资料或者是超长的文本。比如开发一套旅游信息系统，每一个景点都有丰富的图片、音像资料和大量的文字介绍。这就要求后台数据库要有存储这些数据的能力。ORACLE公司在其Oracle8i中通过提供LOB字段实现了该功能。为了便于读者的理解，我们先介绍一些基本的概念：在ORACLE数据库中，LOB（Large Objects—大对象）是用来存储大量的二进制和文本数据的一种数据类型（一个LOB字段可存储可多达4GB的数据）。目前，它又分为两种类型：内部LOB和外部LOB。内部LOB将数据以字节流的形式存储在数据库的内部。因而，内部LOB的许多操作都可以参与事务，也可以像处理普通数据一样对其进行备份和恢复操作。Oracle8i支持三种类型的内部LOB：BLOB（二进制数据）、CLOB（单字节字符数据）、NCLOB（多字节国家字符数据）。其中CLOB和NCLOB类型适用于存储超长的文本数据，BLOB字段适用于存储大量的二进制数据，如图像、视频、音频等。目前，Oracle8i只支持一种外部LOB类型，即BFILE类型。在数据库内，该类型仅存储数据在操作系统中的位置信息，而数据的实体以外部文件的形式存在于操作系统的文件系统中。因而，该类型所表示的数据是只读的，不参与事务。该类型可帮助用户管理大量的由外部程序访问的文件。为了方便下文的叙述，我们假定使用如下语句在数据库中创建了一张表。CREATE TABLE view_sites_info ( site_idNUMBER(3), audioBLOBDEFAULT empty_blob(), documentCLOBDEFAULT empty_clob(), video_fileBFILEDEFAULT NULL, constraint PK_TAB_view_sites_info primary key (site_id) ); 2、LOB的使用和维护ORACL提供了多种使用和维护LOB的方式，如使用PL/SQL DBMS_LOB包、调用OCI（Oracle Call Interface）、使用Proc * C/C++、使用JDBC等。其中最为方便有效的是使用PL/SQL调用DBMS_LOB包，本文就将介绍该方法。在Oracle中，存储在LOB中数据称为LOB的值，如使用Select 对某一LOB字段进行选择，则返回的不是LOB的值，而是该LOB字段的定位器（可以理解为指向LOB值的指针）。如执行如下的SQL语句：DELCARE AUDIO_INFOBLOB；BENGIN SELECT audio INTO AUDIO_INFO FROM view_sites_info WHERE site_id=100; END; / 存储在AUDIO_INFO变量中的就是LOB定位器，而不是LOB的值。而要对某一LOB的值进行访问和维护操作，必需通过其定位器来进行。DBMS_LOB包中提供的所有函数和过程都以LOB定位器作为参数。2.1内部LOBDBMS_LOB包中主要提供了以下几个过程供用户对内部LOB字段进行维护。APPEND（）将源LOB中的内容加到目的LOB中COPY（）从源LOB中复制数据到目的LOB ERASE（）删除LOB中全部或部分内容TRIM（）将LOB值减少到指定的长度WRITE（）向LOB 中写入数据COMPARE（）比较两个同种数据类型的LOB的部分或全部值是否相同GETLENGTH（）获取LOB的长度READ（）从LOB中读出数据下面我们以最为常用的读和写为例详细介绍这些过程的用法。首先介绍一下写过程。该过程的语法为：PROCEDURE WRITE ( lob_locIN OUTBLOB, amountINBINARY_INTEGER, offsetININTEGER, bufferINRAW); PROCEDURE WRITE ( lob_locIN OUTCLOBCHARACTER SET ANY_CS, amountINBINARY_INTEGER, offsetININTEGER, bufferINVARCHAR2 CHARACTER SET lob_loc%CHARSET); 各参数的含义为：lob_loc：要写入的LOB定位器amount：写入LOB中的字节数offset：指定开始操作的偏移量buffer：指定写操作的缓冲区下面的代码就是运用该过程向LOB字段写入数据的示例。DECLARE lobloc CLOB; buffer VARCHAR2(2000); amount NUMBER := 20; offset NUMBER := 1; BEGIN --初始化要写入的数据buffer := 'This is a writing example'; amount := length(buffer); SELECT document INTO lobloc-- 获取定位器并锁定行FROMview_sites_info WHERE site_id = 100 FOR UPDATE; dbms_lob.write(lobloc,amount,1,buffer); COMMIT; END; / 需要特别指出的是：I.在调用写过程前一定要使用SELECT语句检索到定位器且用 FOR UPDATE 子句锁定行，否则不能更新LOB；II.写过程从offset指定的位置开始，向LOB中写入长度为amount的数据，原LOB中在这个范围内的任何数据都将被覆盖。III.缓冲区的最大容量为32767字节，因此在写入大量数据时需多次调用该过程。下面再来介绍一下读过程：该过程的语法为：PROCEDURE READ ( lob_locINBLOB, amountIN OUTBINARY_INTEGER, offsetININTEGER, bufferOUTRAW); PROCEDURE READ ( lob_locINCLOBCHARACTER SET ANY_CS, amountIN OUTBINARY_INTEGER, offsetININTEGER, bufferOUTVARCHAR2 CHARACTER SET lob_loc%CHARSET); 各参数的含义为：lob_loc：要读取的LOB定位器amount：要读取的字节数offset：开始读取操作的偏移量buffer：存储读操作结果的缓冲区下面的代码演示了如何使用该过程读取LOB字段中的数据：DECLARE lobloc CLOB; buffer VARCHAR2(2000); amount NUMBER := 2; offset NUMBER := 6; BEGIN SELECT document INTO lobloc--获取定位器FROM lob_store WHERE lob_id = 100; dbms_lob.read(lobloc,amount,offset,buffer);--读取数据到缓冲区dbms_output.put_line(buffer);--显示缓冲区中的数据COMMIT; END; /

Answer 6

连接数据库
AfxOleInit();
m_pConnection.CreateInstance("ADODB.Connection");
/******************连接数据库********************/
try
{
m_pConnection->ConnectionTimeout = 8;/*oraoledb.oracle*/
m_pConnection->Open("Provider=oraoledb.oracle;Data Source=yourds;User ID=youruser;Password=pwd","","",adModeUnknown);
}
catch(_com_error e)///捕捉异常
{
AfxMessageBox("无法连接到oracle数据库,请检查数据库连接设置,否则程序无法正常工作!");
} 

catch(_com_error e)///捕捉异常
{
AfxMessageBox("数据库连接失败!");
return FALSE;
} 读数据：
m_pRecordset.CreateInstance("ADODB.Recordset");
HRESULT hr = m_pRecordset->Open("SELECT * FROM userphoto",_variant_t((IDispatch *)m_pConnection,true),adOpenDynamic,adLockPessimistic,adCmdText);读blob字段
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))
{
if(m_pBMPBuffer = new char[lDataSize+1]) ///重新分配必要的存储空间
{
char *pBuf = NULL;
SafeArrayAccessData(varBLOB.parray,(void **)&pBuf);
memcpy(m_pBMPBuffer,pBuf,lDataSize); SafeArrayUnaccessData (varBLOB.parray);
m_nFileLen = lDataSize;
}
}
}
数据就读到m_pBMPBuffer中了，

Answer 7

我可以肯定的告诉你，ado访问blob字段没有任何问题

Answer 8

存的代码
char *pBuf = m_pBMPBuffer;
VARIANT varBLOB;
SAFEARRAY *psa;
    SAFEARRAYBOUND rgsabound[1]; if(pBuf)
{    
rgsabound[0].lLbound = 0;
rgsabound[0].cElements = m_nFileLen;
psa = SafeArrayCreate(VT_UI1, 1, rgsabound);
for (long i = 0; i < (long)m_nFileLen; i++)
SafeArrayPutElement (psa, &i, pBuf++);
varBLOB.vt = VT_ARRAY | VT_UI1;
varBLOB.parray = psa;
m_pRecordset->GetFields()->GetItem("photo")->AppendChunk(varBLOB);
}
m_pRecordset->Update();