DelphiXE7操作sqlite数据库

相关资料：

https://www.cnblogs.com/barryhong/p/3884977.html

 

准备工作:

1.用SQLiteExpertPers建立一个sqlite数据库。

2.打开delphi xe7。

一、FireDAC法

设置库联接

1.放入FDConnection1控件

2.放入FDConnection1.DriverName := SQLite

3.点击“FDConnection1.Params”

4.在“FDConnection1.Params”中写入

  DriverID=SQLite

  Database=C:\Users\zhujianqiang\Desktop\sqlite\sqlite.db  //你的sqlite数据库路径

5.点“确定”

6.设置FDConnection1.Connected为True。

 

设置表联接

1.放入FDQuery1控件

2.设置FDQuery1.Connection为FDConnection1。

3.点击设置FDQuery1.SQL。

4.在FDQuery1.SQL.Text中写入select * from Tmanual。

5.设置FDQuery1.Active为True。

 

设置数据桥

1.放入DataSource1控件

2.设置DataSource1.DataSet为FDQuery1。

 

设置数据显示

1.放入DBGrid1控件

2.设置DBGrid1.DataSource为DataSource1。

PS:在窗体或是数据模块中必须放入FDPhysSQLiteDriverLink1、FDGUIxWaitCursor1这二个控件。有朋友说这是等于注册DLL。

 

二、SQL控件法

设置库联接

1.放入SQLConnection1控件

2.设置SQLConnection1.ConnectionName*为SQLITECONNECTION。

3.设置SQLConnection1.Params中的Database

  为C:\Users\zhujianqiang\Desktop\sqlite\sqlite.db  //你的sqlite数据库路径

4.点“确定”

5.设置SQLConnection1.Connected为True。

 

设置表联接

1.放入SQLQuery1控件

2.设置SQLQuery1.SQLConnection为SQLConnection1。

3.设置SQLQuery1.SQL。

4.在SQLQuery1.SQL.Text中写入select * from Tmanual。

5.设置FDQuery1.Active为True。

 

设置数据转换

1.放入DataSetProvider1。

2.设置DataSetProvider1.DataSet为SQLQuery1。

3.放入ClientDataSet1。

4.设置ClientDataSet1.ProviderName为DataSetProvider1。

 

设置数据桥

1.放入DataSource1控件

2.设置DataSource1.DataSet为ClientDataSet1。

 

设置数据显示

1.放入DBGrid1控件

2.设置DBGrid1.DataSource为DataSource1。

 

 

PS:代码联接方式

procedure TForm1.Button1Click(Sender: TObject);
begin
FDConnection1.Connected := False;
FDConnection1.Params.Clear;
FDConnection1.Params.Add('Database='+ ExtractFilePath(Application.Exename) +'TianJin.db');
FDConnection1.Params.Add('DriverID=SQLite');
FDConnection1.Connected := True;

FDQuery1.Active := True;
end;