Delphi SQLite 上手指南

最新推荐文章于 2024-09-25 22:25:08 发布

xiepan110

最新推荐文章于 2024-09-25 22:25:08 发布

阅读量297

点赞数

分类专栏： SQLite

SQLite 专栏收录该内容

14 篇文章

订阅专栏

本文介绍如何使用Delphi连接SQLite数据库，包括配置数据库连接、执行SQL语句、事务处理等内容，并提供GUI管理工具和Delphi控件资源。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Delphi SQLite 上手指南

SQLite下载
http://www.sqlite.org/download.html

SQLite FAQ
http://www.sqlitecn.org/faq.html

SQLite中文论坛
http://sqlite.com.cn/bbs/index.asp

SQLite入门与分析
http://www.cnblogs.com/hustcat/archive/2009/02/12/1389448.html

GUI 管理工具
SQLite Database Browser
http://sqlitebrowser.sourceforge.net/

Delphi控件
ASqlite3 Components
http://www.aducom.com/cms/download.php

简明例程：

数据库连接
ASQLite3DB1.Database := Path+'test.db';
ASQLite3DB1.DriverDLL := Path+'sqlite3.dll';
ASQLite3DB1.Open;

数据集
ASQLite3Query1.Connection := ASQLite3DB1;
ASQLite3Query1.SQL.Text :='select * from MyTable';
ASQLite3Query1.Open;

执行SQL
ASQLite3Query1.Connection := ASQLite3DB1;
ASQLite3Query1.SQL.Text := Format('insert into MyTable(Age,Name)values(%s,''%s'')',
[edtAge.Text,edtName.Text]);
ASQLite3Query1.ExecSQL;
或者
ASQLite3DB1.SQLite3_ExecSQL(Format('update MyTable set Age=Age+1',
[Edit2.Text,Edit1.Text]));
或者
with ASQLite3Query2 do begin
Close;
SQL.Clear;
SQL.Add('insert into animal (id, desc) values (:v1, :v2)');
Params[0].AsString := '99';
Params[1].AsString := 'ninetynine';
ExecSQL;
end;

事务
//开始事务
ASQLite3DB1.StartTransaction;
//提交事务
ASQLite3DB1.Commit;
//回滚事务
ASQLite3DB1.RollBack;