Größe einer SQL-Server Datenbank ermitteln

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

'''''' <summary>
    '''''' Gibt die Größe einer SQL-Server Datenbank zurück
    '''''' </summary>
    '''''' <param name="database">Name der Datenbank</param>
    '''''' <returns>size + MB</returns>
    '''''' <remarks></remarks>
    Function GetDatabaseSize(ByVal database As String) As String

        Using conn As New SqlConnection("connectionString")

            Dim sql As String = "USE " & database & "; exec sp_spaceused @updateusage=true"
            Dim cmd As New SqlCommand(sql, conn)
            Dim dA As New SqlDataAdapter(cmd)
            Dim sizeDataSet As New DataSet()

            Try
                conn.Open()
                dA.Fill(sizeDataSet, "SizeInfoTable")

                Return sizeDataSet.Tables("SizeInfoTable").Rows(0)("database_size").ToString()
                ''''Die Tabelle stellt noch weitere Spalten bereit.
                ''''Infos unter: http://msdn.microsoft.com/de-de/library/ms188776.aspx
            Catch
                Return "nicht erfasst"
            End Try

        End Using

    End Function