INNO and Access

[brockmasterflex]

Hey guys,

I just removed Access from my computer and now my application will not update the database. The error I get is a runt time error 3055. I used INNO script/setup to create the installer.

Thanks,
Brock

[dglienna]

How are you accessing the DB? Did you call ACCESS anywhere? Is there an error message?

[brockmasterflex]

Like so...

'create data access object
Set dbWorkspace = DBEngine.Workspaces(0)
Set dbDatabase = dbWorkspace.OpenDatabase(strDBDir + strDatabase)
If Err Then
    MsgBox "Unable to open the specified database, using default", vbCritical
    Set dbDatabase = dbWorkspace.OpenDatabase("default.mdb")
    If Err Then
        MsgBox "Unable to open the default database 'default.mdb'", vbCritical
    End If
End If

Set dbTable = dbDatabase.OpenRecordset(SQLQuery)

If dbTable.BOF Then
    MsgBox "No records found!"
    Exit Sub
End If

Do Until dbTable.EOF = True
    LoadDataRecord                  'load data record into gsdata and get mean, SD, etc.
.....
....

Now, on some computers (without access) I get ActiveX error : cannot create object. This application runs great iff Access is installed. Now I thought Inno script was supposed to take care of those dependices?

Thanks,
Brock

[brockmasterflex]

Just tried adding the Automatic OS Updater to my setup.exe, the same error returns.

Any ideas?

Brock

[dglienna]

Post your project. Maybe someone without Access can try it.
How are you declaring DBEngine?

[brockmasterflex]

Well, right now I'm running the project without Access and getting the error.

I delcare my DB like so, above the code I already posted:

Private dbWorkspace As Workspace
Private dbDatabase As Database
Private dbTable As Recordset

Brock

[randem]

brockmasterflex,

You added the updater to your setup but did it run? Post you script.

[RobDog888]

Moved from Classic VB forum.

[brockmasterflex]

brockmasterflex,

You added the updater to your setup but did it run? Post you script.

It appeared to run, here is the script...

; Date: August 29, 2005

;              VB Runtime Files Folder:   C:\Program Files\Randem Systems\**********\********** 4.0\VB 6 Redist Files\
;     Visual Basic Project File (.vbp):   C:\Documents and Settings\Brock\My Documents\Planer Embedded Ver 4.591\Main Windows Code\planer.vbp
; Inno Setup Script Output File (.iss):   C:\Documents and Settings\Brock\My Documents\Inno Script\setup.iss

; ------------------------
; Visual Basic References
; ------------------------

; Microsoft DAO 3.6 Object Library
; Microsoft ActiveX Data Objects 2.0 Library
; Microsoft Data Binding Collection
; Microsoft Data Environment Instance 1.0


; --------------------------
; Visual Basic Components
; --------------------------

; Microsoft Internet Controls


[Setup]
AppName=NMI Planer Tally
AppVerName=Planer Tally 4.592
AppPublisher=Northern Milltech Inc.
AppVersion=4.591
VersionInfoVersion=4.592
AllowNoIcons=no
DefaultGroupName=NMI Planer Tally
DefaultDirName={pf}\NMI Planer Tally
AppCopyright=
PrivilegesRequired=Admin
MinVersion=4.1,5.0
OutputBaseFilename=setup4592

[Tasks]

[Files]
Source: c:\program files\randem systems\**********\********** 4.0\vb 6 redist files\msvbvm60.dll; DestDir: {sys}; Flags:  sharedfile
Source: c:\program files\randem systems\**********\********** 4.0\vb 6 redist files\oleaut32.dll; DestDir: {sys}; Flags:  sharedfile
Source: c:\program files\randem systems\**********\********** 4.0\vb 6 redist files\olepro32.dll; DestDir: {sys}; Flags:  sharedfile
Source: c:\program files\randem systems\**********\********** 4.0\vb 6 redist files\asycfilt.dll; DestDir: {sys}; Flags:  sharedfile
Source: c:\program files\randem systems\**********\********** 4.0\vb 6 redist files\stdole2.tlb; DestDir: {sys}; Flags:  regtypelib
Source: c:\program files\randem systems\**********\********** 4.0\vb 6 redist files\comcat.dll; DestDir: {sys}; Flags:  sharedfile
Source: c:\documents and settings\brock\my documents\Planer Embedded Ver 4.592\main windows code\bnd_def.mdb; DestDir: {app}\Bundle Data; Flags:  ignoreversion
Source: c:\documents and settings\brock\my documents\Planer Embedded Ver 4.592\main windows code\bnd_def.md_; DestDir: {app}; Flags:  ignoreversion
Source: c:\documents and settings\brock\my documents\Planer Embedded Ver 4.592\main windows code\default.md_; DestDir: {app}; Flags:  ignoreversion
Source: c:\documents and settings\brock\my documents\Planer Embedded Ver 4.592\main windows code\bundle files\1234.bnd; DestDir: {app}\bundle files; Flags:  ignoreversion
Source: c:\documents and settings\brock\my documents\Planer Embedded Ver 4.592\main windows code\option; DestDir: {app}; Flags:  ignoreversion
Source: c:\documents and settings\brock\my documents\Planer Embedded Ver 4.592\main windows code\sec.dat; DestDir: {app}; Flags:  ignoreversion
Source: z:\planer embedded\stock files\setup.txt; DestDir: {app}; Flags:  ignoreversion
Source: c:\documents and settings\brock\my documents\Planer Embedded Ver 4.592\main windows code\setupdir.txt; DestDir: {app}; Flags:  ignoreversion
Source: c:\documents and settings\brock\my documents\Planer Embedded Ver 4.592\main windows code\shift data\default.mdb; DestDir: {app}\Shift Data; Flags:  ignoreversion
Source: z:\planer embedded\stock files\southern yellow pine stocks.stk; DestDir: {app}\stock files; Flags:  ignoreversion
Source: z:\planer embedded\stock files\spf stocks.stk; DestDir: {app}\stock files; Flags:  ignoreversion
Source: c:\windows\system32\mschrt20.ocx; DestDir: {sys}; Flags:  regserver restartreplace sharedfile
Source: c:\windows\system32\msadodc.ocx; DestDir: {sys}; Flags:  regserver restartreplace sharedfile
Source: c:\program files\common files\system\ado\msado25.tlb; DestDir: {sys}; Flags:  uninsneveruninstall regtypelib
Source: c:\windows\system32\msdatgrd.ocx; DestDir: {sys}; Flags:  regserver restartreplace sharedfile
Source: c:\windows\system32\msdatlst.ocx; DestDir: {sys}; Flags:  regserver restartreplace sharedfile
Source: c:\embedded\extra files\msbind.dll; DestDir: {sys}; Flags:  regserver restartreplace sharedfile
Source: c:\program files\common files\designer\msderun.dll; DestDir: {sys}; Flags:  regserver restartreplace sharedfile
Source: c:\windows\system32\comctl32.ocx; DestDir: {sys}; Flags:  regserver restartreplace sharedfile
Source: c:\windows\system32\mscomct2.ocx; DestDir: {sys}; Flags:  regserver restartreplace sharedfile
Source: c:\windows\system32\comct332.ocx; DestDir: {sys}; Flags:  regserver restartreplace sharedfile
Source: c:\windows\system32\mscomctl.ocx; DestDir: {sys}; Flags:  regserver restartreplace sharedfile
Source: c:\program files\microsoft visual studio\common\tools\vcm\vcmaxb.ocx; DestDir: {sys}; Flags:  regserver restartreplace sharedfile
Source: c:\windows\system32\mswinsck.ocx; DestDir: {sys}; Flags:  regserver restartreplace sharedfile
Source: c:\documents and settings\brock\my documents\Planer Embedded Ver 4.592\main windows code\ccrpipa6.ocx; DestDir: {sys}; Flags:  regserver restartreplace sharedfile
Source: c:\documents and settings\brock\my documents\Planer Embedded Ver 4.592\main windows code\moist.exe; DestDir: {app}; Flags:  ignoreversion
;Source: c:\windows\system32\autprx32.dll; DestDir: {sys}; Flags:  sharedfile
Source: c:\program files\common files\system\ado\msado15.dll; DestDir: {sys}; Flags:  sharedfile
;Source: "C:\Documents and Settings\Brock\My Documents\Inno Script\Support\VB_DCOM_MDAC_JET_AutoSetup.exe"; DestDir: "{tmp}"; Flags:  ignoreversion deleteafterinstall
Source: C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll; DestDir: {sys}; Flags: sharedfile

[INI]
Filename: {app}\moist.url; Section: InternetShortcut; Key: URL; String: "http://www.northernmilltech.com"

[Icons]
Name: {group}\NMI Planer Tally; Filename: {app}\moist.exe; WorkingDir: {app}
Name: {group}\Northen Milltech Inc.; Filename: {app}\moist.url
Name: {group}\Uninstall NMI Planer Tally; Filename: {uninstallexe}

[Run]
;Filename: "{tmp}\VB_DCOM_MDAC_JET_AutoSetup.exe"; Parameters: /NORESTART /VERYSILENT WorkingDir: {tmp}; Flags: skipifdoesntexist
Filename: {app}\moist.exe; Description: Launch Planer; Flags: nowait postinstall skipifsilent; WorkingDir: {app}

[UninstallDelete]
Type: files; Name: {app}\moist.url

[randem]

brockmasterflex,

Actually, you commented it out. How could it run?

[brockmasterflex]

brockmasterflex,

Actually, you commented it out. How could it run?

thats it....its friday...... i'm going home.....