Sorry, forgot the important sub that inserts the value into the installer database :)
Sub AddToComboBox( ByVal sComboProp, ByVal iComboOrder, ByVal sComboValue, ByVal sComboText )
' This function takes values passed into it from the function call and uses these values to create
' and execute a oView within the current session of the Windows Installer object. This oView is based
' on a SQL query constructed using the values passed into the function.
' If you wish to get a deeper understanding of how this function works you should read up
' on the Windows Installer object model in the Windows Installer SDK.
' Initialize variables
Dim oQuery, oView
' SQL-query string to insert a row in ComboBox table
oQuery = "INSERT INTO `ComboBox` " _
& "(`Property`, `Order`, `Value`, `Text`) " & "VALUES ('" & sComboProp _
& "', '" & iComboOrder & "', '" & sComboValue & "', '" & sComboText & "') TEMPORARY"
'
' Creates the oView object based on our query
'
Set oView = Session.Database.OpenView( oQuery )
'
' Invoke the query to add the combo value
'
oView.Execute
' Close open Database
oView.Close
' Clean up
Set oView = Nothing
End Sub
------------------------------------------------------------------------- Using Tomcat but need to do more? Need to support web services, security? Get stuff done quickly with pre-integrated technology to make your job easier Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________ WiX-users mailing list WiX-users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/wix-users
