C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

DBからデータを取得し、代入

[トピック内 1 記事 (1 - 1 表示)]  << 0 >>

■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

引用返信 編集キー/

このトピックをツリーで一括表示


トピック内ページ移動 / << 0 >>

このトピックに書きこむ