首页 / 软件开发 / Delphi / Delphi FireDAC 下的 Sqlite（三） 获取数据库的基本信息

Delphi FireDAC 下的 Sqlite（三） 获取数据库的基本信息2015-02-13在空白窗体上添加: TFDConnection, TFDPhysSQLiteDriverLink, TFDGUIxWaitCursor, TMemo

procedure TForm1.FormCreate（Sender: TObject）;varList: TStrings;V: Variant;beginFDConnection1.Open（"DriverID=SQLite; Database=C:TempFDDemo.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;