#include "fivewin.ch"
function Main()
local oCn, oRs
local cSql, nAt := 0
cSql := "SELECT * FROM states AS st ORDER BY code LIMIT 5"
HB_AtX( " ORDER BY | HAVING | LIMIT | GROUP ", cSql, .f., @nAt )
? nAt, cSql, SubStr( cSql, nAt )
return nil
cnavarro wrote:http://www.elektrosoft.it/tutorials/Harbour-Reference-Guide/harbour-complete-functions-list.htm
#include "fivewin.ch"
function Main()
local cSql, aMatch
cSql := "SELECT * FROM customer WHERE AGE BETWEEN 50 AND 60 OR STATE = 'NY'"
aMatch := hb_regex( "[a-z|0-9|_`]* between .* and ['|a-z|0-9|&|?|:]*", cSql, .f. )
if aMatch == nil
? "function returned nil. It should return array"
elseif Empty( aMatch )
? "function returns empty array"
else
? "result:", aMatch[ 1 ]
endif
return nil
hbmk2: Error: Referenced, missing, but unknown function(s): WIN_OLEERRORTEXT(),
WIN_OLEAUTO(), __OLEINVOKEMETHOD(), __OLEINVOKEPUT(), __OLEINVOKEGET(),
WIN_OLEERROR(), __OLEISDISP(), __OLECREATEOBJECT(), WIN_P2N(),
__OLEGETACTIVEOBJECT(), WAPI_MESSAGEBOX(), __OLEVARIANTNEW(),
WIN_OSVERSIONINFO(), WIN_OSISNT(), WIN_OSISNT351(), WIN_OSISNT4(),
WIN_OSIS2000ORUPPER(), WIN_OSIS2000(), WIN_OSISXP(),
WIN_OSISWINXPORUPPER(), WIN_OSIS2003(), WIN_OSISVISTA(),
WIN_OSISVISTAORUPPER(), WIN_OSIS7(), WIN_OSIS8(), WIN_OSIS9X(),
WIN_OSIS95(), WIN_OSIS98(), WIN_OSISME(), WIN_OSISTSCLIENT(),
WIN_OSNETREGOK(), WIN_OSNETVREDIROK(), WIN_ANSITOWIDE(),
WIN_WIDETOANSI(), WIN_AXINIT(), WAPI_CREATEWINDOWEX(),
WIN_AXGETCONTROL(), WAPI_OUTPUTDEBUGSTRING()
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 51 guests