使用Delphi的TADOConnection连接Excel 2016时出现初始化提供程序错误

阿华AIGC实验室

2026-5-19

我之前碰到过一模一样的问题，你现在的核心问题是驱动和连接字符串不匹配Excel 2016的xlsx格式——你当前用的是针对旧版xls文件的ODBC配置，xlsx需要专门的驱动支持，下面一步步给你解决：

问题根源分析

你用的DriverId=790是旧版Excel 97-2003（xls）对应的ODBC驱动ID，完全不兼容xlsx格式。另外，通过ODBC桥接OLE DB的方式本身就不如直接用专门的ACE OLEDB Provider稳定。

分步解决方案

1. 确认并安装正确的驱动

Excel 2016的xlsx文件需要使用Microsoft ACE OLEDB Provider 12.0/16.0或者对应的ODBC驱动：

如果你的系统已经安装了Office 2016，通常会自带ACE驱动；如果没有，可以单独下载「Microsoft Access Database Engine 2016 Redistributable」（注意要匹配你的RAD Studio编译位数：32位RAD下装32位驱动，64位RAD装64位驱动，位数不匹配一定会报错）。
验证驱动是否存在：打开对应位数的ODBC数据源管理器（32位是%windir%\SysWOW64\odbcad32.exe，64位是%windir%\System32\odbcad32.exe），看是否有「Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)」这个选项。

2. 调整连接字符串（推荐无DSN方式）

直接使用ACE OLEDB Provider的连接字符串比DSN更可靠，避免DSN配置的坑，示例如下：

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\artiom\Desktop\liste1.xlsx;Extended Properties="Excel 12.0 Xml;HDR=YES;IMEX=1;"

参数解释：

HDR=YES：表示Excel第一行是表头（对应你的N° Name Price），如果没有表头就设为NO。
IMEX=1：开启混合数据模式，避免Excel中同一列存在不同数据类型时（比如数字和文本）出现读取丢失的问题。

3. TADOConnection的具体配置步骤

拖一个TADOConnection控件到你的Delphi窗体上。
点击它的ConnectionString属性，选择「Build...」。
在弹出的对话框中，选择「Microsoft OLE DB Provider for ACE 12.0」（如果是Office 2016可能显示16.0，选对应版本即可）。
点击「下一步」，在「数据源」里选择你的xlsx文件路径。
点击「高级」按钮，在「扩展属性」里输入Excel 12.0 Xml;HDR=YES;IMEX=1;。
点击「测试连接」，如果成功就可以保存配置了。

4. 读取并插入数据库的示例代码

假设你已经有一个连接目标数据库的TADOConnection（比如叫ADOConnection_DB），下面是读取Excel数据并插入数据库的示例：

procedure TMainForm.btnImportClick(Sender: TObject);
var
  qryExcel: TADOQuery;
  qryDB: TADOQuery;
begin
  qryExcel := TADOQuery.Create(nil);
  qryDB := TADOQuery.Create(nil);
  try
    // 配置Excel查询
    qryExcel.Connection := ADOConnection_Excel; // 你的Excel连接
    qryExcel.SQL.Text := 'SELECT * FROM [Sheet1$]'; // 注意表名格式：[工作表名$]
    qryExcel.Open;

    // 配置数据库插入查询
    qryDB.Connection := ADOConnection_DB; // 你的数据库连接
    qryDB.SQL.Text := 'INSERT INTO Products (ProductNo, ProductName, Price) VALUES (:No, :Name, :Price)';

    // 循环读取并插入
    while not qryExcel.Eof do
    begin
      qryDB.Parameters.ParamByName('No').AsInteger := qryExcel.FieldByName('N°').AsInteger;
      qryDB.Parameters.ParamByName('Name').AsString := qryExcel.FieldByName('Name').AsString;
      qryDB.Parameters.ParamByName('Price').AsFloat := qryExcel.FieldByName('Price').AsFloat;
      qryDB.ExecSQL;
      qryExcel.Next;
    end;

    ShowMessage('商品数据导入完成！');
  finally
    qryExcel.Free;
    qryDB.Free;
  end;
end;

常见避坑指南

位数不匹配：这是最常见的错误！如果你的RAD Studio是32位（默认多数版本是32位），必须安装32位的ACE驱动，哪怕你的系统是64位的；如果装了64位Office，ACE驱动也是64位，这时候要么把RAD改成64位编译，要么卸载64位Office装32位，或者单独下载32位ACE驱动。
文件权限：确保你的程序有读取xlsx文件的权限，不要把文件放在C:\Windows或Program Files这类需要管理员权限的目录，或者右键以管理员身份运行RAD Studio试试。
工作表名格式：读取Excel时，表名必须写成[工作表名$]，比如你的数据在Sheet1里，就用[Sheet1$]，如果工作表名有空格，也要包含在括号里，比如[商品列表$]。

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