如何修复此 FireDAC 错误？ [FireDAC][Phys][SQLite]错误：接近“某物”语法错误

Question

我正在尝试编写一个与 SQLite 数据库一起使用的简单 Delphi 应用程序。我正在使用

TFDQuery

、

TFDConnection

、

TDataSource

和

TDBGrid

组件。一切都连接正确，编译并启动应用程序后，我可以在

TDBGrid

中看到数据库表中的所有记录。

但是，当我尝试将新记录添加到数据库表中时，我收到此错误消息：

[FireDAC][Phys][SQLite]错误：接近“某物”语法错误

除

INSERT

之外的所有字段均为

AllKeys

。

VARCHAR

是

AllKeys

。这是我用来添加新记录的简单代码：

TEXT

Answer 1

procedure TForm1.Button4Click(Sender: TObject);
begin
  if (cxRichEdit2.text <> '') and (cxTextEdit2.Text <> '') and (cxTextEdit3.Text <> '') then
  begin
    // adding data into table
    FDQuery1.sql.Text := 'INSERT INTO tblTags (Group, Title, Keys, AllKeys) VALUES (:group, :title, :keys, :allkeys)';
    FDQuery1.ParamByName('group').asString := ComboBox1.Text;
    FDQuery1.ParamByName('title').asString := cxTextEdit2.Text;
    FDQuery1.ParamByName('keys').asString := cxTextEdit3.Text;
    FDQuery1.ParamByName('allkeys').asString := cxRichEdit2.Text;
    FDQuery1.ExecSQL;
  end
  else
    ShowMessage('Please fill all important fields!');
end;