(Resolvido) ADOTable

[akfreitas]

Olá!

É possível conectar vários componentes ADO ao mesmo tempo ? Tipo assim: TADOTable(Sender).Active:=true; Assim ativaria todos os componentes ADO existente no projeto.

Abraços

Anderson

[Murilo Leal]

É possível sim, mas quando você quer que os componentes se tornem ativos? Num clique de botão?

Se for é só colocar entre o begin e o end do evento onclick do botão o nome dos componentes, recebendo true:

ADOTable1.Active:=True;

ADOTable2.Active:=True;

ADOTable3.Active:=True;

...

Assim todos os componentes ficam ativos ao clicar no botão.

Se não for bem isso que você quer, responde aí pra mim entender melhor, beleza? Tutorial sobre conexão com banco de dados tem no meu site (link na assinatura), qualquer dúvida entra em contato que acrescento informações.

Vlw!

[Douglas Soares]

Se você quer ativar de um form apenas chamando um você pode fazer assim:

var i : integer;
begin
for i := 0 to Self.ComponentCount - 1 do
begin
if Components[i].ClassType = TADOTable then
begin
TADOTable(Components[i]).Active := true;
end;
end;
end;

Abraços

[akfreitas]

Olá Douglas! Obrigado pela resposta, funcionou perfeitamente.

Aproveitando sua boa vontade, teria como eu ativar as tabelas (usando o codigo que voce passou) que estão em um form1 através de um botão no form2 ? Como seria ?

[Douglas Soares]

Tem sim, é só você trocar o Self pelo nome do form2:

var i : integer;
begin
for i := 0 to Self.ComponentCount - 1 do
begin
if Self.Components[i].ClassType = TADOTable then
begin
TADOTable(Self.Components[i]).Active := true;
end;
end;
end;

Abraços

[Jhonas]

É possível conectar vários componentes ADO ao mesmo tempo ?

é possivel sim... como os colegas já mostraram, mas o ideal é ativar as tabelas somente quando forem necessarias, ou seja, somente quando for usa-las

abraço

[akfreitas]

Valeu galera!