基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

Delphi7调用SQLite数据库使用方法:
1. 在项目中添加SQLite3.pas、SQLiteTable3.pas这2个文件.
2. 编写调用sqlite代码. 如测试程序Project1.exe
3. 将sqlite3.dll放在Project1.exe同一目录下即可使用.
4. 调用并查询代码如下.

  procedure TForm1.btn1Click(Sender: TObject);
  var
    slDBpath: string;
    sldb: TSQLiteDatabase;
    sltb: TSQLIteTable;
  begin
    slDBPath := ExtractFilepath(application.exename) 'book.db';
    sldb := TSQLiteDatabase.Create(slDBPath);
    try
      // 查询
      sltb := slDb.GetTable('SELECT * FROM content');
      try
        if sltb.Count > 0 then
        begin
          edt1.Text := sltb.FieldAsString(sltb.FieldIndex['id']);
        end;
      finally
        sltb.Free;
      end;
    finally
      sldb.Free;
    end;
  end;