Méthode Application.DeleteFromDatabase (Project)

Article
04/07/2023

Supprime un projet stocké dans une base de données.

Syntaxe

expression. DeleteFromDatabase( _Name_, _UserID_, _DatabasePassWord_, _FormatID_ )

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Name	Facultatif	String	Nom du fichier source ou de la source de données à ouvrir, et nom du projet à supprimer de la base de données.
UserID	Facultatif	String	Numéro d'identification utilisateur requis pour accéder à la base de données.
DatabasePassWord	Facultatif	String	Mot de passe requis pour accéder à la base de données.
FormatID	Facultatif	String	Fichier ou format de la base de données. Si Project reconnaît le format du fichier spécifié avec Name, FormatID est ignoré. Il peut s'agir de l'une des chaînes de format suivantes :

Chaîne de format	Description
« MSProject.mpd »	Base de données Project
« MSProject.odbc »	Base de données ODBC
« MSProject.mdb »	Base de données Microsoft Access

Valeur renvoyée

Boolean

Remarques

L’argument Name doit contenir une chaîne de nom de fichier ou un nom de source de données ODBC (DSN) et la chaîne de nom de projet. La syntaxe d’une source de données est <DataSourceName>\ Projectname. Les symboles inférieurs à (<) et supérieur à (>) doivent être inclus, et une barre oblique inverse ( \ ) doit séparer le nom de la source de données du nom du projet. DataSourceName lui-même peut être l’un des noms de source de données ODBC installés sur l’ordinateur, un DSN de fichier ou un chemin d’accès et un nom de fichier pour une base de données basée sur un fichier.

Dans les exemples suivants, [Mes documents] est le chemin d’accès complet de votre dossier Mes documents, et [Program Files] est le chemin complet de votre dossier Program Files :

« <Corporate SQL Database>\Factory Construction »

«< _[Mes documents]_ PROJECT1. MDB>\Plan de déploiement du système »

« <[Program Files] \Common Files\ODBC\Data Sources\Projects Database.dsn>\Project X »

Exemple

L'exemple suivant montre comment supprimer des projets d'une base de données Project, comme indiqué par l'utilisateur.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via