FiveTech Software tech support forums

* New: function FW_DBFLOOKUP( uVal, [cOrder], bcRetExprn ) --> uResult
uVal : Value / Expression to be lookedup ( seek or locate )
cOrder : OrderName for seek. Or field name for locate. Omit if uVal
is an expression
bcRetExpr: codeblock/string: Expression to evaluate
Examples:
CUSTOMER->( FW ...

... usar el metodo execute del objeto coneccion, la documentacion indica lo siguiente:

METHOD Execute( cSqlStatement, [params], [lShowError] ) --> uResult
(Can also use oCn:SqlQuery(...) )
uResult can be
a) nil if there is no result or if error occured.
In case of error, oCn:nError and oCn:cError ...

... NCOL'
.\source\ereport.prg(5307) Warning W0001 Ambiguous reference 'NFLAGS'
.\source\ereport.prg(5307) Warning W0001 Ambiguous reference 'URESULT'
.\source\ereport.prg(5309) Warning W0001 Ambiguous reference 'SELF'
.\source\ereport.prg(5311) Warning W0001 Ambiguous reference 'URESULT ...

... NCOL'
.\source\ereport.prg(5307) Warning W0001 Ambiguous reference 'NFLAGS'
.\source\ereport.prg(5307) Warning W0001 Ambiguous reference 'URESULT'
.\source\ereport.prg(5309) Warning W0001 Ambiguous reference 'SELF'
.\source\ereport.prg(5311) Warning W0001 Ambiguous reference 'URESULT ...

... FW

function GetTextW( nHandle,cT,nMax ) ; local _hDLL := If( ValType( "user32.dll" ) == "N", "user32.dll", LoadLibrary( "user32.dll" ) ) ; local uResult ; local cFarProc ; if Abs( _hDLL ) > 32 ; cFarProc = GetProcAdd( _hDLL, If( Empty( "GetWindowTextA" ) == .T., "GetTextW", "GetWindowTextA" ), .T ...

ADS stored procedure or MySql stored procedure?

If it is MySql stored procedure, FWH directly provides full mySql functionality.
Calling a stored procedure is as simple as

uResult := oCn:Call( "procedurename", aParams )

... cBinaryData>)->xValue
HB_DeserialNext(@<cSerial>,<nBytes>)->xValue
HB_DiskSpace(<cDrive>,[<nType>])->nBytes
HB_DllDo(<cFuncName>,[<params...>])->uResult
HB_DTOC(<dDate>[,<cDateFormat>])-><cDate>
HB_DumpVar(<xValue>)->cText
HB_EnumIndex()->nIteration
HB_EnumIndex()->nIteration
HB_EOL()->cEndOfLine ...

... cErrLogText, cErrLogFile )
See \fwh\source\function\errsysw.prg for more details

* New: function FW_DBFLOOKUP( uVal, [cOrder], bcRetExprn ) --> uResult
uVal : Value / Expression to be lookedup ( seek or locate )
cOrder : OrderName for seek. Or field name for locate. Omit if uVal
is an ...

... and modification.

55. Lock() Executes FLOCK()

56. Locked() Same as ::IsRecLocked()

57. LookUp( uSeek, [cOrder/cField], bcRetExpr ) --> uResult
Looks up value in the table and return the result of expression in the 3rd parameter. The record position and sort order are restored before ...

... Pivot array formatted for diplay in xbrowse. Functions similar to the ADO function.

METHOD Execute( cSqlStatement, [params], [lShowError] ) --> uResult
(Can also use oCn:SqlQuery(...) )
uResult can be
a) nil if there is no result or if error occured.
In case of error, oCn:nError and oCn:cError ...

... prg:
Code:
MSGINFO("Relations in ADO SQL with record number are not allowed! See adordd.prg")
nReturn := ADO_GOTO( aRelInfo[ UR_RI_CHILD ], uResult ) //-> uResult is type "C"


The nRecord its always N type.
Unless bookmarks are used and with it the results will be unpredictable. (no defined ...

Antonio,

I dont know if uResult it is provided by reference because its called from dbeval().

Dont know why but UR_SUPER_EVALBLOCK( nArea, bBlock, uResult ) works! (without @)

Adordd its almost ready ! Now adordd its a true Rdd!
There are big differences from previous posted version.
Its much ...

UR_SUPER_EVALBLOCK( nArea, bBlock, @uResult ) maybe ?

Isn't uResult provided by reference ?

If not, then this value will be lost:

uResult := Eval( bBlock )

not sure if it will be also applicable to:

UR_SUPER_EVALBLOCK( nArea, bBlock, uResult )

... W0001 Ambiguous reference 'CSQL'

lucas.prg(1406) Warning W0001 Ambiguous reference 'YURETURN'

lucas.prg(1440) Warning W0001 Ambiguous reference 'URESULT'

lucas.prg(1444) Warning W0001 Ambiguous reference 'URESULT'

lucas.prg(1450) Warning W0001 Ambiguous reference 'URESULT'

lucas.prg(1452 ...