Hello again. I am having a problem with VB and a run time error. The error says "'Run-time error 3170': Could not find installable ISAM." I am trying to link an excel file and a access database and for some reason I cannot get rid of this error. I have XP SP2 and office 2003. I have followed this help and support link from you guys - - but it has not fixed the problem. I re-registered the dlls, did a detect and repair in office 2003, and googled the error for about 3 days now. I know I am so close to fixing this but I am running out of ideas. I also followed this link and it did not work either - - but it was still a good fix that I thought would of worked.
I am not using a connection in VB because I am using a data component. I am actually using 4 and 1 of them has an excel file as the database and the others use access. Here is some example code on the sub form load. It bombs out on the data1.refresh. Data1 uses the excel file as the database.
Any help would be appreciated. Thank you in advance and I hope to hear back from you soon. Let me know if you have anymore questions.
Manguilla
Code
-----------------------------------
Private Sub Form_Load()
Dim CounterNumber As String
Dim temp, temp2 As String
Open App.Path & "\DBLoc.ini" For Input Access Read As #1
Line Input #1, temp
Line Input #1, temp2
Close #1
Data1.DatabaseName = temp
Data1.RecordSource = "Customer"
Data2.DatabaseName = temp
Data2.RecordSource = "State"
Data3.DatabaseName = temp
Data3.RecordSource = "Defaults"
Data4.DatabaseName = temp2
Data4.RecordSource = "Table1$"
Data1.Refresh
Data2.Refresh
Data3.Refresh
Data4.Refresh
CustomerSelection.Clear
Do While Data1.Recordset.EOF = False
CustomerSelection.AddItem Data1.Recordset("Name")
Data1.Recordset.MoveNext
Loop
I am not using a connection in VB because I am using a data component. I am actually using 4 and 1 of them has an excel file as the database and the others use access. Here is some example code on the sub form load. It bombs out on the data1.refresh. Data1 uses the excel file as the database.
Any help would be appreciated. Thank you in advance and I hope to hear back from you soon. Let me know if you have anymore questions.
Manguilla
Code
-----------------------------------
Private Sub Form_Load()
Dim CounterNumber As String
Dim temp, temp2 As String
Open App.Path & "\DBLoc.ini" For Input Access Read As #1
Line Input #1, temp
Line Input #1, temp2
Close #1
Data1.DatabaseName = temp
Data1.RecordSource = "Customer"
Data2.DatabaseName = temp
Data2.RecordSource = "State"
Data3.DatabaseName = temp
Data3.RecordSource = "Defaults"
Data4.DatabaseName = temp2
Data4.RecordSource = "Table1$"
Data1.Refresh
Data2.Refresh
Data3.Refresh
Data4.Refresh
CustomerSelection.Clear
Do While Data1.Recordset.EOF = False
CustomerSelection.AddItem Data1.Recordset("Name")
Data1.Recordset.MoveNext
Loop
