select count(*) into :ll_count from dyn_report where dwobject =:is_dwobject; if ll_count =0 then insert into dyn_report(dwobject,rptitle) values(:is_dwobject,:ls_filename,:ls_path); end if //从硬盘临时文件读取数据保存到数据库表中 emp_id_pic = of_readbmpfile(ls_filename)//该函数将二进制文件内容读到大文本对象中 //更新数据库 UPDATEBLOB dyn_report SET memo = :Emp_id_pic where dwobject = :is_dwobject; sqlca.autocommit = false