This website uses cookies. By clicking Accept, you consent to the use of cookies. Click Here to learn more about how we use cookies.
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
- Revenera Community
- :
- InstallShield
- :
- InstallShield Forum
- :
- Modify the Upgrade Table during runtime?
Subscribe
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Subscribe
- Mute
- Printer Friendly Page
- Mark as New
- Subscribe
- Mute
- Permalink
- Report Inappropriate Content
Dec 31, 2011
10:02 AM
Modify the Upgrade Table during runtime?
Is it possible to modify the Upgrade Table during an installation? I know I did this before but cannot find my code.
The following code allways fails at ModifyView.Modify:
Set ModifyView = Database.OpenView("SELECT * FROM Upgrade")
ModifyView.Execute
Set rec = Installer.CreateRecord(7)
rec.StringData(1) = ""
rec.StringData(2) = '""
rec.StringData(3) = "999.999.9999"
rec.StringData(4) = ""
rec.IntegerData(5) = 1024
rec.StringData(6) = ""
rec.StringData(7) = "REM_1"
ModifyView.Modify 7, rec
ModifyView.Close
The following code allways fails at ModifyView.Modify:
Set ModifyView = Database.OpenView("SELECT * FROM Upgrade")
ModifyView.Execute
Set rec = Installer.CreateRecord(7)
rec.StringData(1) = "
rec.StringData(2) = '""
rec.StringData(3) = "999.999.9999"
rec.StringData(4) = ""
rec.IntegerData(5) = 1024
rec.StringData(6) = ""
rec.StringData(7) = "REM_1"
ModifyView.Modify 7, rec
ModifyView.Close
(1) Reply
- Mark as New
- Subscribe
- Mute
- Permalink
- Report Inappropriate Content
Jan 02, 2012
11:38 AM
This function works when placed in the immediate execution and when run in reduced UI.
Function MODIFY_DB(sNewVal)
Set ModifyView = Database.OpenView("SELECT * FROM Upgrade")
ModifyView.Execute
Set rec = Installer.CreateRecord(7)
rec.StringData(1) = sNewVal
rec.StringData(2) = ""
rec.StringData(3) = "999.999.9999"
rec.StringData(4) = ""
rec.IntegerData(5) = 1024
rec.StringData(6) = ""
rec.StringData(7) = "REM1"
ModifyView.Modify 7, rec
ModifyView.Close
End Function
This function is used to uninstall all Windows Instaler based Java versions from a user's computer (based on ProductName & Publisher).
Function MODIFY_DB(sNewVal)
Set ModifyView = Database.OpenView("SELECT * FROM Upgrade")
ModifyView.Execute
Set rec = Installer.CreateRecord(7)
rec.StringData(1) = sNewVal
rec.StringData(2) = ""
rec.StringData(3) = "999.999.9999"
rec.StringData(4) = ""
rec.IntegerData(5) = 1024
rec.StringData(6) = ""
rec.StringData(7) = "REM1"
ModifyView.Modify 7, rec
ModifyView.Close
End Function
This function is used to uninstall all Windows Instaler based Java versions from a user's computer (based on ProductName & Publisher).
![](/skins/images/8CE4FAD0DE6F3A6F9D0567434D2D2DAE/responsive_peak/images/icon_anonymous_message.png)