ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Firedac com TFDConnection e TFDQuery em runtime [RESOLVIDO]

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
almir.jg
Novato
Novato


Registrado: Quarta-Feira, 3 de Março de 2004
Mensagens: 87

MensagemEnviada: Sex Set 23, 2016 10:48 am    Assunto: Firedac com TFDConnection e TFDQuery em runtime [RESOLVIDO] Responder com Citação

Question
Olá para todos!

Necessito de ajuda. Estou criando uma biblioteca de classes para conexão com banco de dados e necessito de criar uma conexão do banco de dados através do componente FIREDAC, ou seja, preciso criar o um TFDCONNECTION e um TFDQUERY, conecta-los tudo via runtime. O banco que utilizo e MySQL, mas poderá ser estendido para Oracle, SqlServr, etc...

Se puderem postar um exemplo funcional agradeço.

Abços


Editado pela última vez por almir.jg em Sáb Out 08, 2016 8:33 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
viox
Colaborador
Colaborador


Registrado: Sábado, 22 de Outubro de 2011
Mensagens: 1090
Localização: SINOP - MT

MensagemEnviada: Seg Set 26, 2016 10:59 am    Assunto: Responder com Citação

Tá mas qual seria sua dificuldade ?

A instanciação é feita como outro objeto Qualquer

Código:

var
  vConexao: TFDConnection;
  vQuery: TFDQuery;
begin
  vConexao := TFDConnection.Create();
  try
    vQuery := TFDQuery.Create();
    try
      vQuery.Connection := vConexao;
    finally
      vQuery.Free();
    end;
  finally
    vConexao.Free();
  end;
end;


Basta preencher a conexão no caso ai vConexao. Lembre de passar essas variáveis para atributos e assim acessar de toda a classe. Essas instancias podem ser criadas ao instanciar a sua classe.
_________________
Just another Delphi guy.


http://www.soft42.com
http://www.nortaonegocios.com.br
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail Visitar a homepage do Usuário MSN Messenger
almir.jg
Novato
Novato


Registrado: Quarta-Feira, 3 de Março de 2004
Mensagens: 87

MensagemEnviada: Sex Out 07, 2016 9:10 pm    Assunto: Responder com Citação

Olá Viox!

Agradeço sua resposta.

Seria possível você me passar um codigo funcional, baseado no Mysql (se possível), pois parametrizo a conexão vinculo a TFDQuery a TFDConnection mas quando mando abrir a TFDQuery me apresenta um erro (TFDGUIxWaitCursor).

Agradeço pela ajuda

Obrigado!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
almir.jg
Novato
Novato


Registrado: Quarta-Feira, 3 de Março de 2004
Mensagens: 87

MensagemEnviada: Sáb Out 08, 2016 8:32 pm    Assunto: [Resolvido] Firedac com TFDConnection e TFDQuery em runtime Responder com Citação

Para a TFDQuery funcionar em Runtime deve haver as bibliotecas:
FireDAC.UI.Intf, FireDAC.VCLUI.Wait, FireDAC.Comp.UI.

Elas podem ser colocadas automaticamente quando você coloca no formulario o componente TFDGUIxWaitCursor da paleta FireDAC UI.

Apenas publiquei o componente no formulario para ele colocar as bibliotecas na Implementation e em seguida deletei o componente.
A parti dai funcionou normalmente.

Abços
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB