与 unixODBC C API 等效的 RaiseError（PERL、DBI）？

Question

我在执行 INFORMIX DB 中的一些存储过程/函数时遇到问题。我尝试了不同的客户端，它们都是相同的——没有人在执行时检测到错误，而不是这个——返回空响应。这对我不起作用。

最后，我发现PERL DBI 有设置RaiseError 的选项，类似于：

{  PrintError => 0, RaiseError => 1 }

这很完美。但是unixODBC C API lib 是否有这样的等价物（不幸的是我找不到任何东西）？

---

另外：我用isql 尝试了同样的查询，结果是一样的！没有错误，只是空结果：\ 也许它可能是一些选项，应该配置（在odbc.ini，我猜..）？

---

编辑：好的，这里有更多详细信息：
版本：unixODBC 2.3.0

CREATE FUNCTION "test".NOK_func_k() RETURNING LVARCHAR(1000);
set debug file to '/home/directory_does_not_exists/unknown.log';
trace off;
trace on;
trace off;
return 'result is set here';
END FUNCTION;

CREATE PROCEDURE "test".NOK_proc_k(pDummy SMALLINT)
set debug file to '/home/directory_does_not_exists/unknown.log';
trace off;
trace on;
LET pDummy = 2;
trace off;
END PROCEDURE;

而isql 和ODBC C API 的结果是一样的。这里有更多关于C API的信息：

Executing: execute procedure NOK_proc_k(1)
retcode = SQL_ERROR     SQL_SUCCEEDED( retcode ) = 0
--------------------------------------------------
Executing: execute function NOK_func_k()
retcode = SQL_SUCCESS       SQL_SUCCEEDED( retcode ) = 1
--------------------------------------------------
--------------------------------------------------
Executing: execute function NOK_proc_k(1)
retcode = SQL_ERROR     SQL_SUCCEEDED( retcode ) = 0
--------------------------------------------------
Executing: execute procedure NOK_func_k()
retcode = SQL_SUCCESS       SQL_SUCCEEDED( retcode ) = 1
--------------------------------------------------
--------------------------------------------------
Executing: call NOK_proc_k(1)
retcode = SQL_ERROR     SQL_SUCCEEDED( retcode ) = 0
--------------------------------------------------
Executing: call NOK_func_k()
retcode = SQL_SUCCESS       SQL_SUCCEEDED( retcode ) = 1

所有对SQLMoreResults 的调用都返回SQL_NO_DATA，所有SQLFetch 都返回SQL_ERROR。

总结 - 对错误过程的所有调用都很好 - 返回错误。但是如果这个错误在存储的 function 中 - 没有检测到错误；而不是这个 - 返回 EMPTY 字符串。出局！

SQL_SUCCESS_WITH_INFO不会在任何地方返回。许多其他错误也是如此（当然不是全部，这只是一个示例）

---

还有更多！过程或函数如：

CREATE PROCEDURE "test".nok_proc_k_2() RETURNING LVARCHAR(1000);
DEFINE vNotDefined VARCHAR(10);
LET vNotDefined = current;
END PROCEDURE;

不返回任何错误，而 Aqua DB 工作室返回

Converted value does not fit into the allotted space

---

答案：

我会接受 bohica 的回答，因为它是正确的，并且它对 PERL DBI 部分的回答是正确的。此外，他真的帮助了我（strace 的命中）。

无论如何，真正的解决方案不在这里。我已将其发布在相关问题中，该问题对特定案例更为具体和孤立：The same error is detected in stored **procedure**, but not in stored **function**

Answer 1

Perl 中的 RaiseError 所做的只是说，当 DBD（如 DBD::ODBC）看到错误时，DBI 将调用任何已注册的错误处理程序并使用该错误调用 die（取决于错误处理程序返回的内容）。仍然由 DBD 通过 set_err 方法向 DBI 发出错误信号。

我认为您的 Perl 使用的是 DBD::ODBC。 DBD::ODBC 将简单地检查它调用的每个 ODBC API 的返回状态，如果它是 SQL_SUCCESS_WITH_INFO 它调用 DBI set_err 说这是一个警告，如果是 !SQL_SUCCEEDED 它调用 set_err 说有一个错误（有一些例外，如SQL_NO_DATA 并不总是错误）。

如果您说您的 Perl 因您所期望的错误而死，但您的 C 代码没有，那么您一定不能检查 ODBC API 返回，或者（因为您提到了过程）您没有确保在循环中调用 SQLMoreResults在 SQL 上的 SQLExecute 之后调用该过程。请记住，某些数据库一次在一个过程中执行每个插入/选择/更新，而在 ODBC 中，您需要调用 SQLMoreResults 来遍历每个过程。如果您不这样做，您的程序还没有完成，因此您可能没有遇到错误。