码迷,mamicode.com
首页 > 数据库 > 详细

FireDAC的SQLite初探

时间:2018-06-10 11:39:33      阅读:265      评论:0      收藏:0      [点我收藏+]

标签:open   connect   文件   显示   dfs   查询   wait   mcr   delphi   

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

  

FireDAC的SQLite初探

标签:open   connect   文件   显示   dfs   查询   wait   mcr   delphi   

原文地址:https://www.cnblogs.com/tulater/p/9162308.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!