how to access lotus notes view contents in .net using VB

Question

I want to access contents of a catagorized view of lotu notes in .net.... can some one help me regarding this.. I am using 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

It helps if you clean up the code (that is done now) and ask a specific question — Jasper Duizendstra, Dec 13 '11 at 07:54
@duizendstra Thanks for cleaning the code......it gives error on line vc = vw.GetAllEntriesByKey(key, False) it do no fetch the data...is my code correct??? — Deepak Saini, Dec 13 '11 at 09:31
The view is probably there, otherwise vw.Refresh() would throw an error. My guess is that the key is not correct — Jasper Duizendstra, Dec 13 '11 at 10:25

score 0 · Answer 1 · answered Jan 19 '16 at 11:32

0

What worked for me: Declaring key as array of object.

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

answered Jan 19 '16 at 11:32

Wolfgang Herder

1
1

Jasper Duizendstra · Answer 2 · 2011-12-15T07:56:52.610

0

try:

    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

edited Dec 15 '11 at 07:56

answered Dec 13 '11 at 10:28

Jasper Duizendstra

2,587
1
21
32

Bad variable type. (Exception from HRESULT: 0x80020008 (DISP_E_BADVARTYPE)) at the same line "vc = vw.GetAllEntriesByKey(key, False)" – Deepak Saini Dec 14 '11 at 11:39
From the help: "If this method is used under COM, with a keyArray parameter of an array, it must be defined as an array of type Variant." – Jasper Duizendstra Dec 15 '11 at 07:56

how to access lotus notes view contents in .net using VB

2 Answers2