6.67.1 VB Example
Dim i As Integer
Dim hexString As String
Dim whereClause As String
iRet = LceSetSelectOptions(iSession, "*RECEIVEIMMED")
If iRet = LceFalse then exit sub ' Failed
hexString = String(200, Chr(0))
iRet = LceUnicodeToHex( name, hexString, 200 )
If iRet = LceFalse then exit sub ' Failed
whereClause = "NAME = " + hexString
iRet= LceRequestSelectWhere(iSession, _
"EMPNO", "WORKERS", "", whereClause, LceFalse ))