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