Re: COM+ Method level security problem

Imports System.Runtime.InteropServices
Imports System.EnterpriseServices

<ClassInterface(ClassInterfaceType.AutoDual), _
ComponentAccessControl(), SecureMethod()> _
Public Class ClientServices
Inherits System.EnterpriseServices.ServicedComponent

Public Function CreateNewClient(ByVal Name As Object) As Integer

Dim sql As String
Dim NewID As Integer

sql = gBuildStoredProcSQL("ClientAddNew", Name)
NewID = gExecuteWithSingleResult(sql)

Return NewID

End Function

<SecurityRole("AppUser")> _
Public Function FetchClient(ByVal ClientID As Integer)

Dim sql As String

sql = gBuildStoredProcSQL("ClientFetch ", ClientID)
Return gExecuteWithResults(sql)

End Function


<SecurityRole("AppSuperUser")> _
Public Function FetchClientAccounts _
(ByVal ClientID As Integer) As DataTable

Dim sql As String

sql = gBuildStoredProcSQL("ClientAccountsFetch", ClientID)
Return gExecuteWithResults(sql)

End Function

End Class


.

Relevant Pages