delphi与sqlite3数据库


本文整理自网络,侵删。

 

一、 前言

本文的目的在于采用流水账方式来记录学习delphi访问嵌入式数据库sqlite中的一些点滴。欢迎各位同好共同学习和批评指正。

file:1 准备工作part1

delphi版本:delphi2007 for win32 update3。任意安装版本即可。

sqlite dll版本:3.5.3。目前最新版本的sqlite引擎。[ http://www.sqlite.org/ ]

sqlite for delphi:simple sqlite 3.0 for delphi。目前的最新版本的发布日期为Update 16 October 2008,支持sqlite dll版本3.4.2。经简单测试,3.5.3也是可以的。
自带demo。

sqlite单元包下载: 链接:http://pan.baidu.com/share/link?shareid=166524&uk=990730820 密码:8797

二、 准备工作

新建一个窗体应用程序工程,并设定保存的文件夹。将simple sqlite 3.0 for delphi 中的 sqlite3.pas,sqlite3table.pas,sqlite3udf.pas拷贝至工程所在的文件夹。并在工程中添加这三个文件。拷贝 sqlite.dll到编译生成exe文件的文件夹。这个要看个人的设定。

三、 初步测试

引用SQLiteTable3.pas单元。

在窗体上创建一个叫btnVersion的按钮(Tbutton)。在btnVersion的click事件中写入下面的代码。

procedure TfrmAbout.btnVersionClick(Sender: TObject);

var

SqliteDB:TSQLiteDatabase;

begin

SqliteDB:=TSQLiteDatabase.Create('');

showmessage('Sqlite dll version:'+SqliteDb.version);

SqliteDB.Free;

end;

编译运行,成功的话,将会显示当前的sqlite dll的版本号,我的是3.5.9。

四、  简单工作原理描述

在simple sqlite3.0 for delphi的几个文件中,主要用到两个文件。分别是sqlite3.pas,sqlite3table.pas。

sqlite3.pas实现sqlite.dll的接口外部定义。

sqlite3table.pas进行简单的访问函数封装。

在delphi中,通过sqlite3table.pas来实现对sqlite数据库的各种访问。

关于sqlite3udf.pas,根据作者的描述,主要用与创建用户自定义函数,具体功能未测试。

五、  读取数据

假设,我们有一个叫做database.db的sqlite数据库文件,在编译生成的exe文件所在的目录。里面有一个叫做countries的表格。

表格创建语句如下。

CREATE TABLE "Countries" (

Name VARCHAR NOT NULL PRIMARY KEY UNIQUE,

Capital VARCHAR NOT NULL,

Area INTEGER NOT NULL,

Pop INTEGER NOT NULL,

PCI INTEGER NOT NULL

);

我们该如何访问其中的第一条数据呢。

var

SqliteDB:TSQLiteDatabase;

SqliteTB:TSQLiteTable;

begin

SqliteDB:=TSQLiteDatabase.Create('database.db');

SqliteTB:=SqliteDB.GetTable('Select * from countries');

显示控件1.text:=SqliteTB.FieldAsString(SqliteTB.FieldIndex['Name']);

显示控件2.text:=SqliteTB.FieldAsString(SqliteTB.FieldIndex['Capital']);

显示控件3.text:=SqliteTB.FieldAsString(SqliteTB.FieldIndex['Area']);

显示控件4.text:=SqliteTB.FieldAsString(SqliteTB.FieldIndex['Pop']);

显示控件5.text:=SqliteTB.FieldAsString(SqliteTB.FieldIndex['PCI']);

SqliteTB.free;

SqliteDB.free;

end;

TSQLiteTable类有两个方法,分别是Next和Previous,是用来向后和向前移动数据游标的。配合这两个方法,我们可以读取表格任意数据 内容。例如select * from countries where area >8000000的数据。

六、  delphi sqlite数据库写入数据

我们可以读取数据,就可以写入数据。如何来做到呢?还是以Countries表为例。

var

SqliteDB:TSQLiteDatabase;

begin

SqliteDB:=TSQLiteDatabase.Create('database.db');

SqliteDB.ExecSQL('Insert Into Countries (Name,Capital,Area,Pop,PCI) values ("China","Beijing",9600000,1500000000,6000)');

SqliteDB.Free;

end;

同样,数据的update方法也可以按照这种方法来实现。在这里可以看到,字符类数据可以用双引号来标记起来,而不是通常sqlserver的单引号标记。

七、  sqltie字符编码

访问过MySql数据库数据的朋友应该记得噩梦般的中文数据存取经历。数据库里用了一种编码,程序又是另一种编码,导致中文数据变成乱码。

sqlite中,数据库内用的是UTF-8存取,DELPHI取出的数据是ASCII编码。也就是说,我们需要在存取的同时做编码转换。

有这样两个方法,utf8decode(),utf8encode()。当从数据库中读取数据时,我们用utf8decode();当向数据库中写入数据时,我们用utf8encode();

例如:

显示控件.text:=utf8decode(sltb.FieldAsString(sltb.FieldIndex['Name']));

SqliteDB.ExecSQL(utf8encode('Insert Into Countries (Name,Capital,Area,Pop,PCI) values ("中国","北京",9600000,1500000000,6000)'));

在有更好的方法之前,我们只能这么用……

八、 : Blob Blob Blob

某些时候,我们会需要向数据库中存储和读取图片,视频,音频等信息的数据,例如:前女友们的性感照片。sqlite中有一种数据类型叫做Blob,可以满足我们的要求。如何访问和读取呢?

下面以在database.db数据库中PhotoLib表格中存取一个JPEG图片为例:

CREATE TABLE "PhotoLib" (Id Integer NOT NULL PRIMARY KEY UNIQUE,

Photo BLOB);

写入:

var

SqliteDB: TSQLiteDatabase;

FS: TFileStream;

begin

SqliteDB:=TSQLiteDatabase.Create('database.db');

FS := TFileStream.Create('test.jpeg',fmOpenRead);

SqliteDB.UpdateBlob('UPDATE PhotoLib set Photo = ? WHERE ID = 1',FS);

FS.free;

SqliteDB.Free;

end;

读取至TImage控件显示:

var

MS: TMemoryStream;

PIC: TJPegImage;

SqliteDB: TSQLiteDatabase;

SqliteTB: TSQLIteTable;

begin

SqliteDB:=TSQLiteDatabase.Create('database.db');

SqliteTB:=SqliteDB.GetTable('Select * From PhotoLib Where Id=1');

MS := SqliteTB.FieldAsBlob(SqliteTB.FieldIndex['photo']);

if (MS = nil) then

begin

showmessage('该条记录没有前女友照片数据.');

exit;

end;

MS.Position := 0;

PIC := TJPEGImage.Create;

PIC.LoadFromStream(ms);

self.Image2.Picture.Graphic := PIC;

MS.free;

PIC.Free;

end;

相关阅读 >>

Delphi dataset和json互转函数

Delphi 删除确认对话框

Delphi图像匹配算法

Delphi sysutils.wraptext - 换行

Delphi 怎么不注册 dll 就调用 com

Delphi 禁用tedit右键菜单及复制粘贴

Delphi & c++ 安卓使用权限

Delphi如何生成一段时间内的所有日期

Delphi record,两种声明方式

Delphi 获取指定当前目录下指定文件扩展名所有文件

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...