Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

question on VB & Lotus notes.

Posted on 2001-07-18
3
Medium Priority
?
237 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 1000 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

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
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…
Suggested Courses
Course of the Month15 days, 7 hours left to enroll

575 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