Проверка правильности выделения структур дискового пространства объектам базы данных
Dim strCol As StringCollection
        Dim db As Database
        db = myServer.Databases(«AdventureWorks»)
        strCol = db.CheckAllocationsDataOnly()
        For c As Integer = 0 To (strCol.Count — 1)
            If strCol(c).Length > 0 Then
                Console.WriteLine(strCol(c))
            End If
        Next