429'd! On a PC that does not have MS Access. 1

[zenenigma]

I have a VB program that imports text files, parses them, and puts the results into an access database. The program works fine, very happy with it.

I finally have a clean PC with no Microsoft Office on it - and I used the VB package & deployment wizard to create a setup.

I have the following references in my project:
(MSVBVM60.dll)Visual Basic for Applications
(MSVBVM60.dll/3)Visual Basic runtime objects & procedures
(VB6.OLB)Visual Basic objects & procedures
(stdole2.tlb)OLE Automation
(MSACC8.olb)Microsoft Access 8.0 Object Library
(odbcconf.dll)Microsoft Data Access Components Installed Version
(DAO35)Microsoft DAO 3.51 Object Library
(scrrun.dll)Microsoft Scripting Runtime
(msjro.dll)Microsoft Jet and Replication Objects 2.6 library
(msscript.ocx)Microsoft Script Control 1.0
(msado15.dll)Microsoft ActiveX Data Objects 2.7 Library

Yes. I use both DAO & ADO connections. I know it's bad, but I want to get this program over and done with already.

So basically I get the 429 error as soon as I get to a page with any type of connection code. The program "opens" just fine to the disclaimer page, but after clicking "ok", the following code runs:

    Dim dbdesc As String
    Dim db As Database
    Dim rst As Recordset
    Dim strSQL As String
    Dim temptempvalue As Integer
    temptempvalue = 0
    'tempshort = ""
        ' Open the database
    
        Set db = DBEngine.OpenDatabase(dbpath)
    
strSQL = "SELECT ImportTable.Char " & _
"From ImportTable " & _
"GROUP BY ImportTable.Char " & _
"HAVING (((ImportTable.Char) Is Not Null)) " & _
"ORDER BY ImportTable.Char;"
 
Set rst = db.OpenRecordset(strSQL, dbOpenForwardOnly, dbReadOnly)
 
Do Until rst.EOF
Combo1.AddItem (rst!Char)
rst.MoveNext
Loop

rst.Close

Enjoy the temptempvalue? I found that amusing myself when I look back at it. I'll probably change it someday.

And that's the code where it gets the Run-time error 429 - ActiveX Component can't create object. I can't pinpoint exactly where it happens in that code, because I don't have Visual Basic on a clean computer (without MS Access).

I've tried everything I could find so far. Re-registered almost every single dll that's referenced in my program. Even added a key manually (Microsoft's Knowledgebase suggestion). I have also rebooted multiple times - which hasn't helped anything.

I am correct in the fact that if I have the references/dll's - I don't need MS Access installed on the user PC if I just have VB interacct with the Access tables, right?

If not, the program is going to be 10x worse.

Any help would be GREATLY appreciated. I just hope my next thread isn't "Well Access wouldn't work, how do I store and query data quickly from text files

 

[johnwm]

You can't use the Access Object library without Access installed. First because it won't work and second because it's not licensed.

You shouldn't need that .OLB for DAO or ADO data access, only if you're using actual Access front end functionality, which is not covered by your licensing.

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'If we're supposed to work in Hex, why have we only got A fingers?'

 

[zenenigma]

Thanks John, I'll try that tonight. Not quite sure why I had Access Object Library referenced. I'll try it on my clean PC and see if it works.

 

[zenenigma]

Purple star for you, John. That's exactly what the problem was. There were a few other bugs - mostly related to nulls and such in my data. Everything is coded and working on my clean PC. Sent it off to a friend for beta testing.

Thanks again!