Wrox Programmer Forums
Go Back   Wrox Programmer Forums > Microsoft Office > Access and Access VBA > Access VBA
|
Access VBA Discuss using VBA for Access programming.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Access VBA section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
 
Old June 8th, 2009, 10:15 PM
Registered User
 
Join Date: Jun 2009
Posts: 8
Thanks: 1
Thanked 0 Times in 0 Posts
Default ADOX: Jet Error -2147467259 (80004005) Could Not Find Installable ISAM

Folks,

I have used the following code to link SQL Server tables in MSAccess using
ADO connection string. On my newly built XP machine I am getting this
dreadful error -2147467259 (80004005) Could not find installable ISAM.
OS: Windows XP Svc PK 3
ADO version 2.8

Any help will be highly appreciated.

Ash.
Code:
LinkATable "Provider=SQLOLEDB.1;Password=%PWD%;User ID=%UID%;Initial 
Catalog=%DBNAME%;Data Source=%SERVER%", 
"sa","password","mytable","mytable","mydb"
 
Public Function LinkATable( _
    sUID$, _
    sPWD$, _
    sSourceTable$, _
    sLinkAs$, _
    sDBName$, _
    sConnstrTemplate$, _
    Optional sDSN$ = "", _
    Optional sDataSource$ = "", _
    Optional sServer$ = "")
 
    Dim oCat As Object
    Dim oTable As Object
    Dim sConnString$
 
    sConnString = sConnstrTemplate
    sConnString = Replace(sConnString, "%DSN%", sDSN)
    sConnString = Replace(sConnString, "%UID%", sUID)
    sConnString = Replace(sConnString, "%PWD%", sPWD)
    sConnString = Replace(sConnString, "%DBNAME%", sDBName)
    sConnString = Replace(sConnString, "%SERVER%", sServer)
 
    ' Create and open an ADOX connection to Access database
    Set oCat = CreateObject("ADOX.Catalog")
    Set oCat.ActiveConnection = CurrentProject.Connection
 
    ' Create a new Table object
    Set oTable = CreateObject("ADOX.Table")
    With oTable
        .Name = sLinkAs
        Set .ParentCatalog = oCat
        .Properties("Jet OLEDB:Create Link") = True
        .Properties("Jet OLEDB:Remote Table Name") = sSourceTable
        .Properties("Jet OLEDB:Link Provider String") = sConnString
        .Properties("Jet OLEDB:Cache Link Name/Password") = True
        .Properties("Jet OLEDB:Link Datasource") = sDataSource
    End With
 
    ' Add Table object to database
    oCat.Tables.Append oTable ' GIVES THE ERROR
    oCat.Tables.Refresh
    Set oCat = Nothing
 
End Function
 
Old June 9th, 2009, 01:45 PM
Registered User
 
Join Date: Jun 2009
Posts: 8
Thanks: 1
Thanked 0 Times in 0 Posts
Default [SOLVED] ADOX: Jet Error -2147467259 (80004005) Could Not Find Installable ISAM

After digging through and experimenting, I realize that linking with OLE DB providers is not possible. ADOX recognizes only certain type of connect strings. My intent was to use a DSN less connect string. The connect string format which works to link external SQL Server tables, is as following:

Code:
strConnstr=
"ODBC;Driver={SQL Server};Server=%SERVER%;UID=%UID%;pwd=%PWD%;Database=%DBNAME%"
 
Old June 9th, 2009, 01:50 PM
Friend of Wrox
 
Join Date: Mar 2004
Posts: 3,069
Thanks: 0
Thanked 10 Times in 10 Posts
Default

I found this article at MS: http://support.microsoft.com/kb/209805

I would reinstall MDAC as well. http://msdn.microsoft.com/en-us/data/aa937730.aspx

Did that help?
__________________
mmcdonal

Look it up at: http://wrox.books24x7.com





Similar Threads
Thread Thread Starter Forum Replies Last Post
Could not find installable ISAM Lillian ASP.NET 1.0 and 1.1 Basics 12 May 16th, 2010 09:01 AM
Error: Could not find installable ISAM dummy Classic ASP Basics 0 May 16th, 2007 02:36 AM
"Could not find installable ISAM" evidica ASP.NET 1.0 and 1.1 Basics 3 March 12th, 2007 11:27 AM
Could not find installable isam Johno13 BOOK: Beginning VB.NET Databases 1 October 5th, 2006 11:46 AM





Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.