INSERT query using WiRunSQL.vbs (Msi file)

eelisMX · July 13th, 2005, 08:20 AM

Hi

I'm trying to automate post-build updates to the MSI file. The UPDATE query
worked fine, but I have an error on the INSERT query.
The INSERT query is as follows:

Code:

Cscript WiRunSQL.vbs Setup.msi "INSERT INTO Registry
(Registry.Registry,Registry.Root,Registry.Key,Registry.Name,Registry.Value,Registry.Component_)
VALUES
('R__ConfigFileRegistry','1','Software\[Manufacturer]\[ProductName]\Config','[_C764143EC7AD42D1BE743AC87204C0E0]','C__00FBFDC77D25406F9F3B6C49E297693F')"

The error is :

Msi API Error 80004005: OpenView,Sql
1:2227 2:Setup.msi 3:Key 4: INSERT INTO Registry ... (all the query syntax)

Error 2227 is defined as: Database: [2]. Invalid identifier '[3]' in SQL query: [4].
in the following MSDN - (http://msdn.microsoft.com/library/de...r_messages.asp)

I couldn't track any invalid identifier in the 'Key' value nor in
'Registry' value on the query. Furthermore, the raw was successfully added to
the Msi using Orca and hard-code.

Any suggestions..... thanks!

cvkgowri · February 21st, 2011, 03:30 AM

Hi,

I am trying to update registry root value from 2 to 0 for (HKLM\Software\Classes).

But i am unable to execute the query fro regisrt table. Could any one of them please help me...

Below is the code

Set installer = CreateObject("WindowsInstaller.Installer")
' Open database
'MsgBox (MSI)
MSI = "C:\Documents and Settings\191936\Desktop\JH\Oracle_UPK_V3.5.1.wsi"
Dim databasePath: databasePath = MSI
openMode = msiOpenDatabaseModeReadOnly
Dim database: Set database = installer.OpenDatabase(databasePath, 1)
Query = "SELECT * From Registry"
Set view = database.OpenView(Query)
view.Execute
Do
Set record = view.Fetch
If record Is Nothing Then Exit Do
columnCount = record.FieldCount
rowdata = Empty
delim = " , "
i = 0
For Column = 1 To columnCount
rowdata1 = record.stringdata(2)
If rowdata1 = "2" Then
classdata = Left(record.stringdata(3), 17)
reg = record.stringdata(1)
If classdata = "SOFTWARE\Classes\" Then
MsgBox (record.stringdata(3))
Queryreg = "UPDATE Registry SET ROOT='0' WHERE Registry='registry6'"
MsgBox (Queryreg)
Set viewreg = database.OpenView(Queryreg)
viewreg.Execute
database.commit