Delphi2007连接、操作Sqlite数据库

下载一个完全免费的包装类，在http://www.itwriting.com/blog/a-simple-delphi-wrapper-for-sqlite-3网站中，找到Download the Simple Delphi Wrapper项，此处下载的是一个示例，在此示例工程文件中，我们只需要将sqlite3.dll,SQLite3.pas,SQLiteTable3.pas三个文件拷贝到自己的工程下面即可。在需要连接Sqlite数据库的类中加入SQLiteTable3引用即可。

此处做一个小示例，连接Sqlite数据库，并查询其中一项值，取出一个字段的值。

 

uses SQLiteTable3;//添加引用

{在Form中加入一个label控件和一个Button控件}

//按钮单击事件

procedure TfrmCodeTest.btnReadDatabaseClick(Sender: TObject);
var
  strConn:string;//连接字符串
  dbCommond:TSQLiteDatabase;//数据操作命令对象
  dbTable:TSQLiteTable;//数据表对象
  strSql:string;//SQL命令文本
  strTitle:string;//接收字段值
begin

  //获取数据库所在的路径，连接字符串
  strConn:=ExtractFilePath(Application.ExeName)+'OSTeacherDataBase.dll';
  dbCommond:=TSQLiteDatabase.Create(strConn);//用连接对象创建命令对象
  strSql:='select * from Test where TestID=1';//命令文本
  dbTable:=dbCommond.GetTable(strSql);//执行命令获得一个DataTable
  strTitle:=dbTable.FieldByName['Title'];//获取表中一项记录的某个字段值
  lblReadDatabase.Caption:=strTitle;//显示值
end;

此包装类中还有许多方法可用，三觉此装类操作数据库，跟.NET中的ADO.NET有些相似，所以都比较好理解，我写的小示例也是按照.NET的ADO.NET思路写出。