ISAM

[MikeS]

I am trying to export one cell of data into an Access table. I keep getting
this error:

Can not find installable ISAM

Here is the line of code in question:

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " _
& "DataSource=S:\MalLab\MAL_DB.mdb;"

I have tried re-registering the dll file and checked the registry to make
sure the file location is correct and ran the Repair option for Microsoft
Office but I still get the error.

Does anyone have any suggestions on what I can try next?

Thanks in advance,

MikeS

 

[Patrick Molloy]

..... & "DataSource=S: ....
Data Source is two words, you need to add a space
..... & "Data Source=S: ....

 

[MikeS]

Did I post this in the wrong discussion group?

 

[Patrick Molloy]

i replied 25 minutes ago.

..... & "DataSource=S: ....
Data Source is two words, you need to add a space
..... & "Data Source=S: ....

 

[MikeS]

Patrick,

I'm sorry if you got the wrong impression. I didn't see your reply until
after I sent my followup. The reason for my question was, I posted this
yesterday and didn't see a response this morning and wasn't sure if this was
an Excel issue or an Access issue.

Anyway, I corrected the syntax issue but it still gives me the same error.
Any more suggestions?

Thanks,

Mike

 

[Patrick Molloy]

this is my un-adulterated code for Excel2003 readign from an access database.
this works every time ..so maybe if you cut/paste

Sub LoadDataFromAccess()
Dim MyFile As String
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SQL As String
Dim i As Long

MyFile = "Risk.mdb"
SQL = "SELECT * FROM BondTable"

con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MyFile

rst.Open SQL, con, adOpenStatic

Cells.Clear

For i = 0 To rst.Fields.Count - 1
Cells(1, i + 1).Value = rst.Fields(i).Name
Next

Range("A2").CopyFromRecordset rst

rst.Close
con.Close

Set rst = Nothing
Set con = Nothing

End Sub

 

[Patrick Molloy]

ps Excel 2003, Access 2003

this is my un-adulterated code for Excel2003 readign from an access database.
this works every time ..so maybe if you cut/paste

Sub LoadDataFromAccess()
Dim MyFile As String
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SQL As String
Dim i As Long

MyFile = "Risk.mdb"
SQL = "SELECT * FROM BondTable"

con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MyFile

rst.Open SQL, con, adOpenStatic

Cells.Clear

For i = 0 To rst.Fields.Count - 1
Cells(1, i + 1).Value = rst.Fields(i).Name
Next

Range("A2").CopyFromRecordset rst

rst.Close
con.Close

Set rst = Nothing
Set con = Nothing

End Sub