分享

lazarus创建sqlite数据库

 ZLM_图书馆 2013-12-02
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文件放在你的工程文件目录下。

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多