Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Löscht ein Projekt, das in einer Datenbank gespeichert ist.
Syntax
Ausdruck. DeleteFromDatabase( _Name_, _UserID_, _DatabasePassWord_, _FormatID_ )
expression Eine Variable, die ein Application-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Name | Optional | String | Der Name der zu öffnenden Quelldatei oder Datenquelle sowie der Name des Projekts, das aus der Datenbank gelöscht werden soll. |
| UserID | Optional | String | Eine Benutzer-ID für den Zugriff auf die Datenbank. |
| DatabasePassWord | Optional | String | Ein Kennwort für den Zugriff auf die Datenbank. |
| FormatID | Optional | String | Das Datei- oder Datenbankformat. Wenn Project das Format der mit Name angegebenen Datei erkennt, wird FormatID ignoriert. Dies kann eine der folgenden Formatzeichenfolgen sein: |
| Formatzeichenfolge | Beschreibung |
|---|---|
| "MSProject.mpd" | Project-Datenbank |
| "MSProject.odbc" | ODBC-Datenbank |
| "MSProject.mdb" | Microsoft Access-Datenbank |
Rückgabewert
Boolean
Bemerkungen
Das Argument Name muss eine Dateinamenzeichenfolge oder einen ODBC-Datenquellennamen (DSN) und die Projektnamenzeichenfolge enthalten. Die Syntax für eine Datenquelle lautet <DataSourceName>\ Projektname. Die Symbole kleiner als (<) und größer als (>) müssen enthalten sein, und ein umgekehrter Schrägstrich ( \ ) muss den Datenquellennamen vom Projektnamen trennen. Der DataSourceName selbst kann entweder einer der auf dem Computer installierten ODBC-Datenquellennamen, ein Datei-DSN oder ein Pfad und Dateiname für eine dateibasierte Datenbank sein.
In den folgenden Beispielen ist [Eigene Dateien] der vollständige Pfad Ihres Ordners "Eigene Dateien", und [Programme] ist der vollständige Pfad Ihres Ordners "Programme":
"<Corporate SQL-Datenbank>\Factory Construction"
"< _[Meine Dokumente]_ PROJECT1. MDB>\Systemrollout-Plan"
"<[Programme] \Common Files\ODBC\Data Sources\Projects Database.dsn>\Project X"
Beispiel
Im folgenden Beispiel werden nach Benutzerangaben Projekte aus einer Project-Datenbank gelöscht.
Sub KillProjects()
Dim PathAndDB As String, ProjectName As String
Dim Continue As Long ' Used to store user response
Continue = vbYes ' Set to Yes so that loop runs
PathAndDB = InputBox$("Enter the path and file name of the Project" & _
" database to open, including extension: ")
Do Until Continue = vbNo
ProjectName = InputBox$("Enter the name of the project to delete: ")
DeleteFromDatabase "<" & PathAndDB & ">\" & ProjectName, _
FormatID:="MSProject.mpd"
Continue = MsgBox("Project " & ProjectName & " deleted from database." & _
vbCrLf & vbCrLf & "Delete another?", vbYesNo)
Loop
End Sub
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.