Cita:
Empezado por Luis Bastidas
Sorry ... este es el procedimiento completo ...
procedure TTLoginFrm.Connect(User : String; Status : String);
begin
// Update de conexion para el usuario
Try
With Modulo.Query1 Do
begin
SQL.Clear;
SQL.add('Update Permisos ' +
'Set Connectado = ' + Status + ' ' +
'where UserID = :User ');
Parameters.ParamByName('User').Value := UserName.Text;
ExecSQL;
Close;
end;
except
On EOleException do
end
end;
|
Ademas al parecer ya quedo ... Gracias ... es que estaba poniendo un Open en lugar de poner un ExecSQL .... Mil gracias por responder.