Delphi XE7+Firebird2.5向全局临时表插入数据抛Dynamic SQL Error异常

API 探路者

2026-11-1

异常根因定位

逐条对应触发链路的实际问题：

核心SQL语法错误直接触发解析异常
你写的插入语句 Insert into TempExcl(:cuitExcl) 完全不符合标准INSERT语法结构。正确语法要求要么写全列清单+对应值，要么简写为INSERT INTO 表 VALUES(值)，你当前的写法既没指定插入列，也遗漏了VALUES关键字。
这种错误语法下，FireDAC的SQL解析器会误以为括号内的:cuitExcl是表的字段清单，无法将其识别为值参数，最终直接把未解析的占位符替换成Firebird 2.5原生不支持的?发给服务器。Firebird解析到这个未知token时，就会抛出提示中的Dynamic SQL Error ... Token unknown ... ?错误。
参数值双重转义的潜在隐患
你对网格提取的CUIT值额外执行了QuotedStr()（自动在字符串前后拼单引号），再赋值给参数的AsString属性。这属于冗余转义：数据库参数本身就会自动处理字符串的单引号转义逻辑，你手动加的单引号会被当成普通字符存入，最终值的长度会超过临时表cuitExcl varchar(13)的定义，触发后续的长度溢出异常。
临时表的事务逻辑混乱
你定义的全局临时表是ON COMMIT DELETE ROWS属性，数据本身就会在事务提交后自动清空，完全不需要手动执行drop table操作。而你手动拼接commit;、drop tableSQL逐句执行的方式，会打乱FireDAC内部的事务管理状态：DDL语句（创建表、删除表）在Firebird中是事务性的，创建临时表后如果不及时提交事务，表定义仅在当前事务上下文可见，后续操作很容易触发"表不存在"的错误。
代码变量笔误
变量声明段定义的查询对象是qCuitsExcl，但finally块里释放的对象名是qCuitsExcluidos，拼写不一致，运行时会触发空对象引用异常。

针对性修复方案

按优先级调整代码：

修正插入语句语法，把SQL初始化逻辑挪到循环外，避免每次循环都重复解析SQL：

// 循环外一次性初始化插入SQL，仅执行一次解析
qCuit.SQL.Text := 'INSERT INTO TempExcl (cuitExcl) VALUES (:cuitExcl)';
for niRow := 1 to gDetails.RowCount - 1 do
  if Trim(gDetails.Cells[3,niRow]) <> '' then
  Begin
    // 去掉多余的QuotedStr转义，直接传原始字符串值
    qCuit.ParamByName('cuitExcl').AsString := Trim(gDetails.Cells[3,niRow]);
    qCuit.ExecSQL;
  End;

调整临时表的事务逻辑，去掉冗余的手动commit、drop表代码：

// 执行完创建临时表的语句后，提交事务让表定义生效
qCuitsExcl.SQL.Text := 'Create global temporary table TempExcl (cuitExcl varchar(13)) on commit delete rows';
qCuitsExcl.ExecSQL;
qCuitsExcl.Connection.CommitTrans;
// 原来循环后手动执行commit、drop表的代码段全部删除，临时表会在连接断开时自动释放，ON COMMIT DELETE ROWS属性也会在事务提交后自动清空数据

修正finally块的变量笔误，将FreeAndNil(qCuitsExcluidos)改为和声明一致的FreeAndNil(qCuitsExcl)。
优化冗余判断逻辑：原代码中只有网格行数大于0才加CUIT排除条件的判断没有实际意义，就算临时表中没有数据，Cuit Not In (Select cuitExcl from TempExcl)的逻辑也会正常执行，无需额外判断。

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