Welcome to the new platform of Programmers 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 it's 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
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")