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
|