vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Datenbanken · ADO.NET Allgemein   |   VB-Versionen: VB2005, VB200820.07.09
Größe einer SQL-Server Datenbank ermitteln

Dieses Beispiel zeigt, wie man die Datenbankgröße einer SQL-Server-Datenbank ermitteln kann.

Autor:   Christoph TillmannBewertung:  Views:  10.180 
christophsblog.spaces.live.comSystem:  Win2k, WinXP, Vista, Win7, Win8, Win10kein Beispielprojekt 

Bei Datenbankanwendungen sollte man stets die Datenbankgröße im Auge haben. Das gilt besonders für Nutzer der SQL-Server Express Versionen, da diese auf 4GB beschränkt sind. Mit diesem Beispiel möchte ich zeigen, wie die Datenbankgröße einer SQL-Server Datenbank ermittelt werden kann.

Viel Spass bei der kreativen Weiterverwendung.

''' <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



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2019 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.