6 8 1 VB Example

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(i))

 

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