6 67 1 VB Example

LANSA Open Guide

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