Lotus Notes Question

I have the following code that  populates a list box with the views in a lotus notes database:

  Dim session As Object
    Dim db As Object
    Dim doc As Object
    Dim View As Variant
    Dim field As Variant
   
    Dim DbName As String
    Dim server As String
     
   
    DbName = "Databases/FROPS.NSF"
    server = "NotesSRVHQ2/Midas_International"

    Set session = CreateObject("Notes.NotesSession")
   
    'Open the database
    Set db = session.GETDATABASE(server, DbName)
   
         
        If db.IsOpen = True Then
            For Each View In db.VIEWS
               List1.AddItem View.Name
            Next View
                     
        Else
            MsgBox "Database Not open"
        End If


     
     

      Set db = Nothing
      Set session = Nothing
     


End Sub

my question is...

if i select a view from the list box I would like to display the view data but I'm not sure how to go about creating a recordset to get the data from the lotus notes view.  

Can someone please help?
johnnyg123Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

rockiroadsCommented:
Is there a ODBC driver that connects to Lotus Notes?
If so then u make use of that

for example, u can use ADO to open a connection using the DSN u create then create recordsets from this connection



0
johnnyg123Author Commented:
thanks for the post.....

i should have mentioned that for some reason the notes odbc driver will not allow me to view the data.  I think because it is getting confused because there is multiple objects in lotus notes with the same name.

unfortunately, all our lotus notes developers are gone so trying to figure this out has been a bit of a challenge
0
Determine the Perfect Price for Your IT Services

Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden with our free interactive tool and use it to determine the right price for your IT services. Download your free eBook now!

rockiroadsCommented:
ok, bear in mind I know jack about Lotus notes having not used or seen it before, and cos of that I cannot even verify my own code here
Im hoping something along these lines would do it for u


Public Sub MyFirstAttemptAtUsingLotusNotesSoBearWithMe()

    Dim adoConn As New ADODB.Connection
    Dim adoRS As ADODB.Recordset
   
   
    On Error Resume Next
   
    adoConn.Open "Driver={Lotus NotesSQL 3.01 (32-bit) ODBC DRIVER (*.nsf)};" & _
                 "Server=myServerName;" & _
                 "Database=mydir\myDbName.nsf;" & _
                 "Uid=myUsername;" & _
                 "Pwd=myPassword"
    If Err.Number <> 0 Then
        MsgBox "Bugger, I cant connect." & vbCrLf & Err.Description
        Set adoConn = Nothing
    End If

    Set adoRS = New ADODB.Recordset
   
    adoRS.ActiveConnection = adoConn
    adoRS.CursorType = adOpenKeyset
    adoRS.LockType = adLockPessimistic
    adoRS.CursorLocation = adUseClient
   
    adoRS.Open "SELECT * FROM MyLotusNotesTable"
    Do While adoRS.EOF = False
        Debug.Print adoRS.Fields(0).name, adoRS.Fields(0).Value
        adoRS.MoveNext
    Loop
    adoRS.Close
    adoConn.Close
    Set adoRS = Nothing
    Set adoConn = Nothing
end sub
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
rockiroadsCommented:
Have u got the right drivers installed?
0
johnnyg123Author Commented:
I'm getting the dreaded

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified


Where is the driver name coming from?


I looked at odbcinst.ini and saw

Lotus NotesSQL Driver (*.nsf) (32 bit)

so I tried it but same thing
0
rockiroadsCommented:
Well it was just an example, u may need to change to what u have
then specify your database, it looks like it ends with nsf?
and userid/pswd


But It seems u have somethng installed already.
Have u checked the IBM website? its got some sample kit which includes the driver

0
johnnyg123Author Commented:
well....I tried changing the format so it uses dsn instead of driver

guess the odbc gods are smiling


I can't use the latest odbc driver because we have a very old version of the lotus notes clients

The version of the odbc driver that will work apparently doesn't support using an ado connection


I get the dreaded

[Lotus][ODBC Lotus Notes]Driver not capable


I did some searching and it means the odbc driver is too old


ughhhhhhhhhhhh!
0
rockiroadsCommented:
bugger, sorry. I would of liked to know whether my code worked or not.

I wonder if DAO would work with it

Do u have any documentation to see what is supported?
0
johnnyg123Author Commented:
tried dao as well

still no dice

apparently.....need to use the domino com object model.

The only examples I can find have to do with how to use it involve being able to send an email.

I'm in the same boat as you in that I know diddley about notes.  We haven't been paying for support in years so
no chance of getting IBM to help.
0
johnnyg123Author Commented:
Thanks for the posts rockiroads!


I'm thinking maybe I should post in the Lotus Notes/Domino topic area
0
rockiroadsCommented:
Hi, just back from the pub :)

Im not familiar with the Domino object model.

If u have problems and get no joy in the other arena, perhaps u may need to hire a consultant for a few days, hopefully get u on track so u can continue. Im afraid Im out of ideas here, sorry pal.
0
rockiroadsCommented:
But I thank you for the pts/grade and wish u the best of luck :)
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.