// 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) 编辑 收藏
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。