摘要://usesFireDAC.VCLUI.Wait之后,可不用添加TFDGUIxWaitCursorTFDConnection//数据连接TFDQuery//数据查询TDataSource//数据源TDBGrid//数据显示//usesFireDAC.Phys.SQLite之后,可不用添加TFDPhysSQLiteDriverLink//访问SQLite文件数据库procedureTForm1.Fo
// 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.2FireDAC学习1111111Win32Debug
//数据库文件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.2FireDAC学习1111111Win32Debug
//数据库文件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;