Example for Loading Data

The following example loads data with HsvcDataLoad.Load, with the Duplicates option set to accumulate.

Dim cHsvcDataLoad As HsvcDataLoad, cOptions As IHsvLoadExtractOptions
Dim cOpt As IHsvLoadExtractOption
Set cHsvcDataLoad = New HsvcDataLoad
'Specify the HsvSession object for the application.
cHsvcDataLoad.SetSession g_cHsvSession
'Initialize the IHsvLoadExtractOptions interface.
Set cOptions = cHsvcDataLoad.LoadOptions
'Set the option for loading data.
Set cOpt = cOptions.Item(HSV_DATALOAD_OPT_MODE)
cOpt.CurrentValue = HSV_DATALOAD_LOAD
'Set the option for accumulate mode.
Set cOpt = cOptions.Item(HSV_DATALOAD_OPT_DUPLICATES)
cOpt.CurrentValue = HSV_DATALOAD_ACCUMULATE
'Load the data
cHsvcDataLoad.Load "c:\Acme\myApp.dat", "c:\Acme\myApp.log"