FiveTech Support Forums

INDEX ON Test->Field1 TO C:\Test FOR Test->Field2 = cSomeString

Memory variables do not work in expressions sent to the Advantage Database Server. This is applicable with filter or index expressions. The expression that is used for filtering or indexing must have all macros expanded prior to sending the expression text to the server

Solution:
Use the & symbol to expand macro values.

Below is a simple console application that demonstrates how to macro expand date variables in CA Visual Objects when used in a filter expression:
----------------
FUNCTION MemFilter()

LOCAL dbs AS DbServer
FIELD empid, first, last, hiredate
STATIC dDate AS DATE // won't macro-expand
MEMVAR cDate AS STRING // will macro-expand

dbs := DBServer{"\\ufo\recreate\dirke\VO2\scopes\master",DBSHARED,,"AXDBFCDX"}

dDate := CToD('10/01/98')
cDate := DToC(dDate)

? "SetFilter: "
? dbs:SetFilter(StrEvaluate('HIREDATE = CTOD("&cDate")')) <<<<<Here is their work around

WAIT

dbs:GoTop()
? "Filtered view: "
DO WHILE !(dbs:EOF)
? dbs:first,dbs:last,dbs:empid, dbs:hiredate
dbs:Skip()
ENDDO
wait

Maybe &("{ || " + HIREDATE = CTOD(cDate) + "}")

Cheers,
Antonio Ferreira

Hi Antonio ... Thanks for the try but still is does not work

Using tData objects:

oDB := tdata():new(, "euntli",, .f. )
IF oDB:use()
    oDB:createIndex( "euntli", "UPPER(year)+UPPER(make)+UPPER(model)+UPPER(submodel)",,, .t., 10 )
ENDIF
oDB:close()

tData is an extension of tDatabase, provided by James Bott. It will make your life a whole lot simpler if you use it.

This works perfectly with DBFCDX, and ADS ( local and remote )

Tim

Jeff Barnes wrote:

Code (fw): Select all Collapse

INDEX ON Test->Field1 TO C:\Test FOR Test->Field2 = cSomeString

INDEX ON Test->Field1 TO C:\Test FOR ( [Test->Field2 = '] + cSomeString + ['] )

Hi Enrico,

Sadly, it did not work. I get an ADSNTX/3211 error

Jeff Barnes wrote:Hi Enrico,

Sadly, it did not work. I get an ADSNTX/3211 error

Jeff,

Try leaving out the aliases. These are variables too.

As I mentioned in another thread using aliases creates problems, especially if you want to open multiple copies of a database (and there are very good reasons to do so).

Try:

INDEX ON Field1 TO C:\Test FOR Field2 = &(cSomeString)

James

Hi James,

Even without the alias it still fails

I use ADS but not in Local mode. I took one of my index on commands and looked at to .ppo to see how it is structured.

Here is the actual code:
index on ld_num+mv_no tag ( [statactive] ) additive to ( ::cCurDir+cData ) for mv_status < 'F'

Here is the ppo code:
The "For" condition is set first.
ordCondSet( 'mv_status < "F"', {|| mv_status < "F"},,,,, RECNO(),,,,,, .T.,,,,,,, )

then the actual indexing is started
ordCreate( ( ::cCurDir+cData ), ( "statactive" ), "ld_num+mv_no", {|| ld_num+mv_no},,, ,{} )

hello try

cFor = 'test->field2 = "' alltrim( cSomeString ) + '"'

INDEX ON Test->Field1 TO C:\Test FOR &( cFor )

saludos

Hi Wilson,

That works

Thank you.

Jeff Barnes wrote:Hi Wilson,

That works

Thank you.