6.10.1 VB Example
' set key of record to delete
iRet = LceSetFieldValue(iSession, "EMPNO", EmpNo)
If iRet = LceTrue then
' see if the record can be deleted
iRet = LceDelete(iSession, "PSLMST", "EMPNO", LceTrue)
if iRet = LceTrue then
' record can be deleted so delete
iRet = LceDelete(iSession, "PSLMST", "EMPNO", LceFalse)
else
msgBox "Can't delete"
End if
End if
' normally you just delete the record. LANSA Open automatically
' will set and display error codes and messages.