![]() | |
ConneXionDeletePersonnelInfo Method |
Namespace: ConneXion
Dim oConneXionPersonnelInfo As New ConneXion.ConneXion Dim oPersonnelInfo As New ConneXion.PersonnelInfo Dim oResult As ConneXion.ConneXionResult oPersonnelInfo.TAMUserName = "EXEC" oPersonnelInfo.TAMPassword = "PSWD" oPersonnelInfo.TAMCentralAgency = "DEMOAG1" oPersonnelInfo.LicenseKey = "1234567 1" oPersonnelInfo.ClientKey = "C" oPersonnelInfo.ClientID = "ABBOJO1" oPersonnelInfo.RecordNumber = "102" oResult = oConneXionPersonnelInfo.DeletePersonnelInfo(oPersonnelInfo) If oResult.Success = False Then txtPersonnelInfo.Text = "DeletePersonnelInfo is false. " & oResult.Description & oResult.TAMDescription Else txtPersonnelInfo.Text = "DeletePersonnelInfo is successful. " & oResult.Description & oResult.TAMDescription End If