在空白窗体上添加: 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;
以上是小编为您精心准备的的内容,在的博客、问答、公众号、人物、课程等栏目也有的相关内容,欢迎继续使用右上角搜索按钮进行搜索数据库
, list
, lines
, add
, memo导入数据到数据库
, memo 导入数据库
, memo
一个
firedac sqlite、delphi firedac、delphi firedac 教程、delphi firedac mssql、delphi firedac 用法,以便于您获取更多的相关知识。
时间: 2024-11-03 22:31:24