Tabelle aus SQL-Server Datenbank löschen Dieser Code zeigt, wie man eine bestimmte Tabelle aus einer MS SQL-Server Datenbank löscht.
Autor:   Dieter Otter	Bewertung:	Views:  11.740
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Nachfolgender Tipp zeigt, wie man eine bestehende Tabelle aus einer MS SQL-Server Datenbank löscht.
Der Zugriff auf den MS SQL-Server erfolgt hierbei über die "Microsoft SQLDMO Object Library", die über "Projekt - Verweise" aktiviert werden muss.

' Tabelle aus MS SQL-Server Datenbank löschen
Public Function SQLServer_DeleteTableFromDatabase(ByVal sServer As String, _
  ByVal sUser As String, ByVal sPassword As String, _
  ByVal sDatabase As String, ByVal sTable As String) As Boolean
 
  ' SQL-Server Objekt
  Dim oSQLServer As SQLDMO.SQLServer
 
  ' Fehlerbehandlung aktivieren
  On Error GoTo ErrHandler
 
  ' SQL-Server Objekt erstellen
  Set oSQLServer = New SQLDMO.SQLServer
 
  With oSQLServer
    ' Verbindung herstellen
    .Connect sServer, sUser, sPassword
 
    ' Tabelle löschen
    .Databases(sDatabase).Tables(sTable).Remove
  End With
  On Error GoTo 0
  SQLServer_DeleteTableFromDatabase = True
  Exit Function
 
ErrHandler:
  MsgBox CStr(Err.Number) & " " & Err.Description
End Function

Aufrufbeispiel:

' Server + Anmeldedaten
Dim sServer As String
Dim sUser As String
Dim sPassword As String
 
sServer = "localhost"
sUser = "sa"
sPassword = "geheim"
 
Dim bResult As Boolean
 
' Tabelle "tblTest" der Datenbank "dbTest" löschen
bResult = SQLServer_DeleteTableFromDatabase(sServer, sUser, sPassword, "dbTest", "tblTest")

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.