我可以在 Powerbuilder 中调用 sp_send_dbmail 吗？

Question

DECLARE sp_send_dbmail PROCEDURE FOR sp_send_dbmail
    @profile_name = :ls_Null,
    @recipients = :ls_To,
    @copy_recipients = :ls_Null,
    @blind_copy_recipients = :ls_Null,
    @subject    = :ls_Null,
    @body = :ls_Body,
    @importance = :ls_Importance,
    @rtn = :li_Rtn OUTPUT;

EXECUTE sp_send_dbmail;

Answer 1

我不知道为什么不，调用存储过程传统上不是 PowerBuilder 的问题。
从我所看到的来看，该代码似乎很好。

执行后检查 SQLCA.SQLCode 和 SQLCA.SQLErrText 以确定是否存在错误。你可以使用类似的东西：

if SQLCA.SQLCode <> 0 then
   MessageBox("Error", "Error Code: " + String(SQLCA.SQLDBCode) + "~r~n" + &
   "Error Message: " + SQLCA.SQLErrText)
end if

Answer 2

在您的交易对象上声明本地外部函数。打开您的自定义事务对象，然后转到“本地外部函数”选项卡。

定义您的过程或 package.procedure 调用，如以下示例所示：

// stored proc no package
SUBROUTINE SubRtnName(args) RPCFUNC   

// function
long ll_rtn = FUNCTION FuncRtnVal(int li_arg) RPCFUNC 

// standard proc with some in/out parameters
SUBROUTINE CalcAmount(string LS_In1, ref string LS_Out2) RPCFUNC

// package.procedure
SUBROUTINE SubRtnName(args) RPCFUNC ALIAS FOR "PackageName.ProcName"

// more complex package.procedure definition
SUBROUTINE CalcPenaltyAmt(string LS_In1, ref string LS_Out2[]) RPCFUNC ALIAS FOR "Penalty.P_Calc_Amount"

使用子例程或函数名称后定义的名称调用代码中的过程：

// call standard proc
SQLCA.SubRtnName(parms);

// call package.procedure
SQLCA.CalcPenaltyAmt('stingarg', ref ls_ref_string_array);

这假设您在应用程序对象中定义并设置为 SQLCA 的非可视事务对象。如果没有自定义事务对象，您就无法定义这样的外部函数。完成的方法是创建一个标准的非可视类型事务，然后在自定义变量中的应用程序对象中将 SQLCA 替换为 n_tr_transaction。