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