CRIAR CONEXÃO NA MÃO COM DBX + DELPHI 2009 + FIREBIRD 2.0

[Thiago B Paulon]

Olá !!!! 

Não estou conseguindo fazer uma conexão utilizando linhas de comandos pra criar uma conexão com o banco de dados!

tenho o seguinte código digitado em uma unit que add ao projeto e a função está declarada na seção public e faz a validação do usuário :

function TUsuario.Login(AUsuario, ASenha: String;

  Acoes: TCustomActionList): Boolean;

var

// CLASSE QUE REPRESENTA UMA CONEXÃO COM O BANCO DE DADOS  - CONEXÃO

  DBCon : TDBXConnection;

// CLASSE RESPONSÁVEL POR RECEBER OS COMANDOS / INSTRUÇÕES SQL - INSTRUÇÃO

  Command : TDBXCommand;

// CLASSE QUE IRÁ RECEBER O RESULTSET EXECUTADO PELO DBXCOMMAND - RESULTSET

  Reader : TDBXReader;

begin

// TDBXCONNECTIONFACTORY - CLASSE EXCLUSIVA PARA CONEXÃO COM BANCO DE DADOS

// GETCONNECTIONFACTORY - MÉTODO QUE RETORNA UMA INSTÂNCIA DA "FABRICA" DE CONEXÃO CHAMANDO O GETCONNECTION

// GETCONNECTION - MÉTODO QUE RETORNA O NOME DA CONEXÃO, USUÁRIO E SENHA PARA A INSTÂNCIA DA FÁBRICA

    DBCon := TDBXConnectionFactory.GetConnectionFactory.GetConnection('TBODbxFirebird','SYSDBA','masterkey');

// A CLASSE DE COMANDOS(COMMAND) VAI CRIAR CLASSE CREATECOMMAND CRIA UM OBJETO COMMAND COM OS DADOS DA CONEXAO DBCON

    Command := DBCon.CreateCommand;

// COMANDO SQL

    Command.Text := 'select * from FUNCIONARIO where LOGIN_FUN = '+QuotedStr(AUsuario)+' and SENHA_FUN = '+QuotedStr(ASenha);

// EXECUTANDO O COMANDO SQL E PASSANDO O RESULTADO PARA A VARIÁVEL READER

    Reader := Command.ExecuteQuery;

....

...

...

Na tela de login ... no botão OK faço a seguinte chamada:

procedure Tfrm_login.btn_OKClick(Sender : TObject);

begin

    if TUsuario.GetInstance.Login(edt_Usuario.Text, edt_Senha.Text, frm_MenuPrincipal.Acoes) then

        modalResult := mrOk

    else

        Application.MessageBox('USUÁRIO OU SENHA INVÁLIDO','PROJETO MEU', MB_OK);

end;

Quando compilo a aplicação dá o seguinte erro:

Debugger Exception Notification

Project PROJETO_MEU.exe raised exception class TDBXError with message 'unavailable database'.

Não sei mais o que fazer!!! já procurei no fórum e não achei nda respeito! por favor me ajudem!!

Qualquer coisa lhe envio os fontes para dar uma olhada melhor !!

Desde já eu agradeço!!

abraço!

[Thiago Borges]

Thiago B Paulon wrote:
> Debugger Exception Notification
> Project PROJETO_MEU.exe raised exception class TDBXError with message
> 'unavailable database'.

O servidor que você está tentando conectar não está disponível. Não foi
iniciado ou foi bloqueado por firewall.

--
Thiago Borges