Visual Basic
This code example demonstrates how to use a generated COM business function wrapper in Visual Basic. This example creates business objects. Refer to the AddressBook sample included with the COM interoperability software for a complete working example of this functionality.
Dim WithEvents OW As OneWorldInterface '//OneWorldInterface Dim conn As New Connector '//COM Connector Dim connRole As IConnector2 '//Connector Interface with role Dim AB as JDEAddressBook '//AddressBook Dim phone as D0100032 '//Data Source Dim Mailing As D0100031 '//Data Source Dim AddressAs D0100033 '//Data Source Dim EffectiveDate As D0100019 '//Data Source DimParentAddress As D0100381 '//Data Source Dim sessionID As Long '//server Session ID Private Sub Form_Load() Set connRole = conn 'sessionID=conn.Login("Foo", "Bar", "DV9NIS2", "*ALL") sessionID=connRole.Login("Foo", "Bar", "DV9NIS2", "*ALL") Set OW = conn.CreateBusinessObject("OneWorld.FunctionHelper.1", sessionID) Set AB = conn.CreateBusinessObject("AddressBook.JDEAddressBook", sessionID) Set phone = AB.CreateGetPhoneParameterset Set Mailing = AB.CreateGetMailingNameParameterset SetAddress = AB.CreateGetEffectiveAddressParameterset Set EffectiveDate = AB.CreateGetABEffectiveDateParameterset Set ParentAddress = AB.CreateGetParentAddressParameterset End Sub