FiveTech Software tech support forums

... += cMessage   if AT ("WINOLE/1007", cMessage) # 0 .and. AT ("(0x800A0CB3)", cMessage) # 0    M->oAnnos:oADO:CONECTAR ()    nVeces := 1    do while nVeces < 5 .and. M->oAnnos:oADO:oCon = Nil        nVeces++        M->oAnnos:oADO:CONECTAR ...

Michael, It seems as you are using Access database engine and see the comment in the error line that you have posted: > ------> IF oADO:Status == adRecDeleted // To be checked, ACCESS does not uses it <------- It seems as Access does not support it. Try to comment those lines and ...

... file and usrrdd.lib file? The code in question from the adordd.prg file is the following: STATIC FUNCTION ADO_DELETED( nWA, lDeleted ) local oADO := USRRDD_AREADATA( nWA )[ 1 ] ------> IF oADO:Status == adRecDeleted // To be checked, ACCESS does not uses it <------- lDeleted := .T. ...

Jose,

Que versión de xHarbour estás usando ?

Prueba a hacer:

oAdo:hObj := nil

ó

oAdo := nil

pero eso depende de la versión que uses

... que contenga un objeto ADO y es por ello el error diferete fuera que hicieras por ejemplo: cSQL := " DROP TABLE IF EXISTS 'mitabla' " oADO := CreateObjet("....aca define el objeto ado....") //oAdo contrendra un objeto ado TRY oObj := oAdo:Execute( cSQL ) CATCH oErr MsgInfo("No ...

para corrigir isso do USE
STATIC FUNCTION ADO_CLOSE( nWA )
LOCAL oADO := USRRDD_AREADATA( nWA )[ 1 ]

oADO:Close()

RETURN SUCCESS // UR_SUPER_CLOSE( nWA )

Daniel,

Modifica en ADORDD, en la creación del recordset, este valor:

oAdo:CacheSize = 50

Antonio oAdo:CacheSize had no effect at any value .... but I am not complaining. This is a table with about 25k records .. and I have tested it at this location ( on the 'outer rim' ) and close to the core router. The closer to ...

... distance from my location. > You may try setting the recordset CacheSize value. We have not implemented it yet, but we plan to do it: oAdo:CacheSize := 50 > I have not tried multiple workstations updating records and the visability of those changes .. any thoughts there ?? > ...

... traditional dbfcdx rdd .. there is a set scope .. or filter .. I see in the adordd code: STATIC FUNCTION ADO_SETFILTER( nWA, aFilterInfo ) local oADO := USRRDD_AREADATA( nWA )[ 1 ] oADO:Filter = SQLTranslate( aFilterInfo[ UR_FRI_CEXPR ] ) RETURN SUCCESS STATIC FUNCTION ADO_CLEARFILTER( nWA ) ...

Antonio and Fernando I am looking at the adordd.prg and I see how you are creating the recordset .. oADO := TOleAuto():New( "ADODB.Recordset" ) oAdo:CursorType = adOpenDynamic oAdo:CursorLocation = adUseClient oAdo:LockType = adLockPessimistic oAdo:Open( s_cQuery + s_cTableName, ...

Rick,

Check the source code of the ADORDD to see how we do it:

oAdo := TOleAuto():New( "ADODB.Recordset" )
oAdo:CursorType = adOpenDynamic
oAdo:CursorLocation = adUseClient
oAdo:LockType = adLockPessimistic

STATIC FUNCTION ADO_APPEND( nWA, lUnLockAll )

local oADO := USRRDD_AREADATA( nWA )[ 1 ]

oADO:AddNew()
TRY
oADO:Update() // keep it here, or there is an ADO error
CATCH
END

RETURN SUCCESS

Must add code TRY/CATCH if oADO:Update() create error

... change for correct GetValue if database is empty STATIC FUNCTION ADO_GETVALUE( nWA, nField, xValue ) LOCAL aWData := USRRDD_AREADATA( nWA ) LOCAL oADO := USRRDD_AREADATA( nWA )[ 1 ] IF aWData[ 3 ] xValue := "" ELSE IF oADO:BOF .AND. oADO:EOF xValue := NIL ELSE xValue := oADO:Fields( nField - 1 ...

... ) */ RETURN FAILURE STATIC FUNCTION ADO_OPEN( nWA, aOpenInfo ) LOCAL cName, nMode, nSlot, nHandle, aRData, aWData, aField, oError, nResult LOCAL oADO, nTotalFields := 0, i := 1 // When there is no ALIAS we will create new one using file name IF aOpenInfo[ UR_OI_ALIAS ] == NIL HB_FNAMESPLIT( aOpenInfo[ ...