Disculpen las Molestias pero quisiera saber si alguien ha desarrollado alguna vez una conexion entre Power Builder y Sql Server utilizando Roles de Aplicacion, he estado intentando ejecutar esta accion de la siguiente manera:
STRING ls_seccion, ls_archivo, ls_para_ado, ls_path, str2
ls_archivo = "cnn.ini"
ls_seccion = "SGICEI"
SQLCA.DBMS = "ADO.Net"
SQLCA.AutoCommit = True
SQLCA.DBParm = "Namespace='System.Data.SqlClient',TrustedConnection=1,DataSource='ING-BD-DES',Database='SGI_CEI'"
CONNECT USING SQLCA;
gt_sgi = create transaction
gt_sgi.DBMS = ProfileString(ls_archivo,ls_seccion,"DBMS", "")
gt_sgi.Database = ProfileString(ls_archivo,ls_seccion,"DataBase", "")
gt_sgi.ServerName = ProfileString(ls_archivo,ls_seccion,"ServerName", "")
gt_sgi.AutoCommit = TRUE
gt_sgi.Lock = ProfileString(ls_archivo,ls_seccion,"Lock", "")
ls_para_ado = ProfileString(ls_archivo,ls_seccion,"Namespace", "")
gt_sgi.DBParm = "Namespace='"+ls_para_ado+"',TrustedConnection=1,"+"DataSource='"+gt_sgi.ServerName+"',Database='"+gt_sgi.Database+"'"
CONNECT USING gt_sgi;
IF sqlca.sqlcode = -1 and gt_sgi.sqlcode = -1 then
Messagebox("SGIC - Error de Conexión !!", string(Sqlca.SqlErrText),exclamation!)
Halt
ELSE
str2 = "sp_setapprole 'ROL_ACCESO_SIA', '987G^bv876sPY)Y5m23';"
EXECUTE IMMEDIATE :str2 USING gt_sgi ;
MessageBox("Connect Error", SQLCA.SQLErrText,Exclamation!) //MessageBox N° 2
ls_path = getcurrentdirectory()
gs_path_apli =ls_path
gs_path_ima = ls_path + '\IMAGENES\'
gs_codiUniOrga = 'UO1'
select nombreUniOrga into :gs_nombreUniOrga from TUnidadOrganizacional where codiUniOrga = :gs_codiUniOrga;
MessageBox("Connect Error", SQLCA.SQLErrText,Exclamation!) //MessageBox N° 3
END IF
al realizar esta conexion en el MessageBox N° 2 me indica que se realizo la ejecucion del rol de aplicacion pero cuando realizo el select el MessageBox N° 3 me indica que no tengo permisos para realizar select pero yo le he asignado a esa tabla permisos de select, update entre otros mediante el rol de aplicacion.
Espero me puedan ayudar con este incoveniente y de antemano Gracias.
0 comentarios:
Publicar un comentario
Nota: solo los miembros de este blog pueden publicar comentarios.