Application.DeleteFromDatabase method (Project) (Método Application.DeleteFromDatabase [Project])

Exclui um projeto armazenado em um banco de dados.

Sintaxe

expressão. DeleteFromDatabase( _Name_, _UserID_, _DatabasePassWord_, _FormatID_ )

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Name	Opcional	String	O nome do arquivo de origem ou da fonte de dados a ser aberto e o nome do projeto a ser excluído do banco de dados.
UserID	Opcional	String	Uma identificação de usuário a ser usada ao acessar o banco de dados.
DatabasePassWord	Opcional	String	Uma senha a ser usada ao acessar o banco de dados.
FormatID	Opcional	String	O formato de arquivo ou banco de dados. Se o Project reconhece o formato do arquivo especificado com o nome, FormatID será ignorada. Pode ser uma das seguintes seqüências de formato:

Sequência de formato	Descrição
"MSProject.mpd"	Banco de dados do Project
"MSProject.odbc"	Banco de dados ODBC
"MSProject.mdb"	Banco de dados do Microsoft Access

Valor de retorno

Boolean

Comentários

O argumento Nome tem de conter uma cadeia de nome de ficheiro ou um nome de origem de dados ODBC (DSN) e a cadeia de nome do projeto. A sintaxe de uma origem de dados é <DataSourceName>\ Projectname. Os símbolos menores (<) e superiores a (>) têm de ser incluídos e uma barra invertida ( \ ) tem de separar o nome da origem de dados do nome do projeto. O Próprio DataSourceName pode ser um dos nomes de origem de dados ODBC instalados no computador, um DSN de ficheiro ou um caminho e nome de ficheiro para uma base de dados baseada em ficheiros.

Nos exemplos seguintes, [Os Meus Documentos] é o caminho completo da pasta Os Meus Documentos e [Ficheiros do Programa] é o caminho completo da pasta Ficheiros do Programa:

"<Corporate SQL Database>\Factory Construction"

"< _[Os Meus Documentos]_ PROJECT1. MDB>\Plano de Implementação do Sistema"

"<[Programas] \Common Files\ODBC\Data Sources\Projects Database.dsn>\Project X"

Exemplo

O exemplo a seguir exclui projetos do banco de dados do Project, conforme especificado pelo usuário.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.