用Delphi开发小程序,之前使用过Access数据库,但是由于Access依赖于office,感觉有些不太方便,研究一下Delphi使用SQLite3。
SQLite是一款轻型的数据库,是遵守ACID的关系型数据库管理系统,它包含在一个相对小的C库中。
SQLite下载
官网下载页面 https://www.sqlite.org/download.html
找到下图内容,根据自己的开发环境选择下载32位的dll还是64位的dll,tools是一个能连接SQLite3的工具。
Delphi简单操作SQLite
用tools创建了一个数据库EtTest.db,里面一张表User(两个字段Id和name),发在E盘根目录。
- 将dll放入程序对应目录下,dll版本一定要和开发环境相对应。
- 选择两个控件TSQLConnection和TSQLQuery。
- 配置TSQLConnection
(1)放入TSQLConnection控件,Name为SQLConnection1。
(2)设置SQLConnection1.ConnectionName为SQLITECONNECTION。
(3)设置SQLConnection1.Driver为Sqlite
(4)设置SQLConnection1.Params中的Database为E:\EtTest.db(按照你的实际情况)点【OK】 - 配置TSQLQuery, 放入TSQLQuery控件,Name为SQLQuery1。
SQLQuery1.SQLConnection选择SQLConnection1。 - 两个简单操作,添加和查询
(1)查询procedure TForm1.SearchClick(Sender: TObject); begin SQLConnection1.Connected := True; SQLQuery1.Close; SQLQuery1.SQL.Clear; SQLQuery1.SQL.Add('select id,name from user;'); SQLQuery1.Open; while Not SQLQuery1.Eof do begin Memo1.Lines.Add(SQLQuery1.FieldByName('id').AsString + ' ' + SQLQuery1.FieldByName('name').AsString) ; SQLQuery1.Next; end; end;
(2)添加
procedure TForm1.AddClick(Sender: TObject);
begin
SQLConnection1.Connected := True;
SQLQuery1.Close;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('insert into user(name) values(' + QuotedStr('李四')+ ');');
SQLQuery1.ExecSQL;
end;