PB连接DB2数据库，向数据库保存图片时出现错误

sdwsd1977

错误提示：SQLSTATE = S1010
[Microsoft][ODBC 驱动程序管理器] 函数序列错误

PB连接DB2数据库，向数据库保存图片时出现错误

pujing

图片存数据库前，要转化成文本文件，你转了吗？
把你写的贴上来，看看才能知道

sdwsd1977

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


请问怎么将图版转化为文件文件呀

请各位大侠指教帮忙，谢谢