Tabellen-Existenz prüfen (SQL-Server) Eine Funktion, die prüft, ob eine bestimmte Tabelle innerhalb einer SQL Datenbank vorhanden ist.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  13.117
www.tools4vb.de	System:  WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit nachfolgender Funktion lässt sich prüfen, ob eine bestimmte Tabelle in einer SQL Server Datenbank vorhanden ist oder nicht.

Die Funktion erwartet hierbei als Übergabeparameter ein geöffnetes DB-Verbindungs-Objekt (SQLConnection), sowie den zu prüfenden Tabellennamen.

''' <summary>
''' Prüft, ob die angegebene Tabelle in der Datenbank existiert
''' </summary>
''' <param name="Conn">geöffnetes SQLConnection-Objekt</param>
''' <param name="TableName">Name der Tabelle</param>
''' <returns>True, wenn die Tabelle existiert. Andernfalls False.</returns>
Public Function dbTableExists(ByVal Conn As SqlConnection, _
  ByVal TableName As String) As Boolean
 
  ' SQL-Abfragestring zusammenstellen
  Dim cmd As New SqlCommand( _
    "SELECT OBJECT_ID(@TableName)", Conn)
  cmd.Parameters.AddWithValue("@TableName", TableName)
 
  ' SQL-Abfragestring ausführen
  Dim Result As Object = cmd.ExecuteScalar()
  If Result IsNot Nothing AndAlso Result IsNot DBNull.Value Then
    ' Ergebnis auswerten
    Return (Convert.ToInt32(Result) > 0)
  Else
    Return False
  End If
End Function