Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

ISAM error in VBA module linking to LN database

Status
Not open for further replies.

PRMiller2

Technical User
Jul 30, 2010
123
Hi all,

I posted this problem over in the Access Modules forum ( but Remou recommended I post here. I've also posted over at Hoping one of you can help me out!

I am using VBA in Access 2003 to create a DSN-less connection to one of the databases on our Domino server. I have no issues connecting WITH a DSN, but connection WITHOUT a DSN is proving problematic.

The primary purpose of the sub here is to eliminate the password prompt that appears when I run a query utilizing links created with the DSN.

Here's the sub:

Code:
Sub OpenConnectionX()

    Dim intCounter As Integer
    Dim oCat As ADOX.Catalog
    Dim oTable As ADOX.Table
    Dim strConnString As String
    Dim strLinkTable As String 'DB Table Name
    Dim strLNTable As String  'LN Table Name
                        
    strConnString = "Driver ={Lotus Notes SQL DRIVER (*.nsf)};" & _
                    " Server =App1/PTI;" & _
                    " Database =hps\nits.nsf;" & _
                    " Uid ={Paul Miller/PTI};" & _
                    " Pwd =Password;"

    strLinkTable = "LN_DataExport"
    strLNTable = "DataExport"

    Set oCat = New ADOX.Catalog
    oCat.ActiveConnection = CurrentProject.Connection
   
    Set oTable = New ADOX.Table
   
    With oTable
        .Name = strLinkTable
        Set .ParentCatalog = oCat
        .Properties("Jet OLEDB:Create Link") = True
        .Properties("Jet OLEDB:Remote Table Name") = strLNTable
        .Properties("Jet OLEDB:Cache Link Name/Password") = True
        .Properties("Jet OLEDB:Link Provider String") = strConnString
    End With
    
    oCat.Tables.Append oTable
    oCat.Tables.Refresh
   
    Set oTable = Nothing
    Set oCat = Nothing
   
End Sub

The error received when running this sub is "Run-time error '-2147467259 (80004005)': Could not find installable ISAM."

I've completed the problem-solving tips recommended by Microsoft (reregistering DLL, reinstalling DLL, confirming file paths, etc). I've also uninstalled and reinstalled the NotesSQL driver (v8.5.1), and also uninstalled and reinstalled MS Access.

Based on the fact that I can connect using a DSN connection, I am convinced that there is an issue with my connection string.

I've been working on this for a while and have been unable to resolve. Any help would be greatly appreciated!
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top