| Rubrik: Datenbanken · SQL-Server | VB-Versionen: VB6 | 27.07.10 |
 Größe einer SQL-Datenbank ermittelnDieses Beispiel zeigt, wie man mit VB6 die Datenbankgröße einer SQL-Server-Datenbank ermitteln kann. | ||
Autor:  Dieter Otter | Bewertung:   | Views: 10.457 |
| www.tools4vb.de | System: Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
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
