![]() | |
ConneXionUpdatePersonnelInfo Method |
Namespace: ConneXion
Dim oConneXion As New ConneXion.ConneXion Dim oPersonnelInfo As New ConneXion.PersonnelInfo Dim oResult As ConneXion.ConneXionResult oPersonnelInfo.TAMUserName = "EXEC" oPersonnelInfo.TAMPassword = "PSWD" oPersonnelInfo.RecordNumber = "12" oResult = oConneXion.FindPersonnelInfo(oPersonnelInfo) If oResult.Success = False Then txtPersonnelInfo.Text = "FindPersonnelInfo is false. " & oResult.Description & oResult.TAMDescription Else oPersonnelInfo.TAMUserName = "EXEC" oPersonnelInfo.TAMPassword = "PSWD" oPersonnelInfo.PhoneNumber = "7087988345" oResult = oConneXion.UpdatePersonnelInfo(oPersonnelInfo) If oResult.Success = False Then txtPersonnelInfo.Text = "UpdatePersonnelInfo is false. " & oResult.Description & oResult.TAMDescription Else txtPersonnelInfo.Text = "UpdatePersonnelInfo is successful. " & oResult.Description & oResult.TAMDescription End If End If