Delphi7调用sqlite数据库示例

【例子介绍】

【相关图片】

【源码结构】

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;