VBで蓮のノートにアクセスする方法VBで

Question

ネットでロタウノートの豪華なビューのコンテンツにアクセスしたいのですが、これについていくつかお手伝いできます。私はinterop.dominoを使っています。 dll。

Dim s As New Domino.NotesSession 
Dim txt As String 
Dim key() As String = {"abcd", "abcd"} 
s.Initialize("") 
Dim ldb As New NotesDatabase 
ldb = s.GetDatabase("", "", False) 
Dim vw As NotesView 
vw = ldb.GetView("Project Module Wise Configurable Item") 
vw.Refresh() 
Dim entry As NotesViewEntry 
Dim vc As NotesViewEntryCollection 

vc = vw.GetAllEntriesByKey(key, False) 
entry = vc.GetFirstEntry 
While Not (entry Is Nothing) 
    txt = CStr(entry.Item) 
    entry = vc.GetNextEntry(entry) 
    ListBox1.Items.Add(txt) 
End While 

Answer 1

試み：オブジェクトの配列としてのキーを宣言：私のために働いた何

Dim s As New Domino.NotesSession 
    s.Initialize("") 

    Dim ldb As New NotesDatabase 
    ldb = s.GetDatabase("", "", False) 

    Dim vw As NotesView 
    vw = ldb.GetView("Project Module Wise Configurable Item") 
    vw.Refresh() 

    Dim txt As String 

    Dim entry As NotesViewEntry 
    Dim vc As NotesViewEntryCollection 

    'declare the array 
' ---- edited ----- 
    Dim key(1) As variant 
'----edited --- 
    key(0) = "abcd" 
    key(1) = "abcd" 

    'be carefull with the second parameter 'false' 
    vc = vw.GetAllEntriesByKey(key, False) 
    entry = vc.GetFirstEntry 
    While Not (entry Is Nothing) 
     txt = CStr(entry.Item) 
     entry = vc.GetNextEntry(entry) 
     ListBox1.Items.Add(txt) 
    End While 

Answer 2

。

Dim keys(0 To 1) As Object 
keys(0) = "asdf" 
keys(1) = "sgdk" 
...