![]() | |
ConneXionFindEmployee Method |
Namespace: ConneXion
Dim oConneXion As New ConneXion.ConneXion Dim oEmployee As New ConneXion.Employee Dim oResult As ConneXion.ConneXionResult oEmployee.TAMUserName = "EXEC" oEmployee.TAMPassword = "PSWD" oEmployee.EntityID = "FRANJE1" oResult = oConneXion.FindEmployee(oEmployee) If oResult.Success = True Then MessageBox.Show("Find Employee is successful") txtResult.Text = oResult.Description Else txtResult.Text = "Find Employee is false" & vbCrLf & "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription End If