【delphi】delphi操作sqlite3

OStack程序员社区-中国程序员成长平台 › 门户 › 编程›综合其他

原作者: [db:作者] 来自: [db:来源] 收藏邀请

SQLite

　　SQLite是一个老牌的轻量级别的本地文件数据库，完全免费且开源，不需要安装，无须任何配置，当然，这样管理功能就不是很强大了，但是它的主要应用也是在本地数据库，可以说是最简单好用的嵌入式本地数据库了。

　　SQLite只要一个DLL就可以实现全部功能。SQLite不需要数据库引擎，只有一个数据文件，占用系统资源非常少，很适合做Demo或小型应用。

　　同时，SQLite也是关系型数据库，支持大部分SQL语句。它支持事务机制和blob数据类型，支持大部分SQL92标准，最大支持数据库到2T。

　　它还有Python、Tcl、PHP、Java的绑定，这些语言可以直接使用SQLite数据库，因为它们自身包含了支持；还有ODBC接口，非常方便使用。

　　SQLite的一些基本操作跟SQL很类似，基本上有SQL基础的都能看明白。

　　SQLite的图像查看工具有很多，比如SQLiteSpy、SQLiteBrowser等。

　　SQLite默认是utf8编码，使用pragma encoding可以看出数据库的编码。

　　建立数据库后，可以直接输入“pragma encoding = UTF8/UTF16”来改变编码，但数据库有了数据以后，编码是不可以修改的。

　　SQLite的源码可以http://www.sqlite.org获得。关于SQLite的更进一步的语法和信息，请参http://www.sqlite.com.cn/http://www.sqlitecn.org。

delphi中使用sqlite3

　　这里有一个delphi中使用sqlite3的demo：http://www.itwriting.com/blog/articles/a-simple-delphi-wrapper-for-sqlite-3/comment-page-2

　　这个demo中包含了sqlite3.pas，sqlite3table.pas，sqlite.dll三个文件，里面包含了操作sqlite3的源代码，利用这三个文件，就不需要第三方组件了

添加步骤：

将simple sqlite 3.0 for delphi 中的 sqlite3.pas，sqlite3table.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的版本号

简单工作原理描述

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

sqlite3.pas实现sqlite.dll的接口外部定义。
sqlite3table.pas进行简单的访问函数封装。

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

读写数据

　　有一个叫做test.db的sqlite数据库文件，在编译生成的exe文件所在的目录。里面有一个叫做testTable的表格。

　　下面是根据demo提练出来的读写语句：

 1 unit TestSqlite;
 2 
 3 interface
 4 
 5 uses
 6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 7   Dialogs, StdCtrls, SQLiteTable3;
 8 
 9 type
10   TForm1 = class(TForm)
11     lbl1: TLabel;
12     ebID: TEdit;
13     ebName: TEdit;
14     lbl2: TLabel;
15     lbl3: TLabel;
16     ebNumber: TEdit;
17     memNotes: TMemo;
18     btnTest: TButton;
19     procedure btnTestClick(Sender: TObject);
20   private
21     { Private declarations }
22   public
23     { Public declarations }
24   end;
25 
26 var
27   Form1: TForm1;
28 
29 implementation
30 
31 {$R *.dfm}
32 
33 procedure TForm1.btnTestClick(Sender: TObject);
34 var
35   slDBpath: string;
36   sldb: TSQLiteDatabase;
37   sltb: TSQLIteTable;
38   sSQL: String;
39   Notes: String;
40 
41 begin
42   slDBPath := ExtractFilepath(application.exename)
43   + 'test.db';
44   sldb := TSQLiteDatabase.Create(slDBPath);
45   try
46     if sldb.TableExists('testTable') then
47     begin
48       sSQL := 'DROP TABLE testtable';
49       sldb.execsql(sSQL);
50     end;
51 
52     sSQL := 'CREATE TABLE testtable ([ID] INTEGER PRIMARY KEY,[OtherID] INTEGER NULL,';
53     sSQL := sSQL + '[Name] VARCHAR (255),[Number] FLOAT, [notes] BLOB, [picture] BLOB COLLATE NOCASE);';
54     sldb.execsql(sSQL);
55     sldb.execsql('CREATE INDEX TestTableName ON [testtable]([Name]);');
56 
57     //begin a transaction
58     sldb.BeginTransaction;
59     sSQL := 'INSERT INTO testtable(Name,OtherID,Number,Notes) VALUES ("Some Name",4,587.6594,"Here are some notes");';
60     //do the insert
61     sldb.ExecSQL(sSQL);
62     sSQL := 'INSERT INTO testtable(Name,OtherID,Number,Notes) VALUES ("Another Name",12,4758.3265,"More notes");';
63     //do the insert
64     sldb.ExecSQL(sSQL);
65     //end the transaction
66     sldb.Commit;
67     //  原因：它以文件的形式存在磁盘中，每次访问时都要打开一次文件，如果对数据库进行大量的操作，就很慢。
68     //  解决办法：用事物的形式提交，因为开始事务后，进行的大量操作语句都保存在内存中，
69     //  当提交时才全部写入数据库，此时，数据库文件也只用打开一次。如果操作错误，还可以回滚事务。
70 
71     //query the data
72     sltb := sldb.GetTable('SELECT * FROM testtable');
73     try
74         if sltb.Count > 0 then
75         begin
76 
77         //display first row
78         //display second row
79         //sltb.Next;
80         ebName.Text := sltb.FieldAsString(sltb.FieldIndex['Name']);
81         ebID.Text := inttostr(sltb.FieldAsInteger(sltb.FieldIndex['ID']));
82         ebNumber.Text := floattostr( sltb.FieldAsDouble(sltb.FieldIndex['Number']));
83         Notes :=  sltb.FieldAsBlobText(sltb.FieldIndex['Notes']);
84         memNotes.Text := notes;
85         end;
86 
87     finally
88         sltb.Free;
89     end;
90 
91   finally
92     sldb.Free;
93   end;
94 end;
95 
96 end.