标签:SQLite FDQuery1 FDConnection1 FireDAC DataSource1 SQL 初探 Open
// 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) 编辑 收藏
标签:SQLite,FDQuery1,FDConnection1,FireDAC,DataSource1,SQL,初探,Open 来源: https://blog.51cto.com/u_15216366/2833229
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。