Application.DeleteFromDatabase method (Project)
Deletes a project stored in a database.
Syntax
expression. DeleteFromDatabase( _Name_, _UserID_, _DatabasePassWord_, _FormatID_ )
expression A variable that represents an Application object.
Parameters
| Name | Required/Optional | Data type | Description |
|---|---|---|---|
| Name | Optional | String | The name of the source file or data source to open, and the name of the project to delete from the database. |
| UserID | Optional | String | A user ID to use when accessing the database. |
| DatabasePassWord | Optional | String | A password to use when accessing the database. |
| FormatID | Optional | String | The file or database format. If Project recognizes the format of the file specified with Name, FormatID is ignored. Can be one of the following format strings: |
| Format String | Description |
|---|---|
| "MSProject.mpd" | Project database |
| "MSProject.odbc" | ODBC database |
| "MSProject.mdb" | Microsoft Access database |
Return value
Boolean
Remarks
The Name argument must contain a file name string, or an ODBC data source name (DSN), and the project name string. The syntax for a data source is < DataSourceName >\ Projectname. The less than (<) and greater than (>) symbols must be included, and a backslash ( \ ) must separate the data source name from the project name. The DataSourceName itself can either be one of the ODBC data source names installed on the computer, a file DSN, or a path and file name for a file-based database.
In the following examples, [My Documents] is the full path of your My Documents folder, and [Program Files] is the full path of your Program Files folder:
"<Corporate SQL Database>\Factory Construction"
"< _[My Documents]_ PROJECT1.MDB>\System Roll-out Plan"
"< [Program Files] \Common Files\ODBC\Data Sources\Projects Database.dsn>\Project X"
Example
The following example deletes projects from a Project database, as specified by the user.
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 and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.