[RESOLVED] run time error '2147467259(80004005)-VBForums
Results 1 to 11 of 11

Thread: [RESOLVED] run time error '2147467259(80004005)

  1. #1

    Thread Starter
    Member
    Join Date
    Jun 2009
    Posts
    47

    Resolved [RESOLVED] run time error '2147467259(80004005)

    I have the following error message
    run time error '2147467259(80004005)
    could not find installable ISAM when I running the following code

    Private Sub Form_Load()
    Dim s As String
    Dim rsitem As New ADODB.Recordset
    s = "provider =microsoft.jet.OLEDB.4.0;"
    DB.ConnectionString = s = s & "data source=\" & App.Path & "\InventoryControl1.mdb\"
    DB.Open

    End Sub

    kindly try to help me
    Thank's for all
    fkwinna

  2. #2
    PowerPoster
    Join Date
    Jul 2006
    Location
    Maldon, Essex. UK
    Posts
    6,334

    Re: run time error '2147467259(80004005)

    I think your Connection String should be:
    Code:
    DB.ConnectionString =  s & "data source=" & App.Path & "\InventoryControl1.mdb"
    you also need to establish DB as an ADODB.Connection
    eg
    Code:
    Dim DB As ADODB.Connection
    Set DB = New ADODB.Connection

  3. #3

    Thread Starter
    Member
    Join Date
    Jun 2009
    Posts
    47

    Re: run time error '2147467259(80004005)

    Dear Doogle
    Thank you for your urgent reply,But I'm sorry , the problem still
    I tried your statement but I get the same error,
    I think that the error at MSACCESS2000
    I tried to repaire it or reinstall but nothing happen

  4. #4
    PowerPoster
    Join Date
    Jul 2006
    Location
    Maldon, Essex. UK
    Posts
    6,334

    Re: run time error '2147467259(80004005)

    Can you copy and paste your actual code please. There seems to be a typo in your Provider string
    Code:
    s = "Provider=Microsoft.Jet.OLEDB.4.0;"

  5. #5

    Thread Starter
    Member
    Join Date
    Jun 2009
    Posts
    47

    Re: run time error '2147467259(80004005)

    ok dear

    the following is a copy from the project

    module
    Public DB As New ADODB.Connection

    form_load
    Dim s As String
    Dim DB As ADODB.Connection
    Set DB = New ADODB.Connection
    Dim rsitem As New ADODB.Recordset
    s = "provider =microsoft.jet.OLEDB.4.0;"
    DB.ConnectionString = s & "data source=" & App.Path & "\InventoryControl1.mdb"


    DB.Open

  6. #6
    PowerPoster
    Join Date
    Jul 2006
    Location
    Maldon, Essex. UK
    Posts
    6,334

    Re: run time error '2147467259(80004005)

    What's that strange character at the end of the provider string ? (the last character before the double quote at the end) It shouldn't be there.

  7. #7

    Thread Starter
    Member
    Join Date
    Jun 2009
    Posts
    47

    Re: run time error '2147467259(80004005)

    ok
    it is mitype
    but the problem is still

  8. #8
    PowerPoster
    Join Date
    Jul 2006
    Location
    Maldon, Essex. UK
    Posts
    6,334

    Re: run time error '2147467259(80004005)

    The most common cause of the problem you are experiencing is a syntax error in the Connection string. Can you copy and past the code from your project so we can see exactly what it looks like. Thanks

  9. #9

    Thread Starter
    Member
    Join Date
    Jun 2009
    Posts
    47

    Re: run time error '2147467259(80004005)

    this is the code

    Dim s As String
    Dim DB As ADODB.Connection
    Set DB = New ADODB.Connection
    Dim rsitem As New ADODB.Recordset
    s = "provider =microsoft.jet.OLEDB.4.0;"
    DB.ConnectionString = s & "data source=" & App.Path & "\InventoryControl1.mdb"


    DB.Open

  10. #10

    Thread Starter
    Member
    Join Date
    Jun 2009
    Posts
    47

    Re: run time error '2147467259(80004005)

    Dear Doogle

    Thank's for your time and your truly assistance
    my problem is solved by
    1) uninstal Msaccess and visual basic
    2) reinstall both of msaccess and visual basic 6
    what the reasons ! I don't know
    ok
    thank's
    fkwinna

  11. #11
    New Member
    Join Date
    Oct 2017
    Posts
    1

    Re: run time error '2147467259(80004005)

    HI,

    As, I am getting "Mircosoft Visual Basic Run-time error '-2147467259 (80004005)". Could you please help me.

    Sub DbConnection()

    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    Dim rs As ADODB.Recordset

    Dim StrConn As String
    StrConn = "Driver = {oracle};server=XE;Database=system;UID=system;PWD=tiger"

    cn.Open StrConn
    cn.Close
    Set cn = Nothing
    MsgBox "Connected"
    End Sub

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Featured


Click Here to Expand Forum to Full Width