FireDAC 下的 Sqlite [4] - 创建数据库

{建立内存数据库的一般代码:}
begin
  FDConnection1.DriverName := 'SQLite'; //同 FDConnection1.Params.Add('DriverID=SQLite');
//  FDConnection1.Params.Add('Database=:memory:'); //可省略这行,FireDAC 的源码显示,if Database = '' then Database := ':memory:';
//  FDConnection1.Params.Add('SQLiteAdvanced=page_size=4096'); //可指定内存页大小,这是默认值
  FDConnection1.Connected := True;
end

{建立文件数据库的一般代码:}
begin
  FDConnection1.Params.Add('DriverID=SQLite');
  FDConnection1.Params.Add('Database=C:TempNew1.sdb'); //如果文件存在就打开,不存在就建立
//  FDConnection1.Params.Add('SQLiteAdvanced=temp_store=Memory'); //可强制临时文件在内存以提高效率. 0:DEFAULT; 1:FILE; 2:MEMORY
//  FDConnection1.Params.Add('SQLiteAdvanced=temp_store_directory=C:Temp'); //默认的临时文件路径应该是 C:Documents and Settingsuser-nameLocal SettingsTemp

//  FDConnection1.Params.Add('OpenMode=CreateUTF8'); //默认是 CreateUTF8,也可选择 CreateUTF16
//  FDConnection1.Params.Add('LockingMode=Normal'); //默认是多用户模式,如果使用独占模式 LockingMod=Exclusive 会更有效率
  FDConnection1.Connected := True;
end;

FDQuery1    . Connection = FDConnection1
DataSource1 . DataSet    = FDQuery1
DBGrid1     . DataSource = DataSource1
FDCommand1  . Connection = FDConnection1

procedure TForm1.FormCreate(Sender: TObject);
const
  dbPath = 'C:TempSQLiteTest.sdb';
begin
  if FileExists(dbPath) then DeleteFile(dbPath);

  with FDConnection1 do begin
    Params.Add('DriverID=SQLite');
    Params.Add('Database=' + dbPath);
    Connected := True;
  end;

  {创建一个名为 MyTable 的表,字段包括: ID,Name,Age,Note,Picture}
  with FDCommand1.CommandText do begin
    Add('CREATE TABLE MyTable(');
    Add('ID integer PRIMARY KEY,'); //Integer 类型,同时设为主键
    Add('Name string(10),');        //能容下 10 个字符的 String 类型
    Add('Age byte,');               //Byte 类型
    Add('Note text,');              //Memo 类型
    Add('Picture blob');            //Blob(二进制)类型
    Add(')');
  end;
  FDCommand1.Active := True;

  {查看表}
  FDQuery1.Open('SELECT * FROM MyTable');
end;

procedure TForm1.FormCreate(Sender: TObject);
const
  dbPath = 'C:TempSQLiteTest.sdb';
begin
  if FileExists(dbPath) then DeleteFile(dbPath);

  with FDConnection1 do begin
    Params.Add('DriverID=SQLite');
    Params.Add('Database=' + dbPath);
    Connected := True;
  end;

  {创建一个名为 MyTable 的表,Picture}
  FDConnection1.ExecSQL('CREATE TABLE MyTable(ID integer PRIMARY KEY,Name string(10),Age byte,Note text,Picture blob)');

  {查看表}
  FDQuery1.Open('SELECT * FROM MyTable');
end;

uses FireDAC.Phys.SQLiteWrapper; //为使用 TSQLiteStatement

{使用 TSQLiteStatement 完成的提交 SQL 命令的函数}
procedure MyExecSQL(ACon: TFDConnection; const ASQL: String);
begin
  with TSQLiteStatement.Create(ACon.CliObj) do
  try
    Prepare(ASQL);
    Execute;
    while PrepareNextCommand do Execute;
  finally
    Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
const
  dbPath = 'C:TempSQLiteTest.sdb';
begin
  if FileExists(dbPath) then DeleteFile(dbPath);

  with FDConnection1 do begin
    Params.Add('DriverID=SQLite');
    Params.Add('Database=' + dbPath);
    Connected := True;
  end;

  {创建一个名为 MyTable 的表,Picture}
  MyExecSQL(FDConnection1,'CREATE TABLE MyTable(ID integer PRIMARY KEY,Picture blob)');

  {查看表}
  FDQuery1.Open('SELECT * FROM MyTable');
end;