Ver Mensaje Individual
  #1 (permalink)  
Antiguo 17/11/2005, 08:50
Manuelp
 
Fecha de Ingreso: noviembre-2005
Mensajes: 1
Antigüedad: 19 años, 1 mes
Puntos: 0
Problemas para utilizar Roles de Sql Server en Visual Basic

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