有一个数据窗口,我加了一个p_1图片控件。。。
在w_goods窗口中有一个加载图片的按钮。。
,可以找开图片。。但是保存时有问题。
当goodsid=1或ll_id=dw_1.GetItemnumber(dw_1.getrow(),'goodsid') 时,久久没有反应
或当ll_id=dw_1.GetItemnumber(dw_1.rowcount(),'goodsid') 时,就可以保存图片
按钮的代码如下主
integer value,ll_id
dw_1.accepttext()
ll_id=dw_1.GetItemnumber(dw_1.getrow(),'goodsid')
string pname, fname
value = GetFileOpenName("请选择图片",pname,fname,'jpg',+'Jpg文件(*.jpg),*.jpg,所有文件(*.*),*.*')
IF value<>1 THEN return
//显示文件
dw_1.object.p_1.filename= fname
SetPointer(HOURGLASS!)
SQLCA.AutoCommit=True
//测定文件长度
long ll_len
ll_len=FileLength(pname)
//打开文件
integer fileno
fileno=FileOpen(pname,StreamMode!,READ!,LOCKREAD!)
//读文件
blob lb_file,lb_fn
int li_ii,ii
li_ii =ceiling(ll_len/32765)
for ii=1 to li_ii
FileRead (fileno,lb_fn)
lb_file =lb_file+lb_fn
next
MessageBox('提示信息',ll_id)
updateblob zp_goods set picture=:lb_file where goodsid=:ll_id using sqlca;
SQLCA.AutoCommit = true
if SQLCA.SQLNRows>0 then
commit;
MessageBox('提示信息','此图片以成功存入数据库!')
end if
fileclose(fileno)
SQLCA.AutoCommit = False
//////////备注
zp_goods表中有三条记录
goodsid 从一到三。。
------解决方案--------------------
怎么是保存有问题,又怎么才是可以保存
问题看几遍,已经晕了