FireDAC的SQLite初探

標籤：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  insertprocedure 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初探