相关资料:
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:UserszhujianqiangDesktopsqlitesqlite.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:UserszhujianqiangDesktopsqlitesqlite.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;