[program-l] Re: Microsoft Access 2003: Fixing Could not find installable ISAM.
- From: "Jamal Mazrui" <Jamal.Mazrui@xxxxxxx>
- To: <program-l@xxxxxxxxxxxxx>
- Date: Mon, 17 Apr 2006 11:09:04 -0400
In case installing the latest drivers may help .... Most Windows
installations already include ADO, but the latest, 2.8 version may be
freely downloaded from
http://msdn.microsoft.com/data/mdac/downloads/default.aspx
From that web page, follow links to download the latest versions of two
components: (1) MDAC 2.8 and (2) Jet 4.0. The Jet download is specific
to your version of Windows.
Jamal
-----Original Message-----
From: program-l-bounce@xxxxxxxxxxxxx
[mailto:program-l-bounce@xxxxxxxxxxxxx] On Behalf Of Pranav Lal
Sent: Monday, April 17, 2006 11:11 AM
To: program-l@xxxxxxxxxxxxx
Subject: [program-l] Microsoft Access 2003: Fixing Could not find
installable ISAM.
Hi all,
I am attempting to reference an Excel sheet using ADO. My code is
appended
at the end of this message.
When I run my code, I get the following error
Microsoft Visual Basic
Run-time error '-2147467259 (80004005)':
Could not find installable ISAM.
Continue End Debug Help
A search lead me to
http://support.microsoft.com/default.aspx?scid=kb;EN-US;283881
The article has asked me to edit the registry but I am confused as to
what
value to change. Is it the win32 value?
The excel branch is as follows;
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel]
"win32"="C:\\Program Files\\Microsoft Office\\OFFICE11\\msaexp30.dll"
"DisabledExtensions"="!xls"
"ImportMixedTypes"="Text"
"FirstRowHasNames"=hex:01
"AppendBlankRows"=dword:00000001
"TypeGuessRows"=dword:00000019
"win32old"="C:\\WINNT\\system32\\msexcl40.dll"
Pranav
My VBA code
Option Compare Database
Option Explicit
Private Sub test()
Dim con1 As New ADODB.Connection
Dim rec1 As ADODB.Recordset
con1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data
Source=h:\prm\bridgehead.xls;" & _
"Extended Properties=Excel 8.0;;hdr=yes"
Set rec1 = New ADODB.Recordset
rec1.ActiveConnection = con1
rec1.Open "select * from [usage$]"
rec1.Close
Set rec1 = Nothing
End Sub
Private Sub Form_Load()
Call test
End Sub
** To leave the list, click on the immediately-following link:-
** [mailto:program-l-request@xxxxxxxxxxxxx?subject=unsubscribe]
** If this link doesn't work then send a message to:
** program-l-request@xxxxxxxxxxxxx
** and in the Subject line type
** unsubscribe
** For other list commands such as vacation mode, click on the
** immediately-following link:-
** [mailto:program-l-request@xxxxxxxxxxxxx?subject=faq]
** or send a message, to
** program-l-request@xxxxxxxxxxxxx with the Subject:- faq
** To leave the list, click on the immediately-following link:-
** [mailto:program-l-request@xxxxxxxxxxxxx?subject=unsubscribe]
** If this link doesn't work then send a message to:
** program-l-request@xxxxxxxxxxxxx
** and in the Subject line type
** unsubscribe
** For other list commands such as vacation mode, click on the
** immediately-following link:-
** [mailto:program-l-request@xxxxxxxxxxxxx?subject=faq]
** or send a message, to
** program-l-request@xxxxxxxxxxxxx with the Subject:- faq
Other related posts:
