Método Application.DeleteFromDatabase (Project)
Elimina un proyecto almacenado en una base de datos.
Sintaxis
expresión. DeleteFromDatabase( _Name_, _UserID_, _DatabasePassWord_, _FormatID_ )
expresión Variable que representa un objeto Application.
Parámetros
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Name | Opcional | String | Nombre del archivo de origen o del origen de datos que se va a abrir y el nombre del proyecto que se va a eliminar de la base de datos. |
| UserID | Opcional | String | Identificador de usuario que se va a usar cuando se obtenga acceso a la base de datos. |
| DatabasePassWord | Opcional | String | Contraseña que se va a usar cuando se obtenga acceso a la base de datos. |
| FormatID | Opcional | String | El formato de archivo o base de datos. Si Project reconoce el formato del archivo especificado por Name, se omitirá FormatID. Puede ser una de las siguientes cadenas de formato: |
| Cadena de formato | Descripción |
|---|---|
| "MSProject.mpd" | Base de datos de Project |
| "MSProject.odbc" | Base de datos ODBC |
| "MSProject.mdb" | Base de datos de Microsoft Access |
Valor devuelto
Boolean
Comentarios
El argumento Name debe contener una cadena de nombre de archivo o un nombre de origen de datos ODBC (DSN) y la cadena de nombre del proyecto. La sintaxis de un origen de datos es <DataSourceName>\ Projectname. Se deben incluir los símbolos menor que (<) y mayor que (>) y una barra diagonal inversa ( \ ) debe separar el nombre del origen de datos del nombre del proyecto. El propio DataSourceName puede ser uno de los nombres de origen de datos ODBC instalados en el equipo, un DSN de archivo o una ruta de acceso y un nombre de archivo para una base de datos basada en archivos.
En los ejemplos siguientes, [Mis documentos] es la ruta de acceso completa de la carpeta Mis documentos y [Archivos de programa] es la ruta de acceso completa de la carpeta Archivos de programa:
"<Corporate SQL Database>\Factory Construction"
"< _[Mis documentos]_ PROJECT1. MDB>\System Roll-out Plan"
"<[Archivos de programa] \Common Files\ODBC\Data Sources\Projects Database.dsn>\Project X"
Ejemplo:
En el ejemplo siguiente se eliminan los proyectos de una base de datos de Project, según las especificaciones del usuario.
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
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.