Application.DeleteFromDatabase 方法 (Project)

删除保存在数据库中的项目。

语法

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

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
Name	可选	String	要打开的源文件或数据源的名称，以及要从数据库中删除的项目的名称。
UserID	可选	String	访问数据库时要使用的用户 ID。
DatabasePassWord	可选	String	访问数据库时要使用的密码。
FormatID	可选	String	文件或数据库格式。 如果项目识别用名称指定的文件格式，则 FormatID 将被忽略。 可以是下列格式字符串之一:

格式字符串	说明
“MSProject.mpd”	Project 数据库
“MSProject.odbc”	ODBC 数据库
“MSProject.mdb”	Microsoft Access 数据库

返回值

Boolean

说明

Name 参数必须包含文件名字符串或 ODBC 数据源名称 (DSN) 和项目名称字符串。 数据源的语法为 <DataSourceName>\ Projectname。 必须包含小于 (<) 且大于 (>) 符号，并且反斜杠 ( \ ) 必须将数据源名称与项目名称分开。 DataSourceName 本身可以是计算机上安装的 ODBC 数据源名称之一、文件 DSN 或基于文件的数据库的路径和文件名。

在以下示例中， [我的文档] 是“我的文档”文件夹的完整路径， [程序文件] 是 Program Files 文件夹的完整路径：

"<Corporate SQL Database>\Factory Construction"

“< _[我的文档]_ PROJECT1。MDB>\系统推出计划”

“<[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 支持和反馈，获取有关如何接收支持和提供反馈的指南。