Classe de Conexão para BD oracle

[AlbertoFJR 0]

Boa tarde.

 

Estou necessitanto criar uma classe de conexão à bd oracle, entretando gostaria que essa classe fosse criada e sua utilização através de componentes criados em tempo de execução, pois não quero no form nenhum componente a vista... Alguem saberia como fazer isso?

 

Abs à todos!

 

E antecipadamente agradeço a ajuda!

[itepi 0]

Eu utilizo os componentes Zeos pra fazer a conexão com o banco de dados, mas utilizo MySql mas ele tem opção para Oracle também...

E pra fazer a conexão em tempo de execução é só fazer da seguinte forma :

 

1º Declare uma variavel global :

var

conexao : TZConnection;

 

2º No evento OnCreate do form principal você coloca o seguinte codigo :

  conexao := TZConnection.Create(Application);
  conexao.Database := 'nomeBd';
  conexao.Catalog := 'nomeBD';
  conexao.User := 'usuario';
  conexao.Password := 'senha';
  conexao.Port := 3306; //coloquei a porta do MySQL, substituir pela do Oracle
  conexao.Protocol := 'oracle';
  conexao.Connect;

Não esquecendo de declarar ZConnection em uses.

Se você utilizar outro componente que não seja do pacote Zeos o raciocinio é o mesmo, com algumas pequenas mudanças para a configuração do banco, mas a criação do componente em tempo de execução é praticamente igual!!!

Espero ter ajudado, qualquer duvida posta ai de nv!!!