1、首先將sqlite3.dll復制到你的系統(tǒng)system32(WindowsXP)目錄下
2、其次,lazarus中需要安裝sqlite3dataset組件(安裝不多說了,安裝包在x:\lazarus\components\sqlite下)
3、編譯后打開Lazarus,在use下添加兩個引用:StdCtrls, db
4、可以嘗試將下面的代碼添加到你的事件中(代碼來源于網(wǎng)上,不自己寫了,很簡單):
var
dsTest:TSqlite3Dataset;
begin
dsTest:=TSqlite3Dataset.Create(nil);
with dsTestdo
Begin
FileName:='New.db';
TableName:='NewTable';
ifnot FileExists(FileName) then
begin
withFieldDefs 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;
好了,編譯運行一下后,可以在程序目錄下找New.db,數(shù)據(jù)庫創(chuàng)建成功
需要的組件,TSQLite3Connection,TSQLTransaction,TQuery
按照delphi下一樣的操作,從面板里拖下以上幾個組件,然后將TSQLite3Connection的Database設置為SQLite的數(shù)據(jù)文件位置,如D:\ss.db,注意Connected屬性不能設置為True,否則就提示:不能載入SQLite3.dll文件,將TSQLite3Connection的Transaction屬性,設置為TSQLTransaction組件名字(你剛才自己添加的TSQLTransaction組件名字),其他就和Delphi中使用一樣的,使用SQLite數(shù)據(jù)庫,必須設置Transaction對象,可能就這一點和Delphi中使用不太一樣(不設置,運行時會觸發(fā)錯誤的,編譯可以通過),使用TSQLQuery組件和其他Query組件一樣的。補充一點,把SQLite3.dll文件放在你的工程文件目錄下。
本站僅提供存儲服務,所有內容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權內容,請
點擊舉報。