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 deve conter uma cadeia de caracteres de nome de arquivo ou um DSN (nome de fonte de dados ODBC) e a cadeia de caracteres nome do projeto. A sintaxe de uma fonte de dados é <DataSourceName>\ Projectname. Os símbolos inferiores (<) e maiores que (>) devem ser incluídos e um backslash ( \ ) deve separar o nome da fonte de dados do nome do projeto. O DataSourceName em si pode ser um dos nomes de fonte de dados ODBC instalados no computador, um DSN de arquivo ou um caminho e um nome de arquivo para um banco de dados baseado em arquivo.

Nos exemplos a seguir, [Meus Documentos] é o caminho completo da pasta Meus Documentos e [Arquivos de Programa] é o caminho completo da pasta Arquivos de Programa:

"<Corporate SQL Database>\Factory Construction"

"< _[Meus Documentos]_ PROJECT1. Plano de implantação do MDB>\System"

"<[Arquivos do Programa] \Arquivos Comuns\ODBC\Fontes de Dados\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.