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:	Views:  13.970
www.tools4vb.de	System:  WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

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

Copyright ©2000-2024 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.