NIM012201 for No Product Found

不具合 ID 番号	NIM012201
送信されました	October 8, 2007
最終更新日	June 5, 2024
適用対象	No Product Found
見つかったバージョン	9.2
ステータス	Non-Reproducible

参考情報

Not reproducible in the latest build. If you are still encountering this issue, please contact Esri Technical Support.

対処法

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