Microsoft KB Archive/256259

From BetaArchive Wiki
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
Knowledge Base


How to Add a SimpleList to an OrderForm and Persist It to the Database with DBStorage

Article ID: 256259

Article Last Modified on 6/24/2004



APPLIES TO

  • Microsoft Site Server 3.0 Commerce Edition



This article was previously published under Q256259

SUMMARY

This "More Information" section of this article contains a code example that allows you to add a SimpleList object to an OrderForm object and store it in the database using the DBStorage object.

MORE INFORMATION

Use the following Visual Basic 6.0 code example to add a SimpleList object to an OrderForm object and persist the OrderForm object to the database with the DBStorage object:

Dim mysimplelist As Object
Dim mscsorderformstorage As Object
Dim MSCSShopperManager As Object
Dim mscsorderform As Object

Private Sub Main()

Set mysimplelist = CreateObject("Commerce.Simplelist")
Set mscsorderformstorage = CreateObject("Commerce.DBStorage")
Set MSCSShopperManager = CreateObject("Commerce.StandardSManager")
Call MSCSShopperManager.InitManager("", "")
Call mscsorderformstorage.initstorage("DSN=SSCommerce3;UID=SA;PWD=", "vc30_receipt", "order_id", "Commerce.Orderform", "marshalled_receipt", "date_changed")

mysimplelist.Add ("value1")
mysimplelist.Add ("value2")
mysimplelist.Add ("value3")

'You will have to paste in your own order_id argument here

Set mscsorderform = mscsorderformstorage.GetData(Null, "SGPR51TLRWS12PNS00Q799HC77")

'Then once you have retrieved the orderform you can modify it as follows:

mscsorderform.prefix = "*" 'change prefix from default of underscore so dbstorage will persist any items beginning with underscore to database
Set mscsorderform.list2 = mysimplelist

'After modifying the orderform, you would then need to commit the modified orderform back to the marshalled column using the dbstorage commitdata method:

Call mscsorderformstorage.CommitData(Null, mscsorderform)
End Sub

Keywords: kbhowto kbfix KB256259