1、首先将sqlite3.dll复制到你的系统system32(Windows
XP)目录下
2、其次,lazarus中需要安装sqlite3dataset组件(安装不多说了,安装包在x:\lazarus\components\sqlite下)
3、编译后打开Lazarus,在use下添加两个引用:StdCtrls, db
4、可以尝试将下面的代码添加到你的事件中(代码来源于网上,不自己写了,很简单):
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;
好了,编译运行一下后,可以在程序目录下找New.db,数据库创建成功
需要的组件,TSQLite3Connection,TSQLTransaction,TQuery
按照delphi
下一样的操作,从面板里拖下以上几个组件,然后将TSQLite3Connection的Database设置为SQLite的数据文件位置,如D:\ss.db,注意Connected属性不能设置为True,否则就提示:不能载入SQLite3.dll
文件,将TSQLite3Connection的Transaction属性,设置为TSQLTransaction组件名字(你刚才自己添加的TSQLTransaction组件名字),其他就和Delphi中使用一样的,使用SQLite数据库,必须设置Transaction对象,可能就这一点和Delphi
中使用不太一样(不设置,运行时会触发错误的,编译可以通过),使用TSQLQuery组件和其他Query组件一样的。补充一点,把SQLite3.dll文件放在你的工程文件目录下。
|