Problem updating to Tokyo with tUniQuery (MSSQL)
Posted: Sun 16 Sep 2018 11:07
Hi,
Using the same code, the update of a registry works perfectly with Delphi Berlin, but when compiling with Delphi Tokyo the registry is not updated and I can't recover error code using the exception.
I've tryied executing from Windows and from Android device.
In Delphi Berlin use v. 6.4.16
In Delphi Tokyo use v. 7.2.7
This is the code:
uQUsuarios.Close;
uQUsuarios.sql.Text := 'select * from usuarios where nId=' + nIdUsuarioActivo.toString;
uQUsuarios.Open;
if uQUsuarios.RecordCount > 0 then
begin
uQUsuarios.Edit;
uQUsuarios.FieldByName('lSesion').value := true;
uQUsuarios.FieldByName('Sesion_id').value := cNameDevice;
try
uQUsuarios.Post;
except
on e: exception do
showmessage(e.message) ;
end;
Thanks for any help.
Using the same code, the update of a registry works perfectly with Delphi Berlin, but when compiling with Delphi Tokyo the registry is not updated and I can't recover error code using the exception.
I've tryied executing from Windows and from Android device.
In Delphi Berlin use v. 6.4.16
In Delphi Tokyo use v. 7.2.7
This is the code:
uQUsuarios.Close;
uQUsuarios.sql.Text := 'select * from usuarios where nId=' + nIdUsuarioActivo.toString;
uQUsuarios.Open;
if uQUsuarios.RecordCount > 0 then
begin
uQUsuarios.Edit;
uQUsuarios.FieldByName('lSesion').value := true;
uQUsuarios.FieldByName('Sesion_id').value := cNameDevice;
try
uQUsuarios.Post;
except
on e: exception do
showmessage(e.message) ;
end;
Thanks for any help.