输入参数是随机的,用到的列有:A B C D E F (比如 1 2 4 3 5 ),输出的计算结果放到 G 列(结果为88)
以下是PB11.5的,只作参考long vn1,vn2,vn3,vn4,vn5,vn6,vn7,vnname declare e_e procedure for @vnname=dbo.e_e @A=:vn1, @B=:vn2, @C=:vn3, @D=:vn4, @E=:vn5, @F=:vn6, @G out using sqlca;execute e_e;choose case sqlca.sqlcode case 0 do fetch e_e into :vnname,:vn7; loop while sqlca.sqlcode=0 case 100 messagebox('友情提示','没有返回值') return '-1' case -1 messagebox('友情提示','连接失败'+string(sqlca.sqldbcode)+'='+sqlca.sqlerrtext) return '-1' end choosefetch e_e into :vnname,:vn7; commit using sqlca;choose case sqlca.sqlcode case 0 CLOSE gp_findtemptable; case 100 messagebox('友情提示','没有返回值') return -1 case -1 messagebox('友情提示',string(sqlca.sqldbcode)+'='+sqlca.sqlerrtext) return -1 end choose
--????? 不明白? exec e_e @A,@B,@C,@D,abcd的值,你从表中查询出来。
declare e_e procedure for
@vnname=dbo.e_e
@A=:vn1,
@B=:vn2,
@C=:vn3,
@D=:vn4,
@E=:vn5,
@F=:vn6,
@G out
using sqlca;execute e_e;choose case sqlca.sqlcode
case 0
do
fetch e_e into :vnname,:vn7;
loop while sqlca.sqlcode=0
case 100
messagebox('友情提示','没有返回值')
return '-1'
case -1
messagebox('友情提示','连接失败'+string(sqlca.sqldbcode)+'='+sqlca.sqlerrtext)
return '-1'
end choosefetch e_e into :vnname,:vn7;
commit using sqlca;choose case sqlca.sqlcode
case 0
CLOSE gp_findtemptable;
case 100
messagebox('友情提示','没有返回值')
return -1
case -1
messagebox('友情提示',string(sqlca.sqldbcode)+'='+sqlca.sqlerrtext)
return -1
end choose