Delphi 通過SQLite3, SQLiteTable3 操作數據庫

var
sql, sFile:string;
db:TSQLiteDatabase;
begin
try
sFile := G_AppPath + CH_IPC712Db;
//if FileExists('test.db') then DeleteFile('test.db');
//連接數據庫，如果數據庫文件不存在會自動創建
db:=TSQLiteDatabase.Create(sFile);//使用密碼創建數據庫
//db:=TSQLiteDatabase.Create('test.db',Nil);//無密碼創建數據庫
//創建USER表
sql:='CREATE TABLE USER(ID integer PRIMARY KEY AUTOINCREMENT NOT NULL,NAME VARCHAR(50),HOMEPAGE VARCHAR(255))';
db.ExecSQL(sql);
//插入一條測試數據
sql:='INSERT INTO USER VALUES(NULL,"ekinglong","http://www.blogjava.net/ekinglong")';
db.ExecSQL(sql);
sql := 'VACUUM';
db.ExecSQL(sql);
finally
db.Free;
end;
end;