如何修复FireDAC SQLite的"Cannot open / define command"错误？

我实现了下拉框联动功能：用户选择第一个下拉框的分类后，第二个下拉框会从SQLite表读取对应分类的条目填充列表。

现在遇到FireDAC错误，明明已经调用了ExecSQL执行插入操作，却还是提示“应使用ExecSQL插入新条目”，错误截图如下：

相关代码如下：

procedure TTrips.Btn_Add_Place_DB_02Click(Sender: TObject);
var
    newPlace : string;
    newCat: string;
    newPlaceAddress: string;

begin

    newPlace := EditDestinoPlace.Text;
    newCat := Comb_Place_Cat_02.Text;
    newPlaceAddress := EditDestino.Text;

    if (newPlace <> '') AND (newCat <> '')  then
      begin
        Places_Conn.Connected := True;
        Places_Q.Active := True;
        Places_Q.SQL.Text := 'INSERT INTO Contacts_Places (Place_Cat, Place_Name, Place_Address) VALUES (:newCat, :newPlace, :newPlaceAddress)';
        Places_Q.Params.ParamByName('newPlace').AsString := newPlace;
        Places_Q.Params.ParamByName('newCat').AsString := newCat;
        Places_Q.Params.ParamByName('newPlaceAddress').AsString := newPlaceAddress;
        Places_Q.ExecSQL;
        loadPlaces;
        ShowMessage('The place ' +newPlace+ ' has been added to the list of common places.');
        Places_Q.Close;
        Places_Conn.Connected := False;
        Places_Q.Active := False;
        Comb_Place_Cat_02.ItemIndex := -1;
        Comb_Places_02.ItemIndex := -1;
      end

    else
      begin
        ShowMessage('Category or Place Name is empty.');
      end;

我在其他表执行相同操作时，问题依旧。

问题原因及解决方法 #

错误根源在于你先调用了Places_Q.Active := True;，这会让数据集处于活跃查询状态，此时直接修改SQL为INSERT语句并执行ExecSQL会触发冲突——FireDAC不允许在数据集活跃时直接切换到执行DML语句，必须先关闭活跃的数据集。

修正步骤： #

1. 移除Places_Q.Active := True;这行代码，或者在修改SQL前先关闭数据集：

   Places_Q.Close; // 先关闭活跃的数据集
   Places_Q.SQL.Text := 'INSERT INTO ...';
   

2. 优化连接与数据集的操作逻辑，避免不必要的开关：
   • 不需要每次操作都断开连接，保持连接复用更高效
   • 执行完ExecSQL后无需立刻关闭数据集，按需处理即可

修正后的代码示例：

procedure TTrips.Btn_Add_Place_DB_02Click(Sender: TObject);
var
    newPlace : string;
    newCat: string;
    newPlaceAddress: string;
begin
    newPlace := EditDestinoPlace.Text;
    newCat := Comb_Place_Cat_02.Text;
    newPlaceAddress := EditDestino.Text;

    if (newPlace <> '') AND (newCat <> '')  then
      begin
        if not Places_Conn.Connected then
          Places_Conn.Connected := True;

        Places_Q.Close; // 关闭之前可能活跃的数据集
        Places_Q.SQL.Text := 'INSERT INTO Contacts_Places (Place_Cat, Place_Name, Place_Address) VALUES (:newCat, :newPlace, :newPlaceAddress)';
        Places_Q.Params.ParamByName('newPlace').AsString := newPlace;
        Places_Q.Params.ParamByName('newCat').AsString := newCat;
        Places_Q.Params.ParamByName('newPlaceAddress').AsString := newPlaceAddress;
        Places_Q.ExecSQL;
        
        loadPlaces;
        ShowMessage('地点 "' + newPlace + '" 已添加到常用地点列表。');
        
        // 重置控件状态
        Comb_Place_Cat_02.ItemIndex := -1;
        Comb_Places_02.ItemIndex := -1;
        EditDestinoPlace.Clear;
        EditDestino.Clear;
      end
    else
      begin
        ShowMessage('分类或地点名称不能为空。');
      end;
end;

额外提示： #

• FireDAC中，Active := True用于执行查询类语句（SELECT）并返回数据集，而ExecSQL用于执行DML/DDL语句（INSERT/UPDATE/DELETE/CREATE等），两者不能在同一数据集实例上同时进行
• 建议为数据集组件设置ResourceOptions.AutoReconnect := True，避免连接意外断开
• 可以使用Places_Q.Prepare预编译SQL语句，提升重复执行的效率

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