How to query geodatabase properties

public int GetMaximumFieldNameLength(IWorkspace workspace)
{
  // Get the workspace property.
  IWorkspaceProperties workspaceProperties = workspace as IWorkspaceProperties;
  if (workspaceProperties == null)
  {
    throw new ArgumentException(
      "Workspace does not implement IWorkspaceProperties.");
  }
  IWorkspaceProperty workspaceProperty = workspaceProperties.get_Property
    (esriWorkspacePropertyGroupType.esriWorkspaceTablePropertyGroup, (int)
    esriWorkspaceTablePropertyType.esriTablePropMaxFieldNameLength);

  // See if the property is supported.
  if (workspaceProperty.IsSupported)
  {
    // Get the property value.
    object propertyValue = workspaceProperty.PropertyValue;
    return Convert.ToInt32(propertyValue);
  }
  else
  {
    throw new Exception("The esriTablePropMaxFieldNameLength property is " + 
      "not supported by this workspace.");
  }
}

Public Function GetMaximumFieldNameLength(ByVal workspace As IWorkspace) As Integer
    ' Get the workspace property.
    Dim workspaceProperties As IWorkspaceProperties = TryCast(workspace, IWorkspaceProperties)
    If workspaceProperties Is Nothing Then
        Throw New ArgumentException("Workspace does not implement IWorkspaceProperties.")
    End If
    Dim workspaceProperty As IWorkspaceProperty = workspaceProperties.Property _
                                                  (esriWorkspacePropertyGroupType.esriWorkspaceTablePropertyGroup, _
                                                  CInt(esriWorkspaceTablePropertyType.esriTablePropMaxFieldNameLength))
    
    ' See if the property is supported.
    If workspaceProperty.IsSupported Then
        ' Get the property value.
        Dim propertyValue As Object = workspaceProperty.PropertyValue
        Return CInt(propertyValue)
    Else
        Throw New Exception("The esriTablePropMaxFieldNameLength property is " + _
                            "not supported by this workspace.")
    End If
End Function

public void UpgradeGeodatabase(IWorkspace workspace)
{
  // Display the current version of the geodatabase.
  IGeodatabaseRelease2 gdbRelease = (IGeodatabaseRelease2)workspace;
  Console.WriteLine("GDB release: {0}.{1}.{2}", gdbRelease.MajorVersion,
    gdbRelease.MinorVersion, gdbRelease.BugfixVersion);
  if (gdbRelease.CurrentRelease)
  {
    Console.WriteLine("This geodatabase is current with the client.");
  }
  else
  {
    Console.WriteLine("This geodatabase is not current with the client.");

    // Try to upgrade the geodatabase.
    if (gdbRelease.CanUpgrade)
    {
      try
      {
        Console.WriteLine("Upgrading the geodatabase...");
        gdbRelease.Upgrade();
        Console.WriteLine("The new GDB release: {0}.{1}.{2}",
          gdbRelease.MajorVersion, gdbRelease.MinorVersion,
          gdbRelease.BugfixVersion);
      }
      catch (COMException comExc)
      {
        Console.WriteLine("Upgrading the geodatabase failed:");
        Console.WriteLine("{0} ({1})", comExc.Message, comExc.ErrorCode);
      }
    }
    else
    {
      Console.WriteLine("The geodatabase could not be upgraded.");
    }
  }
}

Public Sub UpgradeGeodatabase(ByVal workspace As IWorkspace)
    ' Display the current version of the geodatabase.
    Dim gdbRelease As IGeodatabaseRelease2 = CType(workspace, IGeodatabaseRelease2)
    Console.WriteLine("GDB release: {0}.{1}.{2}", gdbRelease.MajorVersion, _
                      gdbRelease.MinorVersion, gdbRelease.BugfixVersion)
    If gdbRelease.CurrentRelease Then
        Console.WriteLine("This geodatabase is current with the client.")
    Else
        Console.WriteLine("This geodatabase is not current with the client.")
        
        ' Try to upgrade the geodatabase.
        If gdbRelease.CanUpgrade Then
            Try
            Console.WriteLine("Upgrading the geodatabase...")
            gdbRelease.Upgrade()
            Console.WriteLine("The new GDB release: {0}.{1}.{2}", _
                              gdbRelease.MajorVersion, gdbRelease.MinorVersion, _
                              gdbRelease.BugfixVersion)
            Catch comExc As COMException
            Console.WriteLine("Upgrading the geodatabase failed:")
            Console.WriteLine("{0} ({1})", comExc.Message, comExc.ErrorCode)
            End Try
        Else
            Console.WriteLine("The geodatabase could not be upgraded.")
        End If
    End If
End Sub

public void DisplayConfigurationKeywords(IWorkspace workspace)
{
  // Get a configuration keyword enumerator.
  IWorkspaceConfiguration workspaceConfig = (IWorkspaceConfiguration)workspace;
  IEnumConfigurationKeyword enumConfigKeyword =
    workspaceConfig.ConfigurationKeywords;
  enumConfigKeyword.Reset();

  // Iterate through the configuration keywords.
  IConfigurationKeyword configKeyword = null;
  while ((configKeyword = enumConfigKeyword.Next()) != null)
  {
    // Display the keyword properties.
    Console.WriteLine("Name: {0}", configKeyword.Name);
    Console.WriteLine("Type: {0}", configKeyword.KeywordType);
    Console.WriteLine("Description: {0}", configKeyword.Description);
    Console.WriteLine("Comments: {0}", configKeyword.Comments);

    // Iterate through the keyword's parameters.
    IEnumConfigurationParameter enumConfigParameter =
      configKeyword.ConfigurationParameters;
    enumConfigParameter.Reset();
    IConfigurationParameter configParameter = null;
    while ((configParameter = enumConfigParameter.Next()) != null)
    {
      Console.WriteLine("Parameter: {0} ({1})", configParameter.Name,
        configParameter.ConfigurationString);
    }
  }
}

Public Sub DisplayConfigurationKeywords(ByVal workspace As IWorkspace)
    ' Get a configuration keyword enumerator.
    Dim workspaceConfig As IWorkspaceConfiguration = CType(workspace, IWorkspaceConfiguration)
    Dim enumConfigKeyword As IEnumConfigurationKeyword = workspaceConfig.ConfigurationKeywords
    enumConfigKeyword.Reset()
    
    ' Iterate through the configuration keywords.
    Dim configKeyword As IConfigurationKeyword = enumConfigKeyword.Next()
    While Not configKeyword Is Nothing
        ' Display the keyword properties.
        Console.WriteLine("Name: {0}", configKeyword.Name)
        Console.WriteLine("Type: {0}", configKeyword.KeywordType)
        Console.WriteLine("Description: {0}", configKeyword.Description)
        Console.WriteLine("Comments: {0}", configKeyword.Comments)
        
        ' Iterate through the keyword's parameters.
        Dim enumConfigParameter As IEnumConfigurationParameter = configKeyword.ConfigurationParameters
        enumConfigParameter.Reset()
        Dim configParameter As IConfigurationParameter = enumConfigParameter.Next()
        While Not configParameter Is Nothing
            Console.WriteLine("Parameter: {0} ({1})", configParameter.Name, configParameter.ConfigurationString)
            configParameter = enumConfigParameter.Next()
        End While
        
        configKeyword = enumConfigKeyword.Next()
    End While
End Sub

public void DisplayConnectionInfo(IWorkspace workspace)
{
  IDatabaseConnectionInfo2 connectionInfo = (IDatabaseConnectionInfo2)workspace;
  Console.WriteLine("Server: {0}", connectionInfo.ConnectionDBMS);
  Console.WriteLine("User: {0}", connectionInfo.ConnectedUser);
  Console.WriteLine("Database: {0}", connectionInfo.ConnectedDatabase);
  Console.WriteLine("DBMS: {0}", connectionInfo.ConnectionDBMS);
  Console.WriteLine("Server Class: {0}", connectionInfo.GeodatabaseServerClass);
}

Public Sub DisplayConnectionInfo(ByVal workspace As IWorkspace)
    Dim connectionInfo As IDatabaseConnectionInfo2 = CType(workspace, IDatabaseConnectionInfo2)
    Console.WriteLine("Server: {0}", connectionInfo.ConnectionDBMS)
    Console.WriteLine("User: {0}", connectionInfo.ConnectedUser)
    Console.WriteLine("Database: {0}", connectionInfo.ConnectedDatabase)
    Console.WriteLine("DBMS: {0}", connectionInfo.ConnectionDBMS)
    Console.WriteLine("Server Class: {0}", connectionInfo.GeodatabaseServerClass)
End Sub