Метод Application.DeleteFromDatabase (Project)

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

Синтаксис

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

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

Параметры

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

Форматирование строки	Описание
"MSProject.mpd"	база данных Project;
"MSProject.odbc"	база данных ODBC
"MSProject.mdb"	База данных Microsoft Access

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

Boolean

Примечания

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

В приведенных ниже примерах [Мои документы] — это полный путь к папке "Мои документы", а [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 и обратная связь.