ConneXionInsertEmployee Method

public ConneXionResult InsertEmployee(
	ref Employee oEmployee
)

Public Function InsertEmployee ( 
	ByRef oEmployee As Employee
) As ConneXionResult

Dim oConneXion As New ConneXion.ConneXion
Dim oEmployee As New ConneXion.Employee
Dim oResult As ConneXion.ConneXionResult

oEmployee.TAMUserName = "EXEC"
oEmployee.TAMPassword = "PSWD"
oEmployee.Name = "Ulf Grasse"
oEmployee.Street = "103 N. Halsted"
oEmployee.State = "IL"
oEmployee.City = "Itasca"
oEmployee.ZipCode = "60143"
oEmployee.Sex = "1"
oEmployee.EntityID = "GRASUL1"
oEmployee.MaritalStatus = "3"

oResult = oConneXion.InsertEmployee(oEmployee)

If oResult.Success = True Then
    MessageBox.Show("InsertEmployee is successful")
    txtResult.Text = oResult.Description
Else
    txtResult.Text = "Insert Employee is false" & vbCrLf & "Number: " & oResult.Number & vbCrLf & "Desc: " &
    oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription
End If