database - Delphi SQLite3 使用ZeosLib，如何创建数据库和表？

Question

我想在 Windows 7 上使用我的 Delphi 程序使用 Zeoslib 组件以编程方式创建一个数据库和一个表。到目前为止，根据我在网上找到的内容，Zeoslib 期望在使用它之前创建数据库。如果是这样，有没有办法使用 Zeoslib 工具创建数据库和表。

Answer 1

正常这个问题会被关闭，因为你没有展示到目前为止你尝试了什么。

使用 ZeosLib 很容易

安全注意事项:
当然你应该使用参数化查询。只是为了简化程序，此处省略

创建数据库

procedure TForm1.CreateClick(Sender: TObject);
begin
  ZConnection1.Protocol:='sqlite-3';
  ZConnection1.Database:='F:\Programme\stack\SQLite\Database.sqlite';
  ZConnection1.Connect;
  ZConnection1.Disconnect;
end;

创建表并插入

procedure TForm1.CreateInsertClick(Sender: TObject);
begin
    ZQuery1.SQL.Text := 'CREATE TABLE hardware (id INTEGER PRIMARY KEY, compname VARCHAR(30), username VARCHAR(30), model VARCHAR(30))';
    ZQuery1.ExecSQL;
    ZQuery1.SQL.Text := 'CREATE INDEX sHardware ON hardware(compname)';
    ZQuery1.ExecSQL;
    ZQuery1.SQL.Text := 'INSERT INTO hardware(id, compname, username, model) VALUES (1, "AMD8537", "OMonge", "Gigabyte");';
    ZQuery1.ExecSQL;
end;

再次看到值(value)联系

procedure TForm1.ConnectClick(Sender: TObject);
begin
  ZConnection1.Connect;
end;

显示值

procedure TForm1.OpenClick(Sender: TObject);
begin
    ZQuery1.SQL.Text := 'SELECT id, compname FROM hardware';
    ZQuery1.Open;
end; 

表格

运行