| ■86050 / inTopicNo.1) |
DBからデータを取得し、代入 |
□投稿者/ CanZ (1回)-(2017/12/14(Thu) 17:15:18)
|
分類:[Microsoft Office 全般]
使用言語 VBA (Project2010)
OS:Windows10 64bit
ダメな質問で恐れ入ります。
下記のようなサンプルコードがあります。
フィールド名はSQL Serverの特定のテーブルからの情報を取り込みたいのですが、
("Domain-001\spsvc") にはDBのテーブル名迄を記述すればいいのでしょうか？
Windowsユーザーアカウントをキーに突き合わせて、どうやって値を代入するのか悩んでいます。
If LCase(WindowsAccount) = LCase("Domain-001\spsvc") Then
Rem --------リソースの編集--------
'フィールド名の指定
F_WindowsAccount = "Windows ユーザー アカウント"
F_Mail = "Email"
F_Name = "氏名"
F_Division = "部署"
'リソースを書き込みモードでオープン（サンプルとして1つ目のリソースだけを処理）
EnterpriseResourcesOpen IDs(1), pjReadWrite
'リソースの属性変更
For Each Resource In ActiveProject.Resources
'リソースのWindowsアカウントを取得
WindowsAccount = Resource.GetField(FieldNameToFieldConstant(F_WindowsAccount, pjResource))
'Windowsアカウントに応じた値を別途DB等からセット
If LCase(WindowsAccount) = LCase("Domain-001\spsvc") Then
Resource.SetField FieldNameToFieldConstant(F_Mail, pjResource), "spsvcAAA@domain-001.com"
Resource.SetField FieldNameToFieldConstant(F_Name, pjResource), "SPSVC"
Resource.SetField FieldNameToFieldConstant(F_Division, pjResource), "営業部"
End If
Next
'リソースの変更を保存してクローズ
DisplayAlerts = False
FileCloseEx
DisplayAlerts = True
End Sub
https://msdn.microsoft.com/ja-jp/VBA/Project-VBA/articles/application-fieldnametofieldconstant-method-project
|
|