Vb的高手，看过来！！*** 请教，如何用ADO技术，向数据库的BLOB字段中，插入大文件？

[zh_Oracle]

请教，如何用ADO技术，向数据库的BLOB字段中，插入大文件？

例如： 有数据库表 -- T1，
字段1： C1 int，
字段2： C2 BLOB

文件1 ；C：\1.BMP 50k

我想在 vb 下， 用ADO技术, 把文件“1.BMP”,插入数据库的BLOB字段中.

如何实现，请高手执教， 最好，有源码，例子。多谢！

关于，操作数据库，以上，我用DELPHI, 和 JAVA 已经实现， 如需要者， 与我联系！

[e-mail]
[e-mail]

[BrentIvan]

RecordSet.AppendChunk

[newyj]

要用到Fields对象的两个方法AppendChuck\GetChuck写读blob

dim FileSize as long
dim FileNum as long
dim Temp() as Byte
dim FileName as String

'存入文件
FileNum =Freefile
Filename = "c:\pic\1.bmp"
open Filename for Binary as FileNum
REdim Temp(Lof(FileNum))
get FileNum,,Temp
Rs("t2").appendChuck Temp
RS.updata

'读出数据 写入文件
fileNum = FreeFile
FileName ="c:\Tmp\"+cStr(Rs.AbsolutePosistion)+".bmp"
Filesize=rs("t2").ActualSize
' 应该是这个属性记不清了。读取t2的大小
Redim Temp(Filesize)
temp = Rs("t2").GetChuck(FileSize)
'GetChuck的用法要看一下Msdn;读取完以后
'要变化一下如读取下一条纪录
open FileName For Binary as FileNum
put FileNum,,Temp
close FileNum
picture1.pivture = loadpicture(FileName)

'如果给我加分；有什么不明白的 联络 [e-mail]

[roverroad]

恶心，用这么愚昧的方法！