Microsoft Access Programmierrezepte

R7.26 Eine Tabelle mit SQL/DMO löschen

Aufgabe

Sie möchten eine Tabelle auf dem SQL Server löschen.

Lösung (SQL)

Sub Tabelle_mit_SQL_löschen()
Dim conn As New ADODB.Connection

  conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;DATA SOURCE =.\SQLEXPRESS;catalog=FinanzDB"
  conn.Execute "DROP TABLE umsaetze2010"
  conn.Close
End Sub

Lösung (SQLDMO)

Sub Tabelle_mit_DMO_löschen
Dim serv As New SQLDMO.SQLServer
Dim db As New SQLDMO.Database

    serv.LoginSecure = True
    serv.LoginTimeout = 3
    serv.Connect ".\SQLEXPRESS"
    Set db = serv.Databases.Item("FinanzDB")
    db.Tables.Remove "umsaetze2006"
    serv.Disconnect
End Sub

Hinweis

Achten Sie auf entsprechende Fehlerbehandlungen. Spätestens wenn Sie obige Prozeduren zweimal aufrufen, werden Sie einen Fehler auslösen!