F�rum Conectar banco de dados via codigo #400382

05/05/2011

Ol�, Utilizo o componente DBexpress para fazer minha conex�es com banco de dados, estou criando um pequeno software que abrir� banco de dados interbase como de firebird mas estou com problemas para fazer a conex�o do mesmo via codigo. function TipoBanco(tip:integer):integer;
begin
   case tip of
      0 : begin
          wconnection := 'FBConnection';
          wdriver := 'Firebird';
          wgetdriver := 'getSQLDriverINTERBASE';
          wlibrary := 'dbxfb.dll';
          wvendorlib := 'fbclient.dll';
          end;
      1 : begin
          wconnection := 'IBConnection';
          wdriver := 'Interbase';
          wgetdriver := 'getSQLDriverINTERBASE';
          wlibrary := 'dbxint.dll';
          wvendorlib := 'gds32.dll';
          end;
      end; end;
A fun��o acima estabelce qual a base de dado ser� conectada. procedure conexao;
begin
DM := TDM.Create(application);
With DM do
     begin
     conexao.ConnectionName := wconnection;
     conexao.DriverName := wdriver;
     conexao.GetDriverFunc := wgetdriver;
     conexao.LibraryName := wlibrary;
     conexao.LoginPrompt := false;
     conexao.Params.Add('DataBase=nomedb');
     conexao.VendorLib := wvendorlib;
     try
       conexao.Open;
     except
         begin
           ShowMessage('N�o foi poss�vel efetuar a conex�o.');
           wresult := false;
         end;
      end;
end;
end; A procedure por sua vez realiza a conex�o com o banco escolhido, nomedb � uma variavel do tipo string que recebe o comando onde esta armazenado o banco de dados. Ex: nomedb := 'G:\BacalaEditorSQL\BDteste.fdb', no caso essa linha de comando esta em um compontente edit. nomedb := txtlinhadecodigo.txt. Toda vez que tento testar, ele mostra a mensagem 'N�o foi poss�vel efetuar a conex�o.' Alguem poderia me ajudar? Obrigado.

Wilton J�nior

Curtir t�pico

+ 0

Responder

Posts

05/05/2011

Rodrigo Mattos

amigo voc� ja debugou, para ver aonde que o c�digo sai, e vai para a mensagem?

Responder

Gostei + 0

06/05/2011

Wilton J�nior

J� debuguei linha por linha, e n�o sei o pq que ele n�o conecta. Por acaso vc tem um modelo de como reliza essa conexao usando parametro?

Responder

Gostei + 0

08/05/2011

Jackson Veiga

Tente fechar a conex�o com o banco antes de informar os dados e conectar, n�o sei se � Close, mas acredito que seja!
Tente como no codigo abaixo:


procedure conexao;
begin
  DM := TDM.Create(application);
  With DM do
     begin

     conex�o.Close; //n�o tenho certeza se � close, mas � algo parecido, o objetivo � fechar a conex�o

                          //antes de reconectar.
     conexao.ConnectionName := wconnection;
     conexao.DriverName := wdriver;
     conexao.GetDriverFunc := wgetdriver;
     conexao.LibraryName := wlibrary;
     conexao.LoginPrompt := false;
     conexao.Params.Add('DataBase=nomedb');
     conexao.VendorLib := wvendorlib;
     try
       conexao.Open;
     except
         begin
           ShowMessage('N�o foi poss�vel efetuar a conex�o.');
           wresult := false;
         end;
      end;
  end;
end;

Responder

Gostei + 0

09/05/2011

Wilton J�nior

Senhor Rodrigo Francisco de Mattos respondendo a sua quest�o, debuguei novamente e deu o seguinte erro ao tentar realizar a conexao com o banco de dados e quando clico no bot�o para abrir um base de dados (opendialog) . Project SQLBacala.exe raised exception class EExternall Exception with message 'External exception C0000235'. Senhor Jackson Eduardo da Veiga obrigado por sua dica vou tentar fazer isso. Muito obrigado

Responder

Gostei + 0

09/05/2011

Wilton J�nior

Senhor Jackson Eduardo da Veiga A sua sugest�o foi boa mas ainda n�o esta funcionando. Preciso saber o que � o erro Project SQLBacala.exe raised exception class EExternall Exception with message 'External exception C0000235'. acontece tanto quando eu clico no speedbutton para buscar um arquivo e ou quando pe�o para esse arquivo ser aberto atraves do codigo que passei. obrigado

Responder

Gostei + 0

09/05/2011

Wilton J�nior

Achei esse link https://www.devmedia.com.br/rte3/add_forum.asp?mode=reply&;sala=77&top=400382 Talves seja o meu avira que esta dando problema no meu executavel e banco n�o esta logando, caso for isso eu volto para confirmar se deu ou n�o certo obrigado

Responder

Gostei + 0

09/05/2011

Wilton J�nior

Responder

Gostei + 0

09/05/2011

Wilton J�nior

Responder

Gostei + 0

09/05/2011

Rafael Mattos

na hora de seta o nome do banco tenta assim

Conexao.Params.Values['Database'] := 'Local do Seu Banco';

Responder

Gostei + 0

10/05/2011

Wilton J�nior

Valeu companheiro agora ta funcionando. muito obrigado mesmo e Deus te aben�oe.

Responder

Gostei + 0