具体代码如下:
ls_sql = "update t_bk "+&
"set k='"+ls_k+"',bk_qk="+string(ll_xh)+",bk_kaoc="+string(ll_bk_kaoc)+&
" where (ks_zkz='"+ls_zkzh+"') and (kc_dm="+string(ll_kc_dm)+")"
execute immediate :ls_sql using Trans_r_t_bk;
if Trans_r_t_bk.sqlcode = 0 then
commit using Trans_r_t_bk;
else
messagebox('警告','更新报考库(t_bk)失败!~r~n'+Trans_r_t_bk.sqlerrtext)
messagebox('提示','zkzh='+ls_zkzh+' kch='+string(ls_kch))
mle_1.text = ''
cb_quit.setfocus()
rollback using Trans_r_t_bk;
return
end if