Option Explicit Sub ListConnProps() Dim pGxApp As IGxApplication Set pGxApp = Application If Not TypeOf pGxApp.SelectedObject Is IGxDatabase Then Debug.Print "select a geodb first" Exit Sub End If Dim pGXdb As IGxDatabase2 Set pGXdb = pGxApp.SelectedObject Dim names As Variant, values As Variant Debug.Print pGXdb.WorkspaceName.WorkspaceFactoryProgID pGXdb.WorkspaceName.ConnectionProperties.GetAllProperties names, values Dim l As Long For l = 0 To UBound(names) Debug.Print names(l), values(l) Next l End Sub
Angemeldete Mitglieder können Beiträge verfassen, Updates folgen und mehr. Neu hier? Registriere ein kostenloses Konto.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.