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:     [ Jetzt bewerten ]	Views:  2.394
www.tools4vb.de	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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")