pb如何调用oracle存储过程得到返回值

Question

DECLARE p_cgs1 PROCEDURE FOR p_cgs (:ls_bm,:ls_tjny,:ldc_hjdl, :ldc_jfdl) USING sqlca;
     EXECUTE p_cgs1;

Answer 1

用PB对Oracle的专用连接，不要用ODBC：
SQLCA.DBMS = "O84 Oracle8/8i (8.x.4+)"
SQLCA.LogPass = "PASSWORD"
SQLCA.ServerName = "****"
SQLCA.LogId = "USER"
SQLCA.AutoCommit = False
SQLCA.DBParm = "PBCatalogOwner='USER'"
CONNECT;DECLARE p_cgs1 PROCEDURE FOR p_cgs (:ls_bm,:ls_tjny,:ldc_hjdl, :ldc_jfdl) USING sqlca;
EXECUTE p_cgs1;