Größe einer SQL-Datenbank ermitteln Dieses Beispiel zeigt, wie man mit VB6 die Datenbankgröße einer SQL-Server-Datenbank ermitteln kann.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  9.795
www.tools4vb.de	System:  Win2k, WinXP, Vista, Win7, Win8, Win10	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 2 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit dieser kleinen Funktion ermitteln Sie schnell die Größe einer SQL-Datenbank. Die Angabe wird hierbei als String zurückgegeben (z.B. 188,19 MB).

Hinweis: Die Funktion erwartet als Übergabeparamater ein geöffnetes Connection-Objekt zum SQL-Server. Optional kann im zweiten Parameter die Datenbank angegeben werden, deren Größe ermittelt werden soll. Wird der 2. Parmaeter nicht angegegeben, wird die Größe der gerade aktiven Datenbank zurückgegeben.

' Gibt die Größe einer SQL-Server Datenbank zurück
Public Function SQL_DBSize(ByRef oConn As ADODB.Connection, _
  Optional ByVal sDBName As String = "") As String
 
  Dim sSQL As String
  Dim oRs As ADODB.Recordset
  Dim sSize As String
 
  sSQL = "exec sp_spaceused"
 
  If Len(sDBName) = 0 Then
    ' aktuelle Datenbank
    sSize = oConn.Execute(sSQL, , adCmdText)(1)
  Else
    ' aktuelle Datenbank merken
    Dim sDBCurrent As String
    sDBCurrent = oConn.Execute(sSQL, , adCmdText)(0)
 
    ' Datenbank wechseln
    oConn.Execute "USE " & sDBName
 
    ' Größe ermitteln
    sSize = oConn.Execute(sSQL, , adCmdText)(1)
 
    ' ursprüngliche Datenbank wieder verwenden
    If Len(sDBCurrent) > 0 Then oConn.Execute "USE " & sDBCurrent
  End If
 
  SQL_DBSize = sSize
End Function