Delphi android 连接Sqlite

最新推荐文章于 2024-06-19 08:38:03 发布

向死而生Jay

最新推荐文章于 2024-06-19 08:38:03 发布

阅读量585

点赞数

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

本文链接：https://blog.csdn.net/qq_42729221/article/details/128467912

版权

FMX 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

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;