当前位置: 代码迷 >> PB >> 帮忙看一上哪里有有关问题
  详细解决方案

帮忙看一上哪里有有关问题

热度:10   发布时间:2016-04-29 07:38:37.0
帮忙看一下哪里有问题
filedata 总是插入NULL值?
string ls_str,str
int m

int f_num,i,loops,ctr,ret
long f_len,sum_read,p_new
p_new=0
blob b,tot_b

f_len=filelength("e:\yspos\dw_base.pbd")
f_num=fileopen("e:\yspos\dw_base.pbd",streammode!)
str=sle_1.text
//f_len=filelength(str)
//f_num=fileopen(str,streammode!)
if f_len>32765 then
if mod(f_len,32765)=0 then
loops=f_len/32765
else
loops=(f_len/32765)+1
end if
else
loops=1
end if
for i=1 to loops
sum_read=fileread(f_num,b)
tot_b=tot_b+b
p_new=p_new+sum_read
fileseek(f_num,p_new,frombeginning!)
next
fileclose(f_num)

string ls_version,ls_filename
long num
ls_filename=right(str,len(str) - lastpos(str,'\'))
select max(viersion) into :ls_version from soft_fileinfor where filename=:ls_filename ;
if left(ls_version,8)=string(today(),'yyyymmdd') then
num=long(right(ls_version,4))+1
ls_version=string(today(),'yyyymmdd')+string(num,'0000')
else
ls_version=string(today(),'yyyymmdd')+string(1,'0000')
end if
debugbreak()

insert into soft_fileinfor(viersion,filename) values(:ls_version,:ls_filename);
updateblob soft_fileinfor set filedata=:tot_b where viersion=:ls_version using sqlca;



------解决方案--------------------
需要DEBUG看看.
------解决方案--------------------
引用:
DEBUGB 了,
f_len=filelength("e:\yspos\dw_base.pbd")
f_num=fileopen("e:\yspos\dw_base.pbd",streammode!)

这两句都返回-1,
不知道为什么?

filelength():
 If the file does not exist, FileLength returns -1
fileopen():
 Returns -1 if an error occurs.
------解决方案--------------------
fileexists("e:\yspos\dw_base.pbd")
返回什么
  相关解决方案