Page History
...
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 ))