Bom dia senhores 
conforme sugerido pelos companheiros
dei um commit no Transaction
 

> FibGeral.Close;
> FibGeral.SelectSQL.Clear;
> FibGeral.SelectSql.Text := 'UPDATE USUARIOS SET SITUACAO = ''ON'' 
> WHERE NOME = '+QuotedStr(UpperCase(Us));
> FibGeral.Open;
 if  Transaction1.InTransaction then
     Transaction1.Commit;

>



[As partes desta mensagem que não continham texto foram removidas]









      

[As partes desta mensagem que não continham texto foram removidas]

Responder a