pb中 调用 存储过程 例子

sqlca.autocommit=true

declare lup_drophiscol procedure for up_drophiscol

@tablename=:ls_tabname,

@checkcontent=:ls_err output;

execute lup_drophiscol;

if sqlca.sqlcode = -1 then

sqlca.autocommit=false

messagebox('出错',sqlca.sqlerrtext)

return

end if

fetch lup_drophiscol into :ls_err;

close lup_drophiscol;

sqlca.autocommit=false

if sqlca.sqlcode = -1 then

messagebox('出错',sqlca.sqlerrtext)

elseif isnull(ls_err) or ls_err='' then

messagebox('系统提示！','删除成功!')

else

messagebox('出错！',ls_err)

end if