Erro ao atualizar o Banco de dados pelo Timer - Lazarus

Delphi

30/11/2017

Bom dia, estou tendo um pequeno problema em atualiza o Banco dados pelo componente Timer com o seguinte código:

var
i : integer;
begin
for i := 0 to componentcount -1 do
    begin
        if components[i] as dm.tbCadMorador then //ou Tzquery
           begin
              if ( (components[i] as dm.tbCadMorador).State in [dsBrowse] )  and ( (components[i] as dm.tbCadMorador).active = true ) then //estado da tabela
                   (components[i] as dm.tbCadMorador).refresh;
           end;
    end;


Sendo que o Erro no código esta neste comando abaixo:

as dm.tbCadMorador


Pois tbCadMorador é um componente TSQLQuery

Gostaria da ajuda dos amigos programadores
Helton Garrido

Helton Garrido

Curtidas 0

Respostas

Luiz Vichiatto

Luiz Vichiatto

30/11/2017

Helton, há passagem de parâmetros para esta query?
Experimente colocar uma try ... exception para saber qual o erro que está ocorrendo, assim você poderá identificar que tipo de erro está ocorrendo
var
i : integer;
begin
for i := 0 to componentcount -1 do
    begin
try
        if components[i] as dm.tbCadMorador then //ou Tzquery
           begin
              if ( (components[i] as dm.tbCadMorador).State in [dsBrowse] )  and ( (components[i] as dm.tbCadMorador).active = true ) then //estado da tabela
                   (components[i] as dm.tbCadMorador).refresh;
           end;
except
    do e : Exception 
begin

  application.MessageBox(PChar('Erro ao executar'+e.Message), 'Aviso', mb_ok);

end;
end;
    end;
GOSTEI 0
POSTAR