学无止境

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;

posted on 2011-09-07 15:39  DHT  阅读(871)  评论(0编辑  收藏  举报