Bom dia, estou tendo um pequeno problema em atualiza o Banco dados pelo componente Timer com o seguinte c�digo:[code]vari : integer;beginfor i := 0 to componentcount -1 do begin if c...

F�rum Erro ao atualizar o Banco de dados pelo Timer - Lazarus #589373

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

Curtir t�pico

+ 0

Responder

Posts

30/11/2017

Luiz Vichiatto

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;

Responder

Gostei + 0