Application.DeleteFromDatabase method (Project)

Artikel
04/07/2023

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.

Freigeben über