SQLite Delphi的使用

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

编辑器爱好者

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

阅读量4k

点赞数

文章标签： sqlite delphi 数据库 query integer sqlserver

SQLite是一个非常不错的单文件数据库，应用得非常广泛，例如嵌入式应用以及一些流氓软件等，因为网上这方面的文章确实比较少，本文参考ADO的一些应用作一些简要的介绍，希望可以抛砖引玉，出现更多的关于sqlite的好教程。delphi中要使用sqlite，需要安装组件，其中比较好用的有aducom出品的组件，在www.aducom.com/SQLite 可以下载到。下载组件安装好以后，还需要下载一个dll组件（这个组件程序发布的时候还需要打包进去）。通常为了方便，还需要一个类似sqlserver查询分析器+企业管理器的前端GUI工具，这工具都不少，基本上功能都差不多够用，比如我就用的是SQLite Database Browser。
使用sqlite数据库，表可以使用工具预先建好或者在程序中临时建立。
1】数据库连接组件：ASQLite3DB
连接的代码非常简单：
  ASQLite3DB1.Database := 'test1.dat'; //赋予数据库文件，如果没有此文件会自动创建。
  ASQLite3DB1.Close;
  ASQLite3DB1.Open;
2】执行sql语句、建立表：
仅仅使用ASQLite3DB组件就可以完成，例如：
ASQLite3DB1.SQLite3_ExecSQL('create table products (id integer primary key, name varchar(255), sq varchar(255))');
3】执行查询：ASQLite3Query
仅仅使用ASQLite3DB组件就可以完成，例如：
  ASQLite3DB1.Close;
  ASQLite3Query1.SQL.Text:='select * from products';
  ASQLite3Query1.Open;
备注：中文支持需要将ASQLite3DB的编码设备普通，选了UTF8编码我的机器上就不显示中文了。也有一些疑惑，比如ASQLite3DB连接好数据库，ASQLite3Query1写好sql语句，active的时候不能像ADO的adoquery一样立刻就可以看到。

Delphi下Sqlite开发举例

Sqlite是一个非常小巧,强大,实用的单机数据库.关于它的介绍网上很多,这里说一下delphi下sqlite的开发方法.
1. 下载Sqlite组件,sqlite针对各种语言都有一些开发库,我用过的最舒服的是AduCom开发的delphi组件Asqlite.(aducom不知道和阿杜有什么关系,哈). 可以在这个地址下载到http://www.aducom.com/sqlite/download.htm.

2. 安装Asqlite vcl组件.和普通的vcl包安装方法差不多.就不详细介绍了,安装完以后,记得把包路径添加到Search Path里面.
3. ASqlite封装的是在太好了,操作方式和BDE没有什么两样,所以,按照BDE的开发方法来就是了.顺便贴两段代码,供参考:
procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteFile('test1.dat');
ASQLite3DB1.Database := 'test1.sqb';
ASQLite3DB1.Close; ASQLite3DB1.Open;
ASQLite3DB1.SQLite3_ExecSQL('create table products (id integer primary key, name varchar(255))');
ASQLite3DB1.Close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ASQLite3DB1.Database := 'test1.sqb';
ASQLite3DB1.Close; ASQLite3DB1.Open;
// ASQLite3Query1.Active := True;
ASQLite3Table1.TableName := 'products';
ASQLite3Table1.Active := true;
end;