vba - 调用 MS Access 查询，该查询从 Delphi ADO 组件调用模块中的 VBA 函数

Question

我在 MS Access 模块中创建了一个函数，例如 Calculate(A, B)。

我还在 MS Access 中创建了一个查询来使用此函数，比方说:

UPDATE aTable 
SET aField = Calculate(bField, cField)

如何调用查询，因为我尝试使用:adoConnection.Execute、adoTable、adoQuery、adoCommand 和 StoredProcedure，都拒绝它并显示消息

Undefined function Calculate in expression

提前谢谢您。

Answer 1

你不能。

使用用户定义的 VBA 函数的查询只能由 Access Application 对象执行，并且只能通过 DoCmd.OpenQuery 和 DoCmd.RunSQL 方法执行。

相反，使用 COM 和 Access Application 对象来自动执行该任务。请注意，这将导致相当大的开销。或者，如果可能的话，在 SQL 子句中进行计算。

它们无法通过 ODBC 或 OLEDB 获得，因此在 ADO 中不可用。

如果完整版本的 Access(不是运行时版本或数据库引擎)不可用，您将无法运行使用用户定义的 VBA 函数的查询。