1.请使用直连方式,不要使用odbc,直连方式可以带参数调用存储过程,并可以取得返回值
sqlca.AutoCommit = true
DECLARE p_1 PROCEDURE &
FOR jz_return_charge_ladder @begin_date=:date11, @end_date=:date22, @clientno=0,@bourse=0,@jz_id=0
using sqlca;
Execute p_1;
IF sqlca.sqlcode <> -1 then
commit using sqlca;
else
messagebox('提示','统计失败'+sqlca.sqlerrtext)
rollback using sqlca;
end if
Close p_1;
sqlca.AutoCommit = false
2.ODBC连接,请使用下边的调用格式
Declare p_1 Procedure &
For jz_return_charge_ladder(:date11, :date22, 0, 0, 0)
Using sqlca;
Execute p_1;
IF sqlca.sqlcode <> -1 then
commit using sqlca;
else
messagebox('提示','统计失败')
rollback using sqlca;
end if
Close p_1;