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.2\FireDAC学习\1111111\Win32\Debug
                                                                 //数据库文件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.2\FireDAC学习\1111111\Win32\Debug
                                                                 //数据库文件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;

　　

发表于 2018-06-10 09:49  涂磊  阅读(200)  评论(0)  编辑  收藏