laptop and a wrench

Bogue

ISqlPrivilege::Grant throws an automation error.

Dernière publication: September 8, 2016 No Product Found
Numéro d’ID de bogue NIM012201
EnvoiOctober 8, 2007
Dernière modificationJune 5, 2024
S’applique àNo Product Found
Version trouvée9.2
StatutNon-Reproducible

Informations supplémentaires

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

Solution de contournement

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

Étapes pour reproduire

ID de bogue: NIM012201

Logiciel:

  • No Product Found

Recevoir une notification lorsque le statut d’un bogue change

Télécharger l’application Esri Support

En savoir plus sur ce sujet

Obtenir de l’aide auprès des experts ArcGIS

Contacter le support technique

Télécharger l’application Esri Support

Accéder aux options de téléchargement