我想在 Windows 7 上使用我的 Delphi 程序使用 Zeoslib 组件以编程方式创建一个数据库和一个表。到目前为止,根据我在网上找到的内容,Zeoslib 期望在使用它之前创建数据库。如果是这样,有没有办法使用 Zeoslib 工具创建数据库和表。
最佳答案
正常这个问题会被关闭,因为你没有展示到目前为止你尝试了什么。
使用 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;
表格
运行
关于database - Delphi SQLite3 使用ZeosLib,如何创建数据库和表?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/26760324/