[Resolvido] ativar todas adoquery ao logar no sistema

[flavioavilela 0]

boa tarde galera...

para conectar ao bd, eu utilizo adoquery... meu AdoConnection eu utilizo um arquivo .ini para que seje conectado dinamicamente. eu coloco pra ler esse arquivo .ini no create do meu form principal. só que, minhas adoquerys nao conecta automatico qndo o adoconnection conecta, entao eu tenho que mandar as querys abrir toda vez q abro uma janela ou chamo outro e por ai vai, logo, é mta cancera né... queria saber se tem alguma forma de abrir essa adoquery, todas juntas, junto com o adoconnection... alguem sabe disso???

[Maikel Scheid 1]

Ola... veja a função abaixo:

 

procedure TForm1.ADOConnection1BeforeConnect(Sender: TObject);
var
  I: Integer;
begin
  {rotina que lê o .ini e conecta o ADOConnection}
  //Após que ADOConnection já conectado, coloca o código
  for I := 0 to Self.ComponentCount - 1 do
  begin
	{Verifica se o componente é um ADOQuery e abre ele}
	if Self.Components[i] is TADOQuery then
	TADOQuery(Self.Components[i]).Open;
	{dessa forma, você pode ter inúmeros ADOQuery e todos
	serão abertos nessa única rotina}
  end;
end;

Você pode fazer a leitura do arquivo .ini no evento OnBeforeConnection do ADOConnection, este evento é disparado toda vez que o componente estiver desconectado e uma solicitação for feita a ele. A rotina de ativar todas as ADOQUery pode ser colocada ali junto... mas nada impede que você use a rotina junto ao seu código no evento OnCreate do formulário. Indepente do número de Queries, todas serão ativadas com essa rotina de POO.

 

Att

[flavioavilela 0]

boa tarde meu lider...

vou dar uma conferida no código aqui junto ao meu programa e depois escrevo contando como foi...

mesmo assim, obrigado pela força...

[flavioavilela 0]

certo amigo... funfou blzinha...

obrigado pela dica...