unidac自动创建SQLite数据库，并且执行sql创建表

最新推荐文章于 2024-05-18 06:30:07 发布

wqc159

最新推荐文章于 2024-05-18 06:30:07 发布

阅读量1k

点赞数

分类专栏： Delphi

本文链接：https://blog.csdn.net/wqc159/article/details/102980869

版权

Delphi 专栏收录该内容

8 篇文章

订阅专栏

  UniConnection1.ConnectString := 'Provider Name=SQLite;Direct=True;Client Library=sqlite3';
  UniConnection1.Database := '.\SQLite.DB';

  if not FileExists(UniConnection1.Database) then begin
     UniConnection1.SpecificOptions.Values['ForceCreateDatabase']:='True';
     UniSQL1.Connection := UniConnection1;
     SerialInfo := 'create table products (id integer primary key, name varchar(255), sq varchar(255))';
     UniSQL1.SQL.Text:= SerialInfo;
     UniSQL1.Execute;
  end;