Visual Basic - ISAM Problem

Posted on 2006-03-28
Last Modified: 2008-01-09
I'm trying to open a VB project and I get an error message stating the following: "Couldn't Find Installable ISAM".

I'm also tried creating a test project with one form and the data control from the toolbar on the form.  And then setting up the form to use Jet, database type (Access 2000) and the database name.

When I use the pull down list for the Connect Property I only get Access instead of Access 2000.  

I'm running windows xp with Office 2000 and Office 2002 on my machine.  And I have access 97, 2000 and 2002 running also.

Any idea what I have to do to get VB working?
Question by:ecohouse
    LVL 44

    Accepted Solution

    Hello ecohouse,

    not sure what version of VB you use but this error was related to jet 3.51

    an upgrade to jet 4 could help in solving that problem

    hope this helps a bit

    Author Comment

    Thanks for the help.  I upgraded to Service Pack 6 and that helped.

    The problem is in an API function and I don't know anything about them.  Do you have any API experience?
    LVL 44

    Expert Comment

    just post the function do you need a replacement?

    Author Comment

    Here's the function:

    Global MyDb As Database

    'multi user variables
    Global gnMURetryCnt     As Integer
    Global gnMUDelay        As Integer
    Global gnMULocking      As Integer  'flag for pessimistic or optimistic locking

    Global AgencyUpdate As Boolean
    Global DBPath As String
    Global InvoiceType As String

    Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
    Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpAppName$, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName$) As Long

    Public Function GetIniValue(ByVal Section As String, _
                                ByVal Key As String, _
                                ByVal Default As String, _
                                ByVal File As String) As String
        Dim X As Integer
        Dim Buff As String

        On Error GoTo ERRHANDLE
        Buff = Space(1024)
        X = GetPrivateProfileString(Section, Key, Default, Buff, Len(Buff), File)
        GetIniValue = Left(Buff, X)
        Exit Function

        MsgBox "Error in GetIniValue " & Str$(Err) & ": " & Error(Err), vbInformation, "F.I.T.S."

    End Function

    Public Sub WriteIniValue(ByVal Section As String, ByVal Key As String, ByVal Value As String, ByVal FileName As String)
    Dim X As Integer

    On Error GoTo ERRHANDLE:

    X = WritePrivateProfileString(Section, Key, Value, FileName)
    Exit Sub

        MsgBox "Error in WriteIniValue " & Str$(Err) & ": " & Error(Err), vbInformation, "F.I.T.S."

    End Sub

    It get fired from the main form loading.  Here is that code:

    Private Sub Form_Load()
        On Error GoTo ERRHANDLE
        'App.Path & "\" &
        DBPath = App.Path & "\" & "limodata.mdb"
        'DBPath = GetIniValue("Values", "DBPath", "", App.Path & "\limo.ini")
        InvoiceType = GetIniValue("Values", "InvoiceType", "", App.Path & "\limo.ini")
        Set MyDb = OpenDatabase(DBPath)
        Exit Sub

        MsgBox "Error in Main.Form_Load " & Str$(Err) & ": " & Error(Err), vbInformation, "F.I.T.S."
    End Sub

    Any help would be appreciated.

    Featured Post

    Courses: Start Training Online With Pros, Today

    Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.

    Join & Write a Comment

    Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
    Using Word 2013, I was experiencing some incredible lag when typing.  Here's what worked for me....
    The viewer will learn how to  create a slide that will launch other presentations in Microsoft PowerPoint. In the finished slide, each item launches a new PowerPoint presentation and when each is finished it automatically comes back to this slide: …
    Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

    754 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    23 Experts available now in Live!

    Get 1:1 Help Now