Метод Application.DeleteFromDatabase (Project)

Статья
04/07/2023

Удаляет проект, хранящийся в базе данных.

Синтаксис

выражение. DeleteFromDatabase( _Name_, _UserID_, _DatabasePassWord_, _FormatID_ )

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Name	Необязательно заполнять.	String	Имя исходного файла или источника данных, который нужно открыть, и имя проекта, удаляемого из базы данных.
UserID	Необязательный	String	Идентификатор пользователя, используемый при доступе к базе данных.
DatabasePassWord	Необязательный	String	Пароль, используемый при доступе к базе данных.
FormatID	Необязательный	String	Формат файла или базы данных. Если Project распознает формат файла, указанный с именем, FormatID игнорируется. Может быть одной из следующих строк формата:

Строка форматирования	Description
"MSProject.mpd"	база данных Project;
"MSProject.odbc"	база данных ODBC
"MSProject.mdb"	База данных Microsoft Access

Возвращаемое значение

Boolean

Примечания

Аргумент Name должен содержать строку имени файла или имя источника данных ODBC (DSN) и строку имени проекта. Для источника данных используется < синтаксис DataSourceName>\Projectname. Необходимо включить символы меньше (<) и больше (>), а обратная косая черта ( \ ) должна отделять имя источника данных от имени проекта. DataSourceName может быть одним из имен источников данных ODBC, установленных на компьютере, именем DSN файла или путем и именем файла для базы данных на основе файлов.

В следующих примерах [Мои документы] — это полный путь к папке "Мои документы", а [Program Files] — полный путь к папке Program Files:

"<Корпоративная База данных SQL>\Фабрика строительства"

"< _[Мои документы]_ 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 и обратная связь.