![]() | |
ConneXionFindPersonnelInfo 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.FindPersonnelInfo(oPersonnelInfo) If oResult.Success = False Then txtPersonnelInfo.Text = "FindPersonnelInfo is false. " & oResult.Description & oResult.TAMDescription Else txtPersonnelInfo.Text = "FindPersonnelInfo is successful. " & oResult.Description & oResult.TAMDescription End If