Application.DeleteFromDatabase 方法 (Project)

會刪除儲存在資料庫中的專案。

語法

expression。 DeleteFromDatabase( _Name_, _UserID_, _DatabasePassWord_, _FormatID_ )

expression 代表 Application 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Name	選用	String	要開啟之來源檔案或資料來源的名稱，以及要從資料庫中刪除之專案的名稱。
UserID	選用	String	存取資料庫時使用的使用者識別碼。
DatabasePassWord	選用	String	存取資料庫時使用的密碼。
FormatID	選用	String	資料庫或檔案格式。 如果 Project 會辨識的名稱以指定的檔案格式，則會忽略 FormatID。 可以是下列格式字串：

格式字串	描述
“MSProject.mpd”	Project 資料庫
「MSProject.odbc」	ODBC 資料庫
“MSProject.mdb”	Microsoft Access 資料庫

傳回值

布林值

註解

Name 引數必須包含檔案名稱字串，或 ODBC 資料來源名稱 (DSN) ，以及專案名稱字串。 資料來源的語法是 <DataSourceName>\ Projectname。 必須包含小於 (<) 和大於 () > 符號，且必須以反斜線 ( \ ) 將資料來源名稱與專案名稱分開。 DataSourceName 本身可以是安裝在電腦上的其中一個 ODBC 資料來源名稱、檔案 DSN，或是檔案型資料庫的路徑和檔案名稱。

在下列範例中，[My Documents] 是 [My Documents] 資料夾的完整路徑，而 [Program Files] 是 Program Files 資料夾的完整路徑：

"<Corporate SQL Database>\Factory Construction"

“< _[我的文件]_ PROJECT1。MDB>\System Roll-out Plan」

“<[Program Files] \Common Files\ODBC\Data Sources\Projects Database.dsn>\Project X”

範例

下列範例會根據使用者的指定，從 Project 資料庫中刪除專案。

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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。