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

Question

我想使用 Zeoslib 组件在 Windows 7 上使用我的 Delphi 程序以编程方式创建一个数据库和一个表。从我目前在网上找到的信息来看，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;

再次查看 Values Connect

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; 

形式

跑步