Couldn't Find Installable ISAM

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • indhu
    New Member
    • Oct 2006
    • 140

    Couldn't Find Installable ISAM

    error is coming when i run the form.

    Couldn't Find Installable ISAM.

    CON.OPEN error is pointing to this place. problem in db or else
  • willakawill
    Top Contributor
    • Oct 2006
    • 1646

    #2
    Originally posted by indhu
    error is coming when i run the form.

    Couldn't Find Installable ISAM.

    CON.OPEN error is pointing to this place. problem in db or else
    Hi, would you please post the code that is creating the error. That would be all of the code including the declaration of con
    Thanks

    Comment

    • indhu
      New Member
      • Oct 2006
      • 140

      #3
      Originally posted by willakawill
      Hi, would you please post the code that is creating the error. That would be all of the code including the declaration of con
      Thanks

      Dim CON As New ADODB.Connectio n
      Dim RS As ADODB.Recordset
      Dim strTest As String
      Dim myquery As Variant
      Dim accdb As String ' equivalent to sql query

      Sub CONOPEN()

      Set CON = New ADODB.Connectio n
      Set RS = New ADODB.Recordset

      CON.ConnectionS tring = "Provider=Micro soft.Jet.OLEDB. 4.0; Data" _
      & "source=E:\VB_i mage\storyboard \storyboard.mdb "

      CON.Open

      Set RS = CON.Execute(acc db, adOpenDynamic)
      End Sub
      Sub CONCLOSE()

      ' Close Recordset/Dbase
      RS.Close
      CON.Close

      ' Clear the memory
      Set RS = Nothing
      Set CON = Nothing

      End Sub

      Private Sub Form_Load()
      accdb = "SELECT * FROM story" & _
      "WHERE projectid='" & myquery & "'"

      Call CONOPEN

      project_txt.Tex t = RS!project
      date_txt.Text = RS!Date
      episode.Text = RS!episode
      scene_txt.Text = RS!scene
      seq_txt.Text = RS!sequence
      shot_txt.Text = RS!shot
      action_txt.Text = RS!Action
      dialogue_txt.Te xt = RS!dialogue
      camera_txt.Text = RS!camera

      Call CONCLOSE


      End Sub

      Private Sub episode_Click()
      On Error Resume Next

      myquery = episode.Text 'Load selected ComboBox text into a variable

      accdb = "SELECT * FROM story " & _
      "WHERE projectid= '" & myquery & "' "
      Call CONOPEN ' Open dbase & Recordset

      ' Populate TextBoxes
      project_txt.Tex t = RS!project
      date_txt.Text = RS!Date
      scene_txt.Text = RS!scene
      seq_txt.Text = RS!sequence
      shot_txt.Text = RS!shot
      action_txt.Text = RS!Action
      dialogue_txt.Te xt = RS!dialogue
      camera_txt.Text = RS!camera

      Call CONCLOSE ' Close dbase & Recordset

      End Sub

      Comment

      • willakawill
        Top Contributor
        • Oct 2006
        • 1646

        #4
        After more than 70 posts you should be posting your code in code blocks. It is very hard to read when you post it as text. Just paste the code, highlight it and click on the # button on the toolbar.

        This part of your code:
        Code:
        CON.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data" _
        & "source=E:\VB_image\storyboard\storyboard.mdb"
        is joining the words data and source into one word datasource.
        Change it to this:
        Code:
        CON.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data " _
        & "source=E:\VB_image\storyboard\storyboard.mdb"
        and it should work better.

        Comment

        • indhu
          New Member
          • Oct 2006
          • 140

          #5
          Originally posted by willakawill
          After more than 70 posts you should be posting your code in code blocks. It is very hard to read when you post it as text. Just paste the code, highlight it and click on the # button on the toolbar.

          This part of your code:
          Code:
          CON.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data" _
          & "source=E:\VB_image\storyboard\storyboard.mdb"
          is joining the words data and source into one word datasource.
          Change it to this:
          Code:
          CON.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data " _
          & "source=E:\VB_image\storyboard\storyboard.mdb"
          and it should work better.

          sorry for that.


          runtime error 3021 is coming
          Either BOF or EOF is true or current record is deleted. Requested opertion requires a current record.

          Code:
          Private Sub Form_Load()
          
          accdb = "SELECT * FROM story " & _
                  "WHERE projectid='" & myquery & "'"
                  
          Call CONOPEN
          
          [B]projectid.Text = RS!projectid[/B] showing error on this part
          projecttxt.Text = RS!project
          date_txt.Text = RS!Date
          episode.Text = RS!episode
          seq_txt.Text = RS!sequence
          scene_txt.Text = RS!scene
          shot_txt.Text = RS!shot
          action_txt.Text = RS!Action
          dialogue_txt.Text = RS!dialogue
          camera_txt.Text = RS!camera
          
          Call CONCLOSE
           
          End Sub
          i didn't delete any record in backend. still the error is coming like this.

          if i click record source property for Data control object its giving error as unrecognised database format 'E:\VB_image\st oryboard\storyb oard.mdb'

          why this error is comg in recordsource property?

          Comment

          • willakawill
            Top Contributor
            • Oct 2006
            • 1646

            #6
            What is the data type for projectid in your database?
            Is it a text or numeric value?

            Comment

            Working...