Prüfen, ob eine bestimmte Datenbank im SQL-Server existiert Eine Funktion, die prüft, ob eine bestimmte Datenbank im Microsoft SQL-Server existiert.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  13.798
www.tools4vb.de	System:  WinXP, Vista, Win7, Win8, Win10	kein Beispielprojekt

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Will man prüfen, ob eine bestimmte Datenbank in einer Microsoft SQL-Server Umgebung existiert, lässt sich das sehr einfach mittles einer T-SQL Syntax erledigen. Hierzu setzen wir einfach eine SELECT-Anweisung auf die System-Tabelle der Datenbanken (sys.databases) ab und übergeben dem SQL-Statement in der WHERE-Bedingung den gesuchten Datenbanknamen.

' Prüft, ob die angeforderte Datenbank existiert
Public Function dbDatabaseExists(ByRef oConn As ADODB.Connection, ByVal sDBName As String) As Boolean
  Dim oRs As ADODB.Recordset
  Dim sSQL As String
 
  On Error Resume Next  
 
  ' SQL-Statement zur Prüfung der Datenbank-Existenz
  sSQL = "SELECT database_id FROM sys.databases WHERE [name] LIKE '" & sDBName & "'"
 
  Set oRs = oConn.Execute(sSQL)
  If Not oRs.EOF And Not oRs.BOF Then
    dbDatabaseExists = (NZ(oRs(0), 0) > 0)
  End If
  oRs.Close
  Set oRs = Nothing
  On Error GoTo 0
End Function

' Hilfsfunktion
Public Function NZ(ByVal Value As Variant, _
  ByVal DefaultValue As Variant) As Variant
 
  If IsNull(Value) Then
    NZ = DefaultValue
  Else	
    NZ = Value
  End If
End Function