今天最后的问题，在线等！！

[notlonely]

SQLCA.AutoCommit = true
int fi
blob this_picture
fi=fileopen("G:\se.bmp",streammode!,read!,lockread!)
fileread(fi,this_picture)
fileclose(fi)

p_1.setpicture(this_picture)//可以显示出来

updateblob pic=:this_picture from test where id=1 using sqlca ;


IF sqlca.SQLNRows > 0 THEN
COMMIT ;
messagebox('a','ok')
Else
messagebox('b','cancel')
end if

无法存到数据库

为什么呀
？？？？！！！

[pbtech]

我要升级！！

如果你的bmp文件大于32k要多次读取

sqlca.autocommit=true;
string ls_photofile,ls_named,ls_no

integer li_value,li_filenum,li_loops,li_counter,li_t
long ll_filelen
blob lb_read,lb_picture

ls_no=dw_1.getitemstring(dw_1.getrow(),"no")
li_value=getfileopenname("",ls_photofile,ls_named,"图片文件","bmp files (*.bmp),*bmp,"+"jpg file (*.jpg),*.jpg")
if li_value=-1 or li_value =0 then return
ll_filelen=filelength(ls_photofile)
li_filenum=fileopen(ls_photofile,streammode!,read!,lockread!)
if ll_filelen>32765 then
li_loops=((ll_filelen - 1)/32765)+1
else
li_loops=1
end if
//read file
for li_counter=1 to li_loops
fileread(li_filenum,lb_read)
lb_picture=lb_picture+lb_read
next
fileclose(li_filenum)
//show pic
li_t=p_1.setpicture(lb_picture)
if li_t=1 then
p_1.visible=true
end if
//write database
updateblob product set description_image=:lb_picture where product.no=:ls_no;
//SELECTBLOB description_image INTO :lb_picture FROM product WHERE
//prodct.no=:ls_no USING sqlca;
//p_1.setpicture(lb_picture)
IF SQLCA.SQLCode = -1 THEN
MessageBox("SQL error", SQLCA.SQLErrText)
END IF
sqlca.autocommit=false;

[pbtech]

如果行的话，给我分呀！！！

[klbt]

同意楼上，无论读写，如果你的bmp文件大于32k，都要分多次，不过好像问题不在这里。
你的test表中必须事先有id=1的行。

[athere_08]

updateblob product set description_image=:lb_picture where product.no=:ls_no;
我一般也用这样的sql语句，用sqlca.sqlcode检查执行结果