Delphi through SQLite3, SQLiteTable3 operation database

Var
SQL, sfile:string;
Db:tsqlitedatabase;
Begin
Try
SFile: = G_apppath + ch_ipc712db;
If FileExists (' test.db ') then DeleteFile (' test.db ');
Connect to the database and create it automatically if the database file does not exist
Db:=tsqlitedatabase.create (sFile);//Create a database with a password
Db:=tsqlitedatabase.create (' test.db ', Nil);//No password to create the database
Create User table
sql:= ' CREATE TABLE USER (ID integer PRIMARY KEY autoincrement not null,name varchar (), homepage varchar (255)) ';
Db. Execsql (SQL);
Insert a test data
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

Delphi through SQLite3, SQLiteTable3 operation database