Code to Manipulate Lists
Using the initialized ListManager object, oListManager, created in Code to Initialize the ListManager Object, create a new empty list named 'Users2'.
Dim vListID2 vListID2 = oListManager.CreateEmpty("Users2", "More users", 20, 0)
Copy the list, 'Users1', created in Code to Create a List to the new list.
oListManager.Copy "Users1", vListID2, False
Delete three members from the 'Users2' list.
oListManager.RemoveUserFromMailingList "Users2", _ "barneyuser@fabrikam.com" oListManager.RemoveUserFromMailingList "Users2", _ "jackuser@vigorairlines.com" oListManager.RemoveUserFromMailingList "Users2", _ "jilluser@microsoft.com"
Add two new users to the 'Users2' list.
oListManager.AddUserToMailingList "Users2", _ "janeuser@fabrikam.com", Newuser_F554 oListManager.AddUserToMailingList "Users2", _ "freduser@vigorairlines.com", Newuser_V919
Perform a union and a subtraction on the 'Users1' and 'Users2' lists. The lists holding the results of the union and subtraction operations must exist prior to running the methods. The results are shown in the following table.
oListManager.CreateEmpty "Union", "Unique users", 20, 0 oListManager.CreateEmpty "Subtract", "Remaining users", 20, 0 oListManager.Union "Users1", "Users2", "Union", 0, False oListManager.Subtract "Users1", "Users2", "Subtract", 0, False
Users1 Users2 Union Substact joeuser@roguecellars.com joeuser@roguecellars.com joeuser@roguecellars.com barneyuser@fabrikam.com barneyuser@fabrikam.com bettyuser@arborshoes.com barneyuser@fabrikam.com jackuser@vigorairlines.com bettyuser@arborshoes.com janeuser@fabrikam.com bettyuser@arborshoes.com jilluser@microsoft.com jackuser@vigorairlines.com freduser@vigorairlines.com jackuser@vigorairlines.com jilluser@microsoft.com jilluser@arborshoes.com janeuser@fabrikam.com freduser@vigorairlines.com Export the Union list to a SQL Server database table named NewUsers, overwriting any previous data. Once the operation is complete, delete the list.
sConnect = "Provider=sqloledb;Data Source=TequillaServer;" & _ "Initial Catalog=Margaritas;User ID=userid;Password=******" oListManager.ExportToSQL "Union", sConnect, "NewUsers", True, 0, False oListManager.Delete "Union"