VB에서 로터스 노트에 액세스하는 방법 VB에서

Question

.net.에서 lotu notes의 논란보기의 내용에 액세스하고 싶습니다. 이것에 관해서 도와 줄 수 있습니다 .. 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" 
...