Desarrolle una aplicacion en VB6 con Sql Server con seguridad de Roles de aplicacion pero al ejecutarla no setea el rol de aplicacion.
el codigo es el siguiente:
Set Conn = CreateObject("ADODB.Connection")
Conn.ConnectionString = mvarm_ConnectionString
Conn.Open
Setea el rol de aplicacion.
Conn.Execute "EXEC sp_setapprole 'rol', {ENCRYPT 'xxx'}, 'ODBC'"
Despues trato de ejecutar un procedimiento y me dice que no estoy autorizado a la funcion, aunque el rol si esta autorizado.
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = Conn
rs.CursorLocation = adUseClient
rs.Source = "SEL_SatFun "
StrSql = "SEL_SatFun "
rs.Open StrSql, , adOpenForwardOnly, adLockReadOnly
Gracias
