@H_404_0@为了方便测试,我把官方提供的 C:\Users\Public\Documents\Embarcadero\Studio\14.0\Samples\data\FDDemo.sdb 复制了一份到 C:\Temp\FDDemo.sdb .

---

{新建一个 VCL Forms Application,然后添加如下控件(建议按 Ctrl + . 后用键盘输入添加):}

TFDPhyssqliteDriverLink // 用于驱动自动连接; 不同数据库各对应一个: TFDPhys****DriverLink
TFDGUIxWaitCursor    // 用于自动管理 GUI 程序的"等待光标"; 在 Console 和 FMX 下也都有类似对应的东西
TFDConnection      // 数据连接
TFDQuery        // 数据查询
TDataSource       // 数据源
TDBGrid         // 数据显示

// uses FireDAC.Phys.sqlite 之后,可不用添加 TFDPhyssqliteDriverLink
// uses FireDAC.VCLUI.Wait 之后,可不用添加 TFDGUIxWaitCursor


{简单几行代码,就呈现了 FDDemo.sdb 中的 Orders 表中的数据}
procedure TForm1.FormCreate(Sender: TObject);
begin
 FDConnection1.DriverName := 'sqlite';
 FDConnection1.Params.Add('Database=C:\Temp\FDDemo.sdb');

 FDQuery1.Connection := FDConnection1;
 DataSource1.DataSet := FDQuery1;
 DBGrid1.DataSource := DataSource1;

 FDQuery1.sql.Text := 'SELECT * FROM Orders'; // sqlite 非常好地支持了 sql92 标准,目前被忽略的仅有: http://www.sqlite.org/omitted.html 

 FDConnection1.Open();
 FDQuery1.Open();

 DBGrid1.Align := alClient;
end;

---

效果图:

---

{稍稍变通一下代码} procedure TForm1.FormCreate(Sender: TObject); begin // FDConnection1.ConnectionString := 'DriverID=sqlite; Database=C:\Temp\FDDemo.sdb'; // 可代替下面两行 FDConnection1.Params.Add('DriverID=sqlite'); // 同 FDConnection1.DriverName := 'sqlite'; FDConnection1.Params.Add('Database=C:\Temp\FDDemo.sdb'); FDQuery1.Connection := FDConnection1; DataSource1.DataSet := FDQuery1; DBGrid1.DataSource := DataSource1; FDQuery1.sql.Text := 'SELECT * FROM Orders'; FDConnection1.Connected := True; FDQuery1.Active := True; DBGrid1.Align := alClient; end; {再变通一下} procedure TForm1.FormCreate(Sender: TObject); begin FDQuery1.Connection := FDConnection1; DataSource1.DataSet := FDQuery1; DBGrid1.DataSource := DataSource1; FDConnection1.Open('DriverID=sqlite;Database=C:\Temp\FDDemo.sdb'); FDQuery1.Open('SELECT * FROM Orders'); DBGrid1.Align := alClient; end; 原文链接：https://www.f2er.com/sqlite/199558.html