NIM004186 for No Product Found

不具合 ID 番号	NIM004186
送信されました	September 13, 2006
最終更新日	June 5, 2024
適用対象	No Product Found
見つかったバージョン	9.1
ステータス	Will Not Be Addressed

参考情報

We apologize that we were unable to address this issue within the current product support cycle. If the issue continues to affect your work in a supported release, please contact Technical Support.

対処法

You can work around this problem by using the code given below:Public Sub GrantPrivilege(pDataset As IDataset, pUserName As String, pPriv As Long, pWithGrant As Boolean) If Not pDataset Is Nothing Then Dim pSQLPrivilege As ISQLPrivilege If pDataset.Type = esriDTRasterDataset Then Dim pTable As ITable Dim pFeatWork As IFeatureWorkspace Dim pTableName As ITableName Set pFeatWork = pDataset.workspace Set pTable = pFeatWork.OpenTable(<a href="http://pDataset.Name" target="_blank">pDataset.Name</a>) Dim prDataset As IDataset Set prDataset = pTable Set pSQLPrivilege = prDataset.FullName pSQLPrivilege.Grant pUserName, pPriv, pWithGrant End If End If End Sub