question on VB & Lotus notes.

Hi all,

I am working on VB, Lotus notes.I used the below code to get the data from LN to MS-Access through VB code.Below is my code.

Private Sub cmdNewok_Click()
  Dim session As Object
  Dim db As Object
  Dim view As Object
  Dim viewName As Object
  Dim flag As Boolean
  Dim intEntry As Integer
  Dim viewEntry As Object
  Set session = CreateObject("notes.notessession")
  Set db = session.GETDATABASE("US-FAIRAPP001/Eastern/C&L/US", "MCS\WCP\contracts\contract.nsf")
  flag = True
  If Not (db.ISOPEN) Then flag = db.Open("", "")
  If Not flag Then
      MsgBox "Cant't open file: " & db.SERVER & " " & db.FILEPATH
  End If
    Set view = db.GETVIEW("Central Audit DB Lookup)")
' Here i am getting error,object does not support.
'Here i want to map LN view data to MS-Access table.
   For intEntry = 1 To view.AllEntries.Count
       Set viewEntry = view.AllEntries.GetNthEntry(intEntry)
       MsgBox Join(viewEntry.COLUMNVALUES, ",")

End Sub

'I hope Timcottee will answer my question.
Who is Participating?
TimCotteeConnect With a Mentor Commented:
bmg3, I just tried this on my own server with a view and it works fine. What is the exact error message that you are getting? The only thing that looks odd is the extra ) in the view name, should this be "Central Audit DB Lookup" not "Central Audit DB Lookup)" ?
bmg3Author Commented:
Hi TimCottee,

The view name is correct.i.e."Central Audit DB Lookup)".The lotus notes developer did type mismatch.Any way i am getting the view name,Lastmodified,CREATED.From here i want to map the fields.I am not getting how view can access record by record and map it to Access fileds.I used the below logic i am getting error like "Object does not supprot this property or method.

  For intEntry = 1 To view.AllEntries.Count
      Set viewEntry = view.AllEntries.GetNthEntry(intEntry)
      MsgBox Join(viewEntry.COLUMNVALUES, ",")

I hope u understand my problem.



bmg, I am afraid that I don't completely understand the problem. I wondered whether the view had any twisties or similar in it but testing a view with a twisty doesn't seem to give me any problems. Is there any possibility that you could send me the nsf file so that I can try out it out here and see if there is anything that is unexpected occuring. My address is in my profile, just click on my name and you will get there.

In Terms of saving this stuff to access then it should be pretty easy. You would just need to build an insert statement using:

strSQL = "INSERT INTO MyTable VALUES(" & Join(viewEntry.COLUMNVALUES, ",") & ")"

To directly insert the values from the notes view to access.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.