Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

Couldn't find installable ISAM

tj28tj28 Posts: 5Member
Hi all


Im a new junior developer at a certain company in South Africa and Ive been given a task to debug someone elses program .The program (is suppose to) connects to excel and send smss depending on what it find,
The problem is the program is not working anymore it give a Couldn't find installable ISAM error.
Can anybody help out there as Im still new at this company and I need to make an impression.

Here is a snipped off the code


'
Private dbsCellFile As Database
Private rstCellFile As Recordset
Private ol As Outlook.Application
Private olns As Outlook.NameSpace
Private InboxFldr As Outlook.MAPIFolder
Private msg As Outlook.MailItem
Private optTicked As OptionButton

Private Sub cmdSMS_Click(nIndex As Integer)
On Error GoTo ehSMS
Dim strXlFile As String, strSMSfile As String, strBillFile As String
Dim strCell As String, strMsg As String, strTemp As String
Dim fCellOK As Boolean
Dim strItem As String
Dim lngSmsCnt As Long
Dim lngHwnd As Long

Select Case nIndex
Case 0 'create sms file
MousePointer = vbHourglass
strXlFile = filSMS.Path & "" & filSMS.FileName '"F:downloadsavonCell.xls"
strSMSfile = "c:sms.txt" '"c:documents and settingsvdweljdesktopsms.txt"
strBillFile = "c:SmsBilling.txt" '"c:documents and settingsvdweljdesktopSmsBilling.txt"

Set dbsCellFile = OpenDatabase(strXlFile, False, False, "Excel 4.0;HDR=NO;")
Set rstCellFile = dbsCellFile.OpenRecordset("A1:B50000")


Comments

  • BarkeeperBarkeeper Posts: 335Member
    [b][red]This message was edited by Barkeeper at 2006-4-25 3:44:5[/red][/b][hr]
    [b][red]This message was edited by Barkeeper at 2006-4-25 3:42:59[/red][/b][hr]
    : Hi all
    :
    :
    : Im a new junior developer at a certain company in South Africa and Ive been given a task to debug someone elses program .The program (is suppose to) connects to excel and send smss depending on what it find,
    : The problem is the program is not working anymore it give a Couldn't find installable ISAM error.
    : Can anybody help out there as Im still new at this company and I need to make an impression.
    :
    : Here is a snipped off the code
    :
    :
    : '
    : Private dbsCellFile As Database
    : Private rstCellFile As Recordset
    : Private ol As Outlook.Application
    : Private olns As Outlook.NameSpace
    : Private InboxFldr As Outlook.MAPIFolder
    : Private msg As Outlook.MailItem
    : Private optTicked As OptionButton
    :
    : Private Sub cmdSMS_Click(nIndex As Integer)
    : On Error GoTo ehSMS
    : Dim strXlFile As String, strSMSfile As String, strBillFile As String
    : Dim strCell As String, strMsg As String, strTemp As String
    : Dim fCellOK As Boolean
    : Dim strItem As String
    : Dim lngSmsCnt As Long
    : Dim lngHwnd As Long
    :
    : Select Case nIndex
    : Case 0 'create sms file
    : MousePointer = vbHourglass
    : strXlFile = filSMS.Path & "" & filSMS.FileName '"F:downloadsavonCell.xls"
    : strSMSfile = "c:sms.txt" '"c:documents and settingsvdweljdesktopsms.txt"
    : strBillFile = "c:SmsBilling.txt" '"c:documents and settingsvdweljdesktopSmsBilling.txt"
    :
    : [red]Set dbsCellFile = OpenDatabase(strXlFile, False, False, "Excel 4.0;HDR=NO;")[/red]
    : Set rstCellFile = dbsCellFile.OpenRecordset("A1:B50000")
    :
    :
    :

    Never heard of the HDR-Option. Try to leave that one out ([red]Set dbsCellFile = OpenDatabase(strXlFile, False, False, "Excel 4.0;")[/red], and to check which ISAM's are installed, check out the Registry under HKEY_LOCAL_MACHINE/Software/Microsoft/Jet/x.x/ISAM Formats where x.x stands for your latest Jet-Version (If Office2000 then 4.0) ("Excel 8.0;" being the latest known to me, could also be "Excel 9.0;")
    ------------------------------------------
    Only stupidity of mankind and the universe
    are infinite, but i'm not sure concerning
    the universe. A. Einstein





Sign In or Register to comment.