Non-Reproducible
This issue was not reproducible when tested by the development team. Issues may be given this status when they cannot be reproduced or are no longer relevant in a development version of the software, but a specific fix was not installed to address the issue. The issue's Additional Information section may contain further explanation.
Additional Information
Not reproducible in the latest build. If you are still encountering this issue, please contact Esri Technical Support.
Workaround
Get an IName object from IDataSet::FullName. This is the key.
Public Sub Works()
''***********Change these variables:
''location of SDE file...
Dim strSDEFile As String
strSDEFile = "C:\Documents and Settings\shawn\Application Data\ESRI\ArcCatalog\9.3-Oracle-csc-lab5.sde"
'***********you need to change the variable strDS:
''dataset name we are working on:
''dataset name
Dim strDS As String
strDS = "SDE.cdc"
''***********you need to change the variable strLogin:
''the user whose permission you want to GRANT
Dim strLogin As String
strLogin = "joe"
''**********NO NEED TO CHANGE ANYTHING ELSE*********************
Dim wrkSpaceFac As IWorkspaceFactory
Set wrkSpaceFac = New SdeWorkspaceFactory
Dim wrkSpace As IWorkspace
''This is my connection as "SDE"
Set wrkSpace = wrkSpaceFac.OpenFromFile(strSDEFile, 0)
Dim fcWrkSpace As IFeatureWorkspace
Set fcWrkSpace = wrkSpace
Dim ds As IDataset
Set ds = fcWrkSpace.OpenFeatureClass(strDS)
Debug.Print ds.Name
''THIS WAS THE KEY FOR ME....
Dim sqlPrivi As ISQLPrivilege
Set sqlPrivi = ds.FullName
Debug.Print sqlPrivi.SQLPrivileges
sqlPrivi.Grant strLogin, 15, True
MsgBox ("success")
End Sub