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:
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!
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!