Solved

question on VB & Lotus notes.

Posted on 2001-07-18
3
223 Views
Last Modified: 2007-12-19
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, ",")
   Next

End Sub

'I hope Timcottee will answer my question.
0
Comment
Question by:bmg3
  • 2
3 Comments
 
LVL 43

Accepted Solution

by:
TimCottee earned 250 total points
ID: 6297591
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)" ?
0
 

Author Comment

by:bmg3
ID: 6298236
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, ",")
  Next

I hope u understand my problem.

Thanks...

bmg

0
 
LVL 43

Expert Comment

by:TimCottee
ID: 6298505
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.
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

757 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now