FireDAC中的SQLite（二）

我们接下来将要使用FDDemo.sdb数据库进行访问，开始我们的第一个SQLite访问例子。

我们的FDDemo.sdb存放目录在：C:\Program Files (x86)\Embarcadero\Studio\14.0\Samples\Data

新建VCL Forms Application

在XE6 IDE中按 Ctrl + . 键，快速输入 VCL Forms Application，回车后新建了一个VCL Forms Application应用程序。

添加FireDAC相关组件

继续按Ctrl + . 键，快速输入下面的字符，创建如下组件：

FDPhysSQLiteDriverLink    //SQLite驱动自动连接组件，等同于 uses FireDAC.Phys.SQLite；
FDGUIxWaitCursor          //用于自动管理GUI程序的等待光标，等同于 uses FireDAC.VCLUI.Wait；
FDConnection              //数据连接
FDQuery                   //数据查询
DataSource                //数据源
DBGrid                    //数据表格显示

添加后，IDE中如下图效果：

 

接下来我们输入简单的代码，如下：

procedure TForm1.FormCreate(Sender: TObject);
var
  DBStr: string;
begin
  //设置FDDemo.sdb的路径
  DBStr := 'C:\Program Files (x86)\Embarcadero\Studio\14.0\Samples\Data\FDDemo.sdb';
  FDConnection1.DriverName := 'SQLite';
  FDConnection1.Params.Add('Database=' + DBStr);

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

  FDQuery1.SQL.Text := 'SELECT * FROM Products';
  FDQuery1.Open();
  FDConnection1.Open();

  DBGrid1.Align := alClient;
end;

 

OK，至此，我们已经完成了一个SQLite的小例子了，按F9开始运行吧，运行效果如下：

 

通过看万一老师的代码，发现FDConnection可以使用ConnectionString设置连接内容。

  //FDConnection1.DriverName := 'SQLite';
  //FDConnection1.Params.Add('Database=' + DBStr); 等同于下面一行代码

  FDConnection1.ConnectionString := 'DriverID=SQLite; Database=' + DBStr;

当然FDConnection.Open方法和FDQuery.Open方法支持如下使用：

  FDConnection1.Open('DriverID=SQLite; Database=' + DBStr);
  FDQuery1.Open('SELECT * FROM Products');

Open方法中直接赋予ConnectionString和SQL语句。