Delphi FireDAC 下的 Sqlite（三） 擷取資料庫的基本資料

在空白表單上添加: TFDConnection, TFDPhysSQLiteDriverLink, TFDGUIxWaitCursor, TMemo

procedure TForm1.FormCreate(Sender: TObject);var  List: TStrings;  V: Variant;begin  FDConnection1.Open('DriverID=SQLite; Database=C:\Temp\FDDemo.sdb');  List := TStringList.Create;  FDConnection1.GetInfoReport(List);  Memo1.Clear;  Memo1.Lines.Add('==> 擷取串連資訊:');  Memo1.Lines.AddStrings(List);  FDConnection1.GetTableNames('', '', '', List);  Memo1.Lines.Add(#13#10'==> 擷取資料庫中的表名列表:');  Memo1.Lines.AddStrings(List);  FDConnection1.GetTableNames('', '', '', List, [], [tkView]);  Memo1.Lines.Add(#13#10'==> 擷取資料庫中的查詢名列表:');  Memo1.Lines.AddStrings(List);  FDConnection1.GetFieldNames('', '', 'Orders', '', List);  Memo1.Lines.Add(#13#10'==> 擷取 Orders 表中的欄位名列表:');  Memo1.Lines.AddStrings(List);  V := FDConnection1.ConnectionMetaDataIntf.GetTables([], [tkTable], '', '', '').Rows[0].GetData(0);  Memo1.Lines.Add(#13#10'==> 擷取第一個表中第一列的第一個資料:');  Memo1.Lines.Add(V);  List.Free;end;