hur.cn - 华软网

 热门搜索

毕业设计—急selectblob 怎么老是死掉呢???

  作者:未知    来源:网络    更新时间:2018/11/9
do while xuanze > 0    ////////选择题抽取次数 
rand1=rand(hao)
rand1 = rand1 + 100000
str1=string(rand1)
select 章节,题型,难度,选择标志 into :zhangjie,:tixing,:nandu,:xuanzhong from T_tiku
where 序号=:str1 using sqlca;
 if xuanzhong = 0 then  /////判断是否重复选择   
   if tixing="选择题" then
   selectblob 内容 into :cneirong from T_tiku  /////程序执行到这里大部份时候会死掉,
                                   /////////只有很少时候运行通过!(偶尔能够运行啊)
   where 序号=:str1 using sqlca;
    selectblob 结果 into :cdaan from T_tiku  
   where 序号=:str1 using sqlca;
    insert into T_shiti(章节,题型,难度,编号)
    values(:zhangjie,:tixing,:nandu,:str1)using sqlca;
    if sqlca.sqlcode<>-1 then                       
     commit using sqlca;
  sqlca.autocommit=true
     updateblob T_shiti set 内容=:cneirong 
     where 编号=:str1 using sqlca;
     updateblob T_shiti set 结果=:cdaan 
     where 编号=:str1 using sqlca;
  sqlca.autocommit=false
  update T_tiku set 选择标志=1
where 序号=:str1 using sqlca;
  xuanze --
       end if
else
rollback using sqlca;
   end if                       

end if            
end if        
loop
------华软网友回答------
selectblob 必需在 sqlca.autocommit =true 下运行才好
------华软网友回复------
selectblob 之前先运行sqlca.autocommit=true

对于sybase及sqlserver 数据库需要设置sqlca.autocommit=true

     
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。