lazarus中建立空sqlite数据库

可以用lazarus方便地操作sqlite数据库。  

  SQLite3Connection1.Close;

  SQLite3Connection1.CharSet := PChar('UTF8');

  SQLite3Connection1.DatabaseName := 'D:\yyy.db';

  SQLite3Connection1.UserName := trim(EditDbUser_sqlite.Text);

  SQLite3Connection1.Password := trim(EditDbPwd_sqlite.Text);

  try

     //SQLite3Connection1.createDb; // 不用这个，会出错

     SQLite3Connection1.Connected:=true;

     showmessage('sqlite数据库 ' + EditDbName_sqlite.Text + ' 创建操作完成。');

  except

     on E: Exception do

     begin

       memo1.Lines.Add(sysToUtf8(E.Message));

       memo1.Lines.Add('请检查sqlite数据库是否配置正确。');

       showmessage(sysToUtf8(E.Message));

     end;

  end;