Criar um banco via Delphi

Question

Seguinte, quero q minha aplica��o quando iniciar verifique se existe o arquivo do banco de dados (teste.fdb) caso naum exista quero que ela crie um banco de dados (novo.fdb) e insira algumas tabelas, como posso fazer isso???

Estou usando Delphi 2006 + Firebird 2

Jhosef · Answer

Ia esquecendo, estou usando o DBExpress para isso......

Fabiano G�es · Answer

Uma op��o para criar um novo DataBase �:

procedure CreateDataBase(const ADataBase: String);
var
  DataBase : TIBDatabase;
begin

  DataBase :=  TIBDatabase.Create( nil );
  try
    try
      with DataBase do
        begin
          DatabaseName := ADataSource;
          SQLDialect   := 3;
          Params.Clear;
          Params.Add(�USER ��SYSDBA���);
          Params.Add(�PASSWORD ��masterkey���);
          Params.Add(�PAGE_SIZE 16384�);
          Params.Add(�DEFAULT CHARACTER SET ISO8859_1�);
          CreateDatabase;
        end; // WITH CriaBanco DO
    finally
      FreeAndNil(DataBase);
    end;
  except
      raise Exception.Create(�ERROR: CreateDataBase�);
  end; 

end;

ap�s criar o DataBase, voc� abre uma conex�o com o mesmo atrav�s do TSQLConnection, e com um TSQLQuery voc� cria as tabelas tipo:

procedure CreateTable(ACon: TSQLConnection; AScriptSQL: string);
var
   QRY: TSQLQuery;
begin
   QRY := TSQLQuery.Create(nil);
   try
      ACon.Open;
      QRY.SQLConnection := ACon;
      with QRY do
      begin
         Close;
         SQL.Clear;
         SQL.Text := AScriptSQL;
         ExecSQL();
      end;  
   finally
      ACon.Close;
      FreeAndNil(QRY);
   end;

ai um metodo para verificar se a tabela j� existe antes de cria-la:

function TableExist(ACon: TSQLConnection; ATableName: string): Boolean;
var
   List: TStrings;
   i   : integer;
begin
   Result := False;
   List   := TStringList.Create;
   try
      ACon.Open;
      ACon.GetTableNames(List);

      for i := 0 to List.Count - 1 do
      begin
         if UpperCase(List.Strings[i]) = UpperCase(ATableName) then
            Result := True;
      end;

   finally
      List.Free;
      ACon.Close;
   end;
end;

ent�o voc� pode usar assim:

begin
   if not FileExists(�C:\teste.fdb�) then
      CreateDataBase(�C:\teste.fdb�);   

   // aqui voc� configura o objeto TSQLConnection para se conectar com o DataBase: �C:\teste.fdb�

   if not TableExist(�TableName�) then
      CreateTable(SQLConnection, SeuScriptSQL);      
        
end;

Abra�o !!!

Jhosef · Answer

Primeiro isso vai servi para bancos Firebird tbem naum eh...Outra coisa...Se eu quiser fazer isso para outros bancos como MySQL, SQL Server, Access que s�o bancos que o DBExpress suporta???...

Jhosef · Answer

A fun��o CreateTable tbem pode seu usada para criar generators, procedures e altera��es na estrutura da tabela???...

Fabiano G�es · Answer

[quote:d220c43b95=�jhosef�]Primeiro isso vai servi para bancos Firebird tbem naum eh...[/quote:d220c43b95]o metodo [b:d220c43b95]CreateDataBase[/b:d220c43b95] cria Banco apenas Interbase/Firebird[quote:d220c43b95=�jhosef�]Outra coisa...Se eu quiser fazer isso para outros bancos como MySQL, SQL Server, Access que s�o bancos que o DBExpress suporta???[/quote:d220c43b95]eu ainda n�o consegui uma maneira generica para criar varios tipos de Banco de dadospara o MYSQL voc� pode abrir uma conex�o com o Banco �mysql� que � criado na instala��o, ai com uma query voc� executa a cria��o tipo:[code:1:d220c43b95]   query.close;   query.SQL.Text := �create database � + DataBase;   query.ExecSQL();[/code:1:d220c43b95][quote:d220c43b95=�jhosef�]A fun��o CreateTable tbem pode seu usada para criar generators, procedures e altera��es na estrutura da tabela???[/quote:d220c43b95]Sim como voc� passa um parametro com o ScriptSql voc� pode usar para  executar qualquer script no banco, mude o nome no metodo para ExecSQL e use para executar seus scripts....

Jhosef · Answer

Blz deixando o createdatabase de lado entaum...

As outras fun��es podem ser utilizadas com outros bancos entaum... dai posso soh enviar um banco vazio e manipulo do jeito q for melhor...
Vlw pelas dicas, consegui no almo�o executa-las no firebird...

huauuhahua

Vlw

Fabiano G�es · Answer

[quote:0dad99a637=�jhosef�]Blz deixando o createdatabase de lado entaum...As outras fun��es podem ser utilizadas com outros bancos entaum... dai posso soh enviar um banco vazio e manipulo do jeito q for melhor... Vlw pelas dicas, consegui no almo�o executa-las no firebird...huauuhahuaVlw[/quote:0dad99a637]valeu por ter voltado para dizer que funcionou assim o post n�o fica em aberto e servir� quando outro amigo tiver duvida.abra�o !!!...

Renan.cb · Answer

e para criar uma trigger?criei uma dll para fazer a cria��o do banco para mim, e chamo ela pelo meu instalador (Inno Setup). Fiz isso para diminuir o tamanho do meu instalador.sera que nao tem uma maneira de usar as dll do firebird para fazer essas cria��es e altera��es em tabelas?abra�o...

Renan.cb · Answer

existe alguma maneira de se executar um script (.sql) de dentro do delphi? tenho um script que gera o database, tabelas, triggers ...

pelo sql manager, temos a op��o de abrir um script sql e execut�-lo com sucesso. Teria com fazer isso de dentro de uma procedure ou fun�ao?

grato pela ajuda

Renan.cb · Answer

sobe.alguma dica?...

Pqno_icarus · Answer

tbm estou precisando urgente resolver isso, como instalar o postgres, definindo nome do db, usu�rio e senha em silente mode, e como rodar o script de cria��o das tabelas, rela�oes e tudo mais assim que instalar o applicativo... grato

F�rum Criar um banco via Delphi #346172