向数据库中填加blob字段!急！急！急！急！急！急！急！

[linleming]

需要像oracle中添加数据，类型为blob。是否通过ole呀！我从来没使用过ole.谁有相关的资料或代码可以发一份给我吗？希望各给些思路！此方面我一点都不会！请赐教，分不够！再加！谢谢！
Email:[e-mail]

[klbt]

不用ole，用blob数据类型
selectbolb ... ...
updateblob ... ...

[linleming]

to ： klbt(快乐白兔) 能不能在详细些

有时插入图片怎么做

[linleming]

自己顶

[klbt]

插入图片全过程：

1、用GetFileOpenName函数选择图片文件，
2、用FileOpen打开文件
3、用FileRead分次读取文件
4、用FileClose关闭文件
5、用UPDATEBLOB更新数据库（如果没有该行还应先插入该行，设置好主键）
6、用Commit;提交

[donkeykiller]

www.pdriver.com

[linleming]

没时间查！给具体一点的网址

[linleming]

自己顶

[JIANXIN_LU]

UpdateBlob

[tulip2108]

1、用数据窗口的oledb
2、用sql语句
blob lb_data
string ls_key
lb_data=ole_1.objectdata
updateblob table set col=:lbdata where key=:ls_key;
if sqlca.sqlcode=0 then
commit;
end if

[linleming]

谢谢各位！我试着做作！

[紫炎圣骑]

同意klbt!

[wei1027]

1、
integer li_filenum,li_loops,li_counter
long ll_filelen, ll_bytes_read, ll_new_pos
blob lb_our_blob, lb_tot_b
ll_filelen = FileLength(TRIM(sle_3.text))
// 获 取 文 件 的 大 小
li_filenum = FileOpen(sle_3.text,STREAMMODE!, READ!,LOCKREAD!)
// 指 定 该 文 件 为 只 读，li_filenum 为 这 个 文 件 的 句 柄
IF ll_filelen > 32766 THEN
li_loops = ((ll_filelen - 1)/32766) + 1
ELSE
li_loops = 1
END IF
// 读 文 件...
FOR li_counter = 1 to li_loops
ll_bytes_read = FileRead(li_filenum,lb_our_blob )
lb_tot_b = lb_tot_b + lb_our_blob
ll_new_pos = ll_new_pos + ll_bytes_read
FileSeek(li_filenum,ll_new_pos,FROMBEGINNING!)
NEXT
FileClose(li_filenum)
UPDATEBLOB t_fileup SET content= :lb_tot_b
WHERE sn=:sn;
……
2、使用ole
blob ll_blob
ll_blob=ole_1.objectdata
updateblob tablename set blob字段 =:ll_blob
where 条件；
……