Rubrik: Datenbanken · ADO.NET Allgemein | VB-Versionen: VB2005, VB2008, VB2010 | 18.11.11 |
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: | Views: 13.118 |
www.tools4vb.de | System: WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
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