1、首先將sqlite3.dll復(fù)制到你的系統(tǒng)system32（Windows
XP）目錄下
2、其次，lazarus中需要安裝sqlite3dataset組件（安裝不多說(shuō)了，安裝包在x:\lazarus\components\sqlite下）
3、編譯后打開(kāi)Lazarus，在use下添加兩個(gè)引用：StdCtrls, db
4、可以嘗試將下面的代碼添加到你的事件中（代碼來(lái)源于網(wǎng)上，不自己寫(xiě)了，很簡(jiǎn)單）：
var
dsTest:TSqlite3Dataset;
begin
dsTest:=
TSqlite3Dataset.Create(nil);
with dsTest
do
Begin
FileName:='New.db';
TableName:='NewTable';
if
not FileExists(FileName) then
begin
with
FieldDefs do
begin
Clear;
Add('Integer',ftInteger,0,False);
Add('String',ftString,0,False);
Add('Bool',ftBoolean,0,False);
Add('Float',ftFloat,0,False);
Add('Word',ftWord,0,False);
Add('DateTime',ftDateTime,0,False);
Add('Date',ftDate,0,False);
Add('Time',ftTime,0,False);
end;
end;
CreateTable;
end;
好了，編譯運(yùn)行一下后，可以在程序目錄下找New.db，數(shù)據(jù)庫(kù)創(chuàng)建成功
需要的組件,TSQLite3Connection,TSQLTransaction,TQuery
按照delphi
下一樣的操作，從面板里拖下以上幾個(gè)組件，然后將TSQLite3Connection的Database設(shè)置為SQLite的數(shù)據(jù)文件位置，如D:\ss.db,注意Connected屬性不能設(shè)置為T(mén)rue，否則就提示：不能載入SQLite3.dll
文件，將TSQLite3Connection的Transaction屬性，設(shè)置為T(mén)SQLTransaction組件名字（你剛才自己添加的TSQLTransaction組件名字），其他就和Delphi中使用一樣的，使用SQLite數(shù)據(jù)庫(kù)，必須設(shè)置Transaction對(duì)象，可能就這一點(diǎn)和Delphi
中使用不太一樣（不設(shè)置，運(yùn)行時(shí)會(huì)觸發(fā)錯(cuò)誤的，編譯可以通過(guò)），使用TSQLQuery組件和其他Query組件一樣的。補(bǔ)充一點(diǎn)，把SQLite3.dll文件放在你的工程文件目錄下。
|
