Delphi android 连接Sqlite

向死而生Jay

于 2022-12-28 14:20:14 发布

阅读量712

点赞数

CC 4.0 BY-SA版权

分类专栏： FMX 文章标签： sqlite 数据库 android

本文链接：https://blog.youkuaiyun.com/qq_42729221/article/details/128467912

FMX 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一个使用Delphi进行SQLite数据库操作的例子，包括连接数据库、获取表名和字段名，并将信息显示在列表中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

uses
	System.IOUtils; //TPath用到的单元

procedure TMainFrm.btn2Click(Sender: TObject);
var
  SQL,PathStr: string;
  List : TStrings;
  I: Integer;
begin
  List := TStringList.Create;
  PathStr:= TPath.Combine(Tpath.GetDocumentsPath,'Test.DB');
  with conPub do
  begin
    Params.DriverID := 'SQLite';
    Params.Database := PathStr;
    LoginPrompt := False;
    Connected := True;
    //SQL := 'CREATE TABLE "TestTable" ("id" INTEGER NOT NULL,"ConfigId" integer,"comboxIndex" integer,PRIMARY KEY ("id"));';
    //ExecSQL(SQL);
  end;
  conPub.GetFieldNames('', '', 'TestTable', '', List);
  for I := 0 to List.Count-1 do
  begin
    lv1.Items.Add.Text := List[i];
  end;
  conPub.GetTableNames('','','',lst1.Items, [osMy], [tkTable]);
  List.Free;
end;