图片存储问题,急,谢谢
aiq 2003-11-03 03:57:27 integer li_file
blob lb_pic
li_file=fileopen('1.jpg',StreamMode!,read!,lockread!)
fileread(li_file,lb_pic)
sqlca.AutoCommit=True
updateblob hb_gnlk set pic=:lb_pic where lkbm='3204008888200311030001' using sqlca;
If SQLCA.SQLDBCode <> 0 Then
messagebox("提示:","图片提交错误!")
RollBack;
End If
Commit;
sqlca.AutoCommit=False
fileclose(li_file)
数据库SQL 2000,字段image,图片不大,只有5K,但是图片保存不进去,SQLCA.SQLDBCode不等于0,提交失败,请大侠指教