FireDAC的SQLite初探
Posted 涂磊的小作,请赐教
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了FireDAC的SQLite初探相关的知识,希望对你有一定的参考价值。
// uses FireDAC.VCLUI.Wait 之后, 可不用添加 TFDGUIxWaitCursor
TFDConnection // 数据连接 TFDQuery // 数据查询 TDataSource // 数据源 TDBGrid // 数据显示 // uses FireDAC.Phys.SQLite 之后, 可不用添加 TFDPhysSQLiteDriverLink //访问SQLite 文件数据库
procedure TForm1.FormCreate(Sender: TObject); begin FDQuery1.Connection := FDConnection1; FDConnection1.LoginPrompt:=false; //取消登录提示框 DataSource1.DataSet := FDQuery1; DBGrid1.DataSource := DataSource1; FDConnection1.Open(‘DriverID=SQLite;Database=test1.Sqlite3‘); //E:Delphi10.2FireDAC学习1111111Win32Debug //数据库文件test1.Sqlite3,一定要放在 exe所在目录 才可使用相对路径 FDQuery1.Open(‘SELECT * FROM aTable‘); end;
// uses FireDAC.Phys.MSAcc 之后, 可不用添加 FDPhysMSAccessDriverLink1 //访问Access MDB文件数据库
procedure TForm1.FormCreate(Sender: TObject); begin FDQuery1.Connection := FDConnection1; FDConnection1.LoginPrompt:=false; //取消登录提示框 DataSource1.DataSet := FDQuery1; DBGrid1.DataSource := DataSource1; FDConnection1.Open(‘DriverID=MSAcc;Database=test.mdb‘); //E:Delphi10.2FireDAC学习1111111Win32Debug //数据库文件test.mdb,一定要放在 exe所在目录 才可使用相对路径 FDQuery1.Open(‘SELECT * FROM aTable‘); end;
//执行SQL insert procedure TForm1.Button1Click(Sender: TObject); begin FDQuery1.Active:=false; FDQuery1.SQL.Clear; FDQuery1.SQL.Add( ‘insert into aTable values(145,‘‘asdfa‘‘,‘‘33sdfs3‘‘)‘ ); FDQuery1.ExecSQL; //执行SQL FDQuery1.Open(‘SELECT * FROM aTable‘); //显示更新数据 end;
以上是关于FireDAC的SQLite初探的主要内容,如果未能解决你的问题,请参考以下文章
使用 AnyDAC (FireDAC) 从 SQLite 表中读取切片数据 (MBTiles) 的最有效方法是啥?
FireDAC 下的 Sqlite [8] - 自定义函数.
FireDAC 下的 Sqlite [10] - 使用 R-Tree 搜索.