次の方法で共有


Application.DeleteFromDatabase メソッド (Project)

データベースに保存されているプロジェクトを削除します。

構文

DeleteFromDatabase( _Name_, _UserID_, _DatabasePassWord_, _FormatID_ )

expressionApplication オブジェクトを 表す変数。

パラメーター

名前 必須 / オプション データ型 説明
名前 省略可能 String 開くソース ファイルまたはデータ ソースの名前、およびデータベースから削除するプロジェクトの名前を指定します。
UserID 省略可能 String データベースにアクセスするときに使用するユーザー ID を指定します。
DatabasePassWord 省略可能 String データベースにアクセスするときに使用するパスワードを指定します。
FormatID 省略可能 String ファイルまたはデータベース形式です。 プロジェクトには、Name で指定したファイルの形式が認識している場合は、FormatID が無視されます。 次の書式指定文字列のいずれかできます。
文字列 説明
"MSProject.mpd" Project データベース
"MSProject.odbc" ODBC データベース
"MSProject.mdb" Microsoft Access データベース

戻り値

ブール型 (Boolean)

注釈

Name 引数には、ファイル名文字列、または ODBC データ ソース名 (DSN) とプロジェクト名文字列を含む必要があります。 データ ソースの構文は <DataSourceName>\ Projectname です。 より小さい (<) シンボルとより大きい (>) 記号を含める必要があり、円記号 ( \ ) は、データ ソース名とプロジェクト名を分離する必要があります。 DataSourceName 自体には、コンピューターにインストールされている ODBC データ ソース名の 1 つ、ファイル DSN、またはファイル ベースデータベースのパスとファイル名のいずれかを指定できます。

次の例では、[ マイ ドキュメント] はマイ ドキュメント フォルダーの完全パスであり、[ プログラム ファイル] は Program Files フォルダーの完全なパスです。

"<Corporate SQL Database>\Factory Construction"

"< _[My Documents]_ 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 のサポートおよびフィードバックを参照してください。