Delphi7中不用控制項串連sqlite

標籤：

DELPHI 7 沒有辦法使用lib檔案，這就有點麻煩，但是咱們也沒有必要一個一個Query，那樣太痛苦了。我當時就好痛苦。咱們可以藉助第三方的封裝類，有一些是收費的，但是也有一些免費的，具體的資訊大家請查看下面的地址 http://www.sqlite.org/cvstrac/wiki?p=SqliteWrappers

我這裡使用的是sqlite simple delphi 這是一個完全免費的封裝類，大家可以到它的官方網站下載，http://www.itwriting.com/sqlitesimple.php

下來以後是一個壓縮包裡面是一個demo。咱們需要裡面的兩個檔案。SQLite3.pas 跟 SQLiteTable3.pas ，把他們複製到工程目錄下面，然後在需要操作庫的單元檔案裡面 uses SQLiteTable3 ,然後大家請查看官方的案例代碼：

procedure TForm1.btnTestClick(Sender: TObject);

var

slDBpath: string;
sldb: TSQLiteDatabase;
sltb: TSQLIteTable;
sSQL: String;
Notes: String;
begin
slDBPath := ExtractFilepath(application.exename)+‘test.db‘;
sldb := TSQLiteDatabase.Create(slDBPath);
try
if sldb.TableExists(‘testTable‘) then 
begin
sSQL := ‘DROP TABLE testtable‘;
sldb.execsql(sSQL);
end;
sSQL := ‘CREATE TABLE testtable ([ID] INTEGER PRIMARY KEY,[OtherID] INTEGER NULL,‘;
sSQL := sSQL + ‘[Name] VARCHAR (255),[Number] FLOAT, [notes] BLOB, [picture] BLOB COLLATE NOCASE);‘;
sldb.execsql(sSQL);
sldb.execsql(‘CREATE INDEX TestTableName ON [testtable]([Name]);‘);

//begin a transaction

sldb.BeginTransaction;

sSQL := ‘INSERT INTO testtable(Name,OtherID,Number,Notes) VALUES ("Some Name",4,587.6594,"Here are some notes");‘;

//do the insert

sldb.ExecSQL(sSQL);

sSQL := ‘INSERT INTO testtable(Name,OtherID,Number,Notes) VALUES ("Another Name",12,4758.3265,"More notes");‘;

//do the insert

sldb.ExecSQL(sSQL);

//end the transaction

sldb.Commit;

//query the data

sltb := slDb.GetTable(‘SELECT * FROM testtable‘);

try

if sltb.Count > 0 then

begin

//display first row

ebName.Text := sltb.FieldAsString(sltb.FieldIndex[‘Name‘]);

ebID.Text := inttostr(sltb.FieldAsInteger(sltb.FieldIndex[‘ID‘]));

ebNumber.Text := floattostr( sltb.FieldAsDouble(sltb.FieldIndex[‘Number‘]));

Notes := sltb.FieldAsBlobText(sltb.FieldIndex[‘Notes‘]);

memNotes.Text := notes;

end;

finally

sltb.Free;

end;

finally

sldb.Free;

end;

end;

這樣操作起來是不是很簡單，^_^

<4> PHP調用SQLite3 ，這個不用我多廢話，請參看我寫的《通過Apache + PHP5 + PDO 串連 SQLite3 資料庫》一文。

<5>Visual Basic , 因為我沒有仔細研究，我無發言權，請參看SQLite官方的資料

http://www.sqlite.org/cvstrac/wiki?p=SqliteWrappers

COM Wrappers / Visual Basic DLLs部分

 
<6>JAVA 請參看http://www.loveunix.net/bbs/index.php?showtopic=35051 文章，講述的比較詳細。

 第二部分 使用事務寫庫

 事務的具體理論概念我不想多說了，如果不明白的請大家到GOOGLE搜尋索引鍵“資料庫事務”，能找到N多文章資料。我們使用VC++來做案例。還有使用到上面的兩個函數

 void WriteSqlite()

{

try

{

OpenSqlite();

execSQL("begin transaction;"); \\開始一個事務，記錄操作

char strSQL[MAX_PATH];

sprintf(strSQL,"INSERT INTO Table_Name (nAction1, nAction2, nAction3) VALUES(%d,%d,%d)", szVar1,szVar2, szVar3,);

execSQL(strSQL);

execSQL("commit transaction;"); \\執行提交之前資料庫自動儲存使用者對資料庫操作序列。

return;

}

catch(...)

{

execSQL("rollback transaction;");

}

//Add custom code

}

 
本文至此而完，上述代碼均在 Windows2000 Pro + VC++6 英文企業版本 ＋ Delphi7 英文企業版 編譯通過

Delphi7中不用控制項串連sqlite