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


本文整理自网络,侵删。

 

先在空白窗体上添加: TFDConnection、TFDPhysSQLiteDriverLink、TFDGUIxWaitCursor、TFDQuery、TDataSource、TDBGrid(并在设计时关联好).

代码:

{建立}

procedure TForm1.FormCreate(Sender: TObject);

const

  dbPath = 'C:\Temp\SQLiteTest.sdb';

  strTable = 'CREATE TABLE MyTable(Id integer PRIMARY KEY AUTOINCREMENT, Name string(10), Age byte)'; //Id, Name, Age 三个字段

                                                                                                      //integer PRIMARY 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;

 

//:

select * from test where name = 'ABCDE' COLLATE NOCASE;

create table test (id Integer,name Text COLLATE NOCASE );

相关阅读 >>

Delphi截取字符串的方法

Delphi tms web core tedit编辑输入框属性展示

Delphi 判断 中文字符

Delphi中的split函数

Delphi中break,exit,abort跳出循环的比较

Delphi 文件夹重命名

Delphi 移动端使用 sqlite数据库查询

Delphi中的处理事件 application.processmessages

Delphi 带参数的 exit

Delphi中webbrowser(或者embeddedwebbrowser)控件打开部分网站报“invalid floating point operation”异常的解决方法

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...