PB连接DB2数据库,向数据库中保存BLOB类型的数据出现错误

sdwsd1977

pb7.0  + db2 8.1数据库

将图片文件保存到BLOB列出现，出现错误现象:
SQLSTATE=S1010
[Microsoft][ODBC驱动程序管理器]函数序列错误

PB代码：
blob blb_b,blb_t_b
long ll_hand
ll_hand=FileOpen(ls_filepath+ls_filename,StreamMode!,Read!,shared!)//以读方式打开文件
if not (ll_hand>;0) then
        messagebox('提示','打开文件'+ls_filepath+ls_filename+'失败此次更新未完成')
        return 0
end if

if not (li_count>;0) then
        INSERT INTO tb_wh_cxgx  
         ( fd_zxt,   
           fd_wjmc,   
           fd_zhxgsj)  
          VALUES ( :ls_xtdm,   
           :ls_filename,   
                          :ldt_filetime)  ;
else
        update tb_wh_cxgx  
          SET fd_zhxgsj = :ldt_filetime  
          WHERE ( fd_zxt = :ls_xtdm ) AND  
        ( fd_wjmc = :ls_filename );
end if
if sqlca.sqlcode=0 then
        commit;
else
        messagebox('提示','文件'+ls_filepath+ls_filename+'在向数据库写时出错~r~n'+sqlca.sqlerrtext)
        return 0
end if
//-------------------------------------------------

DO
        blb_t_b=blb_t_b+blb_b
LOOP WHILE fileread(ll_hand,blb_b)>;0//读出文件至变量blb_t_b
fileclose(ll_hand)//关闭文件

updateblob tb_wh_cxgx  
  SET fd_wjnr = :blb_t_b   
  WHERE ( fd_zxt = :ls_xtdm ) AND  
        ( fd_wjmc = :ls_filename );//将文件写入数据中
//-------------------------------------------------

if sqlca.sqlcode=0 then
        commit;
else
        messagebox('提示','文件'+ls_filepath+ls_filename+'在向数据库写时出错~r~n'+sqlca.sqlerrtext)
        return 0
end if


联系QQ：40577164

jb_0625

你跟我一样的错误，我正抓狂呢，你QQ或者MSN多少？如果解决了请告诉我，谢谢，我MSN是xuruiheng@hotmail.com

蒋猫

西西 我也是PB+DB2 我的保存图片 可以的  代码和PB+SQL一样的
是否你定义了BLOB 字段不够大 换成几M看看