FireDAC 下的 Sqlite [3] - 获取数据库的基本信息

概述在空白窗体上添加: TFDConnection, TFDPhysSQLiteDriverLink, TFDGUIxWaitCursor, TMemo procedure TForm1.FormCreate(Sender: TObject);var List: TStrings; V: Variant;begin FDConnection1.Open('DriverID=S
在空白窗体上添加: 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.Gettable@R_502_6889@s('','',List);  Memo1.lines.Add(#13#10'==> 获取数据库中的表名列表:');  Memo1.lines.AddStrings(List);  FDConnection1.Gettable@R_502_6889@s('',List,[],[tkVIEw]);  Memo1.lines.Add(#13#10'==> 获取数据库中的查询名列表:');  Memo1.lines.AddStrings(List);  FDConnection1.GetFIEld@R_502_6889@s('','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;

{结果如下:}{...............................................................==> 获取连接信息:================================Connection deFinition parameters================================@R_502_6889@=Un@R_502_6889@dDriverID=sqliteDatabase=C:\Temp\FDDemo.sdb================================FireDAC info================================Tool = RAD Studio XE6FireDAC = 10.0.1 (Build 69712)Platform = windows 32 bitdefines = FireDAC_NolOCALE_Meta;FireDAC_MONITOR================================ClIEnt info================================Loading driver sqlite ...DLL =    ClIEnt version = 3.8.3.1Compile options = ENABLE_ColUMN_MetaDATA;ENABLE_FTS3;  ENABLE_FTS3_PARENTHESIS;ENABLE_FTS4;ENABLE_RTREE;  ENABLE_STAT4;HAS_CODEC;OMIT_autoINIT;  OMIT_DEPRECATED;SYstem_MALLOC;TEMP_STORE=2;  THREADSAFE=2================================Session info================================Current catalog = Current schema = Total changes = 0Database enCoding = UTF8Encryption mode =       Cache size = 10000 ==> 获取数据库中的表名列表: CategorIEs CustomerCustomerDemo CustomerDemographics Customers Employees EmployeeTerritorIEs FDQA_all_types FDQA_ascii_types FDQA_batch_test FDQA_bcd FDQA_blob FDQA_CategorIEs FDQA_db_types FDQA_details_autoinc FDQA_FK_tab FDQA_ForAsync FDQA_IDentity_tab FDQA_locktable FDQA_map1 FDQA_map2 FDQA_map3 FDQA_map4 FDQA_master_autoinc FDQA_Maxlength FDQA_novalstable FDQA_numbers FDQA_OrderDetails FDQA_parambind FDQA_Products FDQA_tabwithpk FDQA_timestamp FDQA_transtable FDQA_V_Test FDQA_WString "Order Details" Orders Products Region Shippers suppliers TerritorIEs ==> 获取数据库中的查询名列表: FDQA_V_Test ==> 获取 Orders 表中的字段名列表: OrderID CustomerID EmployeeID OrderDate requiredDate ShippedDate ShipVia Freight Ship@R_502_6889@ ShipAddress ShipCity ShipRegion ShipPostalCode ShipCountry ==> 获取第一个表中第一列的第一个数据: 1 ...............................................................}

FireDAC 下主要有四个 sqlite 的相关单元: FireDAC.Phys.sqliteCli     // 最底层的 API; 利用它可以像 C 语言一样写程序FireDAC.Phys.sqliteWrapper // 主功能包装;   利用它可以像 C++ 一样写程序; 这可能是我以后使用最多的FireDAC.Phys.sqliteMeta    // 元信息包装FireDAC.Phys.sqlite        // 实现 FireDAC 相关接口; 使用 FireDAC 的方式 *** 作 sqlite 可能是最简单的,更重要的是: FireDAC  *** 作所有数据库的方法是一样的

FireDAC.Phys.sqliteWrapper 提供的 TsqliteDatabase 类表示 sqlite 数据库,使用它时一般无须创建,
直接从 FDConnection1.CliObj 或 FDConnection1.ConnectionIntf.CliObj 转换即可.

{示例:通过 TsqliteDatabase 类获取 CharacterSet}uses FireDAC.Phys.sqliteWrapper;procedure TForm1.button1Click(Sender: TObject);var  db: TsqliteDatabase;begin  db := TsqliteDatabase(FDConnection1.CliObj); //假定 FDConnection1 已连接  ShowMessage(db.CharacterSet); //UTF8end;

总结

以上是内存溢出为你收集整理的FireDAC 下的 Sqlite [3] - 获取数据库的基本信息全部内容，希望文章能够帮你解决FireDAC 下的 Sqlite [3] - 获取数据库的基本信息所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。