FiveTech Software tech support forums

... ADO TABLES LOGICAL FIELDS LIST TO ? Antonio , Working with ADO , logical fields are recognised : IF nType == adBoolean .OR. ADO_IS_FIELD_LOGICAL( aWAData[ WA_TABLEINDEX ], oField ) nType is adBoolean (11) .OR. clausule doesn't matter I tested with SET ADO TABLES LOGICAL FIELDS LIST TO { { "CUSTOMER", ...

Angel, En la línea 1882 de ADORDD.prg tenemos: IF !aWAData[ WA_EOF ] .AND. !( oRecordSet:Fields( nField - 1 ):Value == xvalue ) Lo que quiere decir es que ese campo en el recordSet es de tipo fecha y el valor que quieres asignarle es de tipo caracter ...

Angel, En la línea 1882 de ADORDD.prg tenemos: IF !aWAData[ WA_EOF ] .AND. !( oRecordSet:Fields( nField - 1 ):Value == xvalue ) Lo que quiere decir es que ese campo en el recordSet es de tipo fecha y el valor que quieres asignarle es de tipo caracter ...

So its a set order problem!
If you browse it is it ordered ok?

Place again a msginfo( len( aWAData[ WA_ABOOKMARKS ][aWAData[WA_INDEXACTIVE]] ) the same place as before and check if effectively has the index built.

... ODBC 5.3 ANSI Driver} -->Funciona con 32bit Pero no con 64 Bit Pero MySQL ODBC 5.1 Driver} Funciona con 32 y 64 Con Firebird No funciona aWAData[ WA_CONNECTION ]:Open( "Driver=Firebird/InterBase(r) driver;" + ; "Persist Security Info=False" + ; ";Uid=" + ...

Lucas,

If it is the first field can be 0!

Might be a bug.
In all our tables its always the last field and I suspect that with zero IF EMPTY(aWAData[WA_FIELDRECNO]) rerturns .t..

Please try delete hbrecno and add it to the end of all fields.

Antonio, Yes, I do have HBRECNO and I am using your code. In fact, at ADO_OPEN( nWA, aOpenInfo ), you added : IF EMPTY(aWAData[WA_FIELDRECNO]) //DONT HAVE ANY AUTO INC FIELD USE AS RECNO CREATE .... Well, despite I have HBRECNO, aWAData[WA_FIELDRECNO is giving 0. Also, the sintax ...

Antonio,

aWAData[ WA_SCOPETOP ][y] and aWAData[ WA_SCOPEBOT ][y] seems that are SCOPE´s values.

You are issuing LEN(ALLTRIM( ..., but those Scope values could be a number, or a date, so that´s why it fails.

Lucas, Also, in DbCreate() I will add the following feature. In ADOSTRUCTTOSQL( aWAData,aStruct ,lAddAutoInc) I will check if aStruct has the default ID Autoincrement field, usually called HBRECNO. If there is no autoincrement "+" field, I will add to ...

Antonio, SET SCOPE fix seems to be: STATIC FUNCTION ADOSCOPE(nWA,aWAdata, oRecordSet, aOrderInfo,nIndex) IF LEN(ALLTRIM( cvaltochar(aWAData[ WA_SCOPETOP ][y]) + cvaltochar(aWAData[ WA_SCOPEBOT ][y])) ) > 0 Scopetop and ScopeBot can be a numeric. Fields ...

... instead Filters will be done within coming weeks. About seek this was left overs from trials please test instead of cSql := IndexBuildExp(nWA,aWAData[WA_INDEXACTIVE],aWAData,.F.,IF(aSeek[3],aseek[1],aSeek[2] )) this: cSql := IndexBuildExp(nWA,aWAData[WA_INDEXACTIVE],aWAData,.F.,aSeek[2] ) ...

... be table name. Also, if you want, you can indicate separated by ; the rest of the parameters: STATIC FUNCTION ADO_CREATE( nWA, aOpenInfo ) LOCAL aWAData := USRRDD_AREADATA( nWA ) LOCAL cTable := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 1, ";" ) LOCAL cDataBase := hb_tokenGet( aOpenInfo[ ...

... be table name. Also, if you want, you can indicate separated by ; the rest of the parameters: STATIC FUNCTION ADO_CREATE( nWA, aOpenInfo ) LOCAL aWAData := USRRDD_AREADATA( nWA ) LOCAL cTable := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 1, ";" ) LOCAL cDataBase := hb_tokenGet( aOpenInfo[ ...

Antonio,

Did you really fixed LOCATE FOR... command?.

That´s a great news!.

Also, there is a mistake on this line:

FUNCTION ADO_OPEN( nWA, aOpenInfo )

oRecordSet:Fields( aWAData[WA_FIELDRECNO] ):Properties("Optimize") := 1


Thank you.

... Some erros when compiling: STATIC FUNCTION ADO_OPEN( nWA, aOpenInfo ) IF oRecordSet:CursorLocation = adUseClient THIS LINE oRecordSet:Fields( aWAData[WA_FIELDRECNO] ):Properties("Optimize") := 1 ENDIF FUNCTION Filter2Sql(nArea,cTableName,cFiltro) THIS LINE; IN if substr(cfiltro,at(alltrim(upper((cAliasCorr)->(fieldname(n)))),cfiltro)-1,1) ...