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

Nachfolgender Tipp zeigt, wie man eine bestehende Datenbank samt der dazugehörigen 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.

' Datenbank und dazugehörige Tabelle aus MS SQL-Server Datenbank löschen
Public Function SQLServer_DeleteDatabase(ByVal sServer As String, _
  ByVal sUser As String, ByVal sPassword As String, _
  ByVal sDatabase 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
 
    ' Datenbank löschen
    .Databases(sDatabase).Remove
  End With
  On Error GoTo 0
  SQLServer_DeleteDatabase = 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
 
' Datenbank "dbTest" einschl. aller dazugehöriger Tabellen löschen
bResult = SQLServer_DeleteDatabase(sServer, sUser, sPassword, "dbTest")

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.