Buscar por:

Conectado banco firebird pelo arquivo ini

Código

Correção da Dica de o modo mais facil de se conecatr banco interbase e firebird

testada e aprovada

var

vArqIni:TIniFile;

Caminho:string;

begin

Caminho:='C:Automacao ComercialBancoAUTOMACAO.FDB';

DataModulo.conexao.Close;

 if not( fileexists(extractfilepath(ParamStr(0))+'Automacao.ini') ) then

    begin

      ShowMessage('Arquivo de Configurações do Banco de Dados Não Encontrado!');

      vArqIni := TIniFile.Create(extractfilepath(ParamStr(0))+'Automacao.ini');

      try

      conexao.ConnectionName:='BANCO';

      vArqIni.WriteString('BANCO','database',Caminho);

      conexao.Params.Values['DataBase'] :=Caminho;

      finally

        vArqIni.Free;

      end;

  end;

  try

  vArqIni := TIniFile.Create(extractfilepath(ParamStr(0))+'Automacao.ini');

  conexao.ConnectionName:='BANCO';

  Caminho :=vArqIni.ReadString('BANCO','database',Caminho);

  conexao.Params.Values['DataBase'] :=Caminho;

  finally

  vArqIni.Free;

  end;

  try

   DataModulo.conexao.Connected:=True;

   DataModulo.VChamada:=0;

   DataModulo.spsusuarios.Close;

   DataModulo.spsusuarios.Open;

   DataModulo.UserControl.Execute;

   except

     Application.MessageBox( 'Não foi possivel se conectar com o banco de dados.' + #13 +

                                'verifique se o arquivo de configuração está configurado, ' + #13 +

                                'ou se o servidor firebird está instalado em seu sistema.' + #13 +

                                'Verifique tambem se o Usuario secundario esta cadastrado.' + #13 +

                                'Entre em contato com suporte para esclarecer qualquer dúvida.',

                                'Error Interno', mb_ok + mb_IconError );

        Application.Terminate;

  end;