Метод Application.DeleteFromDatabase (Project)
Удаляет проект, хранящийся в базе данных.
Синтаксис
выражение. 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 и обратная связь.