Delphi 10.2执行Access存储查询遇3389错误及MSI安装问题解决

我之前在维护Delphi 10.2 Tokyo的32位Access应用时，也碰到过一模一样的3389错误，尤其是打包成MSI后在测试机上触发的情况。结合我的排查经验，给你拆解问题和解决方案：

一、错误3389的核心排查方向 #

这个错误本质是dbExpress的Access驱动无法正常识别或执行查询，结合你是MSI安装后出现的问题，重点查这几点：

1. 测试机的32位ODBC驱动是否正常 #

因为你的应用是32位的，必须依赖32位Access ODBC驱动，64位系统上默认的ODBC管理器是64位的，根本看不到32位驱动：

• 打开32位ODBC管理器：运行C:\Windows\SysWOW64\odbcad32.exe
• 检查「驱动程序」标签下是否有Microsoft Access Driver (*.mdb, *.accdb)
• 如果没有，需要安装对应版本的32位Access数据库引擎（注意：64位系统安装32位引擎时，要先卸载64位Office/Access组件，或者用静默参数AccessDatabaseEngine.exe /passive /quiet强制安装）

2. MSI部署时缺失dbExpress驱动文件 #

Delphi的dbExpress Access驱动依赖两个关键DLL，必须打包进MSI并部署到应用目录（或32位系统目录C:\Windows\SysWOW64）：

• dbexpora.dll：Access专属的dbExpress驱动
• dbexpoda.dll：dbExpress的通用数据访问支持库

注意：要拿你Delphi安装目录下Redist\dbExpress\10.2\Win32里的对应版本，不能随便找其他版本替代，版本不匹配也会触发查询错误。

3. Access数据库文件的权限问题 #

MSI默认会把程序装到Program Files (x86)目录，这个目录默认是只读权限，Access数据库需要读写权限才能加载查询定义：

• 要么把数据库文件移到用户可读写的目录（比如%APPDATA%\YourAppName），在安装时通过MSI创建这个目录并设置权限
• 要么给安装目录下的数据库文件添加「Authenticated Users」的读写权限

二、执行Access存储查询的正确姿势（避免3389错误） #

用dbExpress执行Access存储查询时，要避开几个坑：

1. 直接引用存储查询，避免复杂嵌套 #

Access的存储查询可以直接当作表来查询，写法很简单，但是要注意用方括号包裹查询名（如果查询名有空格或特殊字符）：

procedure ExecuteSavedQuery(SQLConn: TSQLConnection);
var
  Query: TSQLQuery;
begin
  Query := TSQLQuery.Create(nil);
  try
    Query.SQLConnection := SQLConn;
    // 直接调用Access存储查询
    Query.SQL.Text := 'SELECT * FROM [MonthlySalesReport]';
    Query.Open;
    
    // 处理查询结果，比如遍历记录
    while not Query.Eof do
    begin
      // 操作字段：Query.FieldByName('SalesAmount').AsCurrency
      Query.Next;
    end;
  finally
    Query.Free;
  end;
end;

2. 参数化存储查询的正确调用方式 #

如果你的存储查询带参数，不要用EXECUTE语法，直接把参数作为绑定变量传递：
比如Access里的存储查询GetCustomerOrders有参数@CustomerID，Delphi里这样调用：

procedure ExecuteParamQuery(SQLConn: TSQLConnection; CustomerID: Integer);
var
  Query: TSQLQuery;
begin
  Query := TSQLQuery.Create(nil);
  try
    Query.SQLConnection := SQLConn;
    // 直接引用参数化存储查询
    Query.SQL.Text := 'SELECT * FROM [GetCustomerOrders]';
    // 绑定参数，注意参数名要和Access查询里的参数名一致
    Query.ParamByName('CustomerID').AsInteger := CustomerID;
    Query.Open;
    
    // 处理结果
  finally
    Query.Free;
  end;
end;

3. 避开dbExpress驱动不支持的查询类型 #

dbExpress的Access驱动对某些复杂Access查询支持有限，比如交叉表查询（Crosstab）、带自定义VBA函数的查询，大概率会触发3389错误。这种情况下，你有两个选择：

• 把查询逻辑迁移到Delphi代码里，用普通SQL实现
• 临时切换到ADO组件（TOleDBConnection+TADOQuery）执行这类特殊查询，ADO对Access的兼容性更好

最后验证步骤 #

1. 先在测试机手动部署dbExpress驱动DLL并注册：运行C:\Windows\SysWOW64\regsvr32.exe /s "你的应用目录\dbexpora.dll"
2. 用32位ODBC管理器手动配置数据源，连接你的Access数据库
3. 直接运行应用程序（不是通过MSI安装），看是否还会触发错误
4. 如果手动运行正常，再排查MSI的打包逻辑，确保驱动文件、权限、ODBC驱动都配置正确

内容的提问来源于stack exchange，提问作者Dobedani