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;