hur.cn - 华软网

 热门搜索

pb8.0把图片导入sqlserver2000中问题?

  作者:未知    来源:网络    更新时间:2019/5/10
connect;
SetPointer(HourGlass!)
long ll_row,ll_return,ll_len
string ls_path,ls_file
integer fileno
blob lb_file ,lb_fn
int li_ii,ii
select max(id) into :ll_row from blobsave;

if isnull(ll_row) then ll_row=0
ll_row=ll_row + 1
insert into blobsave(id,test) values(:ll_row,'尝试') ;
if sqlca.sqlcode=0 then
commit;
end if
ll_return = GetFileOpenName("请选择图片资料",ls_path,ls_file,"jpg",'jpg 资料(*.jpg),*.jpg,所有资料(*.*),*.*')
ll_len = FileLength(ls_file)
MessageBox('ll_len',ll_len)
fileno = FileOpen(ls_file,StreamMode!,READ!,LOCKREAD!)
li_ii = ceiling(ll_len/32765)
MessageBox('li_ii',li_ii)
for ii = 1 to li_ii
FileRead (fileno, lb_fn)
lb_file = lb_file + lb_fn
next
//SQLCA.AutoCommit =true
updateblob blobsave set pic = :lb_file where id = :ll_row USING SQLCA;
if sqlca.SQLNRows>0 then 
COMMIT;
MessageBox('提醒信息','此图片以成功存入数据库!')
end if
SQLCA.AutoCommit = false
fileclose(fileno)


为什么updateblob 这里好长时间都没有提醒保存成功的信息?是否是那里不对?
数据库字段类型为:image,text(我也尝试过)



------华软网友回答------
修改
fileclose(fileno)
//SQLCA.AutoCommit =true
updateblob blobsave set pic = :lb_file where id = :ll_row USING SQLCA;
if sqlca.sqlcode=0 then 
COMMIT;
MessageBox('提醒信息','此图片以成功存入数据库!')
end if
SQLCA.AutoCommit = false
     
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。