Page History
[ 
|../../index.htm#lansa/srvgudba_0790.htm]
You are here:
...
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 ))