delphi 连接轻量级数据库 sqlite3

环境:  windows7-64,  delphi7, sqlite3

最近搞个小工具，要用到轻量级数据库。以前小型数据库是用mdb的，但连接mdb 需要odbc的支持。

对环境依赖性很大，于是换了一种传说中的轻量级数据库。

sqlite 很小巧，delphi 7 连接sqlite 我用的是 ASQLite 控件。一个ASQLite 控件 和一个 sqlite3.dll 就可以操作  .db 格式的文件，

关于 sqlite3.dll 我发现有多个版本，某些版本delphi7是连接不到的。 这个我也不清楚原因。

先安装ASQLite 控件，安装完后别忘了在Library Path 添加路径。

  

在工程上新建一个 TDataModule，我们在这里添加数据库连接控件

 

分别是:  TASQLite3DB， TASQLite3Query,   TDataSetProvider,  TClientDataSet

后两个大家都很熟悉了，设置关联关系也是十分传统

TASQLite3Query 的Connection 关联 TASQLite3DB

TDataSetProvider 的 DataSet 关联 TASQLite3Query

TClientDataSet 的 ProviderName 关联 TDataSetProvider

至于连接的数据库db文件，这个就交给代码完成，发现若是在属性上指定，会有错误。

  try
    Dir := ExtractFilePath(ParamStr(0));
    DBConn.DefaultDir := Dir;
    DBConn.Database := 'data.db';
    DBConn.DriverDLL := Dir + 'sqlite3.dll';
    DBConn.Connected := True;
  except
    raise Exception.Create('连接资料库失败！');
  end;
没错，就这么简单。 用上面代码初始化后，就可以用我们熟悉的 ClientDataSet 操作db数据库了。
百度网盘 请输入提取码           提取码  ac3k