6.45.1 VB Example

     Public Type FIELD_DETAIL
         fieldLen As Long
         flags As Long
     End Type
 
     Sub SetEmployeesList()
         Dim i As Integer
         Dim fldData(2) As FIELD_DETAIL
 
         ' clear list
         lstOrders.Clear
         If cmbSection.ListIndex = -1 Then 
     Exit Sub ' no department do nothing
         End If 
 
         ' Select data
         iRet = LceSetSelectOptions(iSession, "*RECEIVEIMMED")
         ' Request data
         If iRet = LceFalse then exit sub ' Failed
 
         iRet = LceLocalDateTimeToServer(iSession, "ORDRTIME", sOrderStartDate)
 
         iRet= LceRequestSelectWhere(iSession, _
               "ORDERNUM, ORDRTIME", "ORDERS", "", "ORDRTIME > " + sOrderStartDate, FALSE)
 
         If iRet = LceTrue Then
             sBuff = String(40, Chr(0))
             i = 0
             ' Read all records
             While (LceReceiveNextX(iSession, sBuff, FIELD_DATA_SIZE * 2, fldData(0), 2) = LceTrue) 
                 lstOrders.AddItem (sTrim(Mid(sBuff, 1, fldData(0).fieldLen)) _
                              & " " & sTrim(Mid(sBuff, fldData(0).fieldLen + 1, fldData(1).fieldLen))) 
                 i = i + 1
             Wend
             ' Select first on list
             If lstEmployees.ListCount > 0 Then lstEmployees.ListIndex = 0
        else
            ' failed
            …
         End If
     End Sub