![]() | |
ConneXionUpdateContact Method |
Namespace: ConneXion
Dim oConneXion As New ConneXion.ConneXion Dim oResult As New ConneXion.ConneXionResult Dim oContact As New ConneXion.Contact oContact.TAMUserName = "EXEC" oContact.TAMPassword = "PSWD" oContact.RecordNumber = "104" oResult = oConneXion.FindContact(oContact) If oResult.Success = False Then txtContacts.Text = "FindContact is false. " & oResult.Description & oResult.TAMDescription Else oContact.TAMUserName = "EXEC" oContact.TAMPassword = "PSWD" oContact.LicenseLines1 = oContact.LicenseLines.LINES_CASUALTY + oContact.LicenseLines.LINES_PROPERTY oResult = oConneXion.UpdateContact(oContact) If oResult.Success = False Then txtContacts.Text = "UpdateContact is false. " & oResult.Description & oResult.TAMDescription Else txtContacts.Text = "UpdateContact is successful. " & oResult.Description & oResult.TAMDescription End If End If