long ll_data
ll_data = 0
select 1 into :ll_data from dual;
if ll_data = 1 then
gnv_base.setmicrohelp('连接成功')
return
end if
disconnect using sqlca;
connect using sqlca;
if sqlca.sqlcode = 0 then
//
else
gnv_base.of_message('连接出错,' + sqlca.sqlerrtext)
end if