[ 
|../../index.htm#lansa/srvgudba_0040.htm]
You are here:
6.8.1 VB Example
' if record doesn't already exist insert new
' set key fields with values of record to insert
iRet = LceSetFieldValue(iSession, "EMPNO", sEmpNo)
iRet = LceSetFieldValue(iSession, "SKILCODE", SkillKey
)
if iRet=LceTrue then
' check if record with above key values exist
iRet = LceCheckFor(iSession, "PSLSKL", "EMPNO,SKILCODE")
If iRet = LceFalse Then
' record doesn't exist so insert
iRet = LceInsert(iSession, _
"EMPNO,SKILCODE,GRADE,DATEACQ,COMMENT", _
"PSLSKL", LceFalse)
End If
End If
[ |../../index.htm#lansa/srvgudba_0040.htm]