cm3
July 18th, 2001, 02:23 PM
Hi All,
I am working on vB,Lotus notes.Here is the code i used to get the connection,get view information.
Private Sub cmdNewok_Click()
Dim session As Object
Dim db As Object
Dim view 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 need to map the view documents data into MS-Access table.I crated same like view table fields in Access table.The main purpose of the code is to get the Lotus notes view data into Access table.
Set view = Nothing
Set db = Nothing
Set session = Nothing
I am working on vB,Lotus notes.Here is the code i used to get the connection,get view information.
Private Sub cmdNewok_Click()
Dim session As Object
Dim db As Object
Dim view 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 need to map the view documents data into MS-Access table.I crated same like view table fields in Access table.The main purpose of the code is to get the Lotus notes view data into Access table.
Set view = Nothing
Set db = Nothing
Set session = Nothing