FireDAC 下的 Sqlite [5] - 数据的插入、更新、删除

大佬教程收集整理的这篇文章主要介绍了FireDAC 下的 Sqlite [5] - 数据的插入、更新、删除，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

先在空白窗体上添加: TFDConnection、TFDPhyssqliteDriverlink、TFDGUIxWaitCursor、TFDquery、TDatasource、TDBGrID(并在设计时关联好).

你也可以复制下面文本框中的内容,然后直接往窗体上贴,以快速完成以上的添加过程:
object DBGrID1: TDBGrID left = 16 top = 88 WIDth = 361 Height = 329 Datasource = Datasource1 Taborder = 0 titleFont.Charset = DEFAulT_CHARSET titleFont.color = clWindowText titleFont.Height = -11 titleFont.name = 'Tahoma' titleFont.Style = [] end object FDConnection1: TFDConnection left = 34 top = 24 end object FDPhyssqliteDriverlink1: TFDPhyssqliteDriverlink left = 143 top = 24 end object FDGUIxWaitcursor1: TFDGUIxWaitCursor ProvIDer = 'Forms' left = 260 top = 24 end object FDquery1: TFDquery Connection = FDConnection1 left = 344 top = 24 end object Datasource1: TDatasource DataSet = FDquery1 left = 420 top = 24 end object button1: Tbutton left = 400 top = 88 WIDth = 75 Height = 25 Caption = 'button1' Taborder = 1 OnClick = button1Click end object button2: Tbutton left = 400 top = 136 WIDth = 75 Height = 25 Caption = 'button2' Taborder = 2 OnClick = button2Click end object button3: Tbutton left = 400 top = 192 WIDth = 75 Height = 25 Caption = 'button3' Taborder = 3 OnClick = button3Click end object button4: Tbutton left = 400 top = 240 WIDth = 75 Height = 25 Caption = 'button4' Taborder = 4 OnClick = button4Click end end
代码:

{建立}
procedure TForm1.FormCreate(Sender: TObject);
const
  dbPath = 'C:\Temp\sqliteTest.sdb';
  strtable = 'create table myTable(ID @R_197_2428@ARY KEY autoINCREMENT,name String(10),Age bytE)'; //ID,name,Age 三个字段
                                                                                                      //@R_197_2428@ARY KEY autoINCREMENT: 自增字段
begin
  if fileExists(dbPath) then deletefile(dbPath);

  FDConnection1.ConnectionString := 'DriverID=sqlite; Database=' + dbPath;
  FDConnection1.Execsql(strtablE);

  FDquery1.open('SELECT * FROM myTable');
end;

{插入}
procedure TForm1.button1Click(Sender: TObject);
const
  Strinsert = 'INSERT INTO myTable(name,AgE) VALUES(:name,:agE)'; //:name,:age 的方式(后面还要以数组的方式给出相应的值),这比字符串的 Format 函数还要方便.
begin
  FDConnection1.Execsql(Strinsert,['AAA',11]);
  FDConnection1.Execsql(Strinsert,['BBB',22]);
  FDConnection1.Execsql(Strinsert,['CCC',33]);
  FDConnection1.Execsql(Strinsert,['DDD',44]);
  FDConnection1.Execsql(Strinsert,['EEE',55]);
  FDquery1.refresh;
end;

{更新}
procedure TForm1.button2Click(Sender: TObject);
begin
  FDConnection1.Execsql('updatE myTable SET Age=:a WHERE name=:n',[Random(100),'AAA']);
  FDquery1.refresh;
end;

{删除}
procedure TForm1.button3Click(Sender: TObject);
begin
  FDConnection1.Execsql('deletE FROM myTable WHERE Age>33');
  FDquery1.refresh;
end;

{查询符合条件的第一个结果}
procedure TForm1.button4Click(Sender: TObject);
var
  V: Variant;
begin
  V := FDConnection1.ExecsqlScalar('SELECT Age FROM myTable WHERE name = :x',['BBB']);
  Showmessage(V);
end;

大佬总结

以上是大佬教程为你收集整理的FireDAC 下的 Sqlite [5] - 数据的插入、更新、删除全部内容，希望文章能够帮你解决FireDAC 下的 Sqlite [5] - 数据的插入、更新、删除所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。