Criação de um banco de dados usando DBExpress em Delphi?

Question

Eu preciso criar um banco de dados Firebird programaticamente usando DBExpress. Eu tenho feito isso para o servidor SQL, pela primeira conexão com Mestre, em seguida, passando o script para criar a uma consulta, mas com Firebird Eu tenho um pequeno problema galinha e do ovo.

Answer 1

Eu tenho uma boa dica de um colega que criou um código para o projeto Freepascal. Ele não usa DB expressar, mas de acordo com ele, é a única maneira de criar um banco de dados com o código. Este código é baseado no manual de InterBase, e usa uma chamada do gdslib / fbclient dll:

procedure TIBConnection.CreateDB;

var ASQLDatabaseHandle,
    ASQLTransactionHandle : pointer;
    CreateSQL : String;
    pagesize : String;
begin
  CheckDisConnected;
  {$IfDef LinkDynamically}
    InitialiseIBase60;
  {$EndIf}
  ASQLDatabaseHandle := nil;
  ASQLTransactionHandle := nil;
  CreateSQL := 'CREATE DATABASE ';
  if HostName <> '' then
    CreateSQL := CreateSQL + ''''+ HostName+':'+DatabaseName + ''''
  else
    CreateSQL := CreateSQL + '''' + DatabaseName + '''';

  if UserName <> '' then
    CreateSQL := CreateSQL + ' USER ''' + Username + '''';
  if Password <> '' then
    CreateSQL := CreateSQL + ' PASSWORD ''' + Password + '''';
  pagesize := params.Values['PAGE_SIZE'];
  if pagesize <> '' then
    CreateSQL := CreateSQL + ' PAGE_SIZE '+pagesize;

  if isc_dsql_execute_immediate(@FStatus[0],@ASQLDatabaseHandle,@ASQLTransactionHandle,length(CreateSQL),@CreateSQL[1],Dialect,nil) <> 0 then
    CheckError('CreateDB', FStatus);

  if isc_detach_database(@FStatus[0], @ASQLDatabaseHandle) <> 0 then
    CheckError('CreateDB', FStatus);

  {$IfDef LinkDynamically}
    ReleaseIBase60;
  {$EndIf}
end;

O truque é a função isc_dsql_execute_immediate. Espero que este código ajuda você. Aqui estão os links para os arquivos de origem FreePascal onde este código vem de:

Unidade contendo função CreateDB

Unidade contendo chamada API isc_dsql_execute_immediate

Answer 2

Executar um script isql

isql-i CreateDB.sql

CreateDB.sql o arquivo inclui o comando para criar o banco de dados como mostrado abaixo.

SET SQL DIALECT 3;
CREATE DATABASE 'C:\DATABASE\DB.FDB'
USER 'SYSDBA' PASSWORD 'masterkey'
PAGE_SIZE 4096
DEFAULT CHARACTER SET WIN1252;
QUIT;