Nuevo AdoRDD (libre)

[athayde]

LOCATE FOR "cfcfo='"+c_cgcfo+"' .AND. codifo<>'"+mcodifo+"'"
error LOCATE
Error ADODB.Recordset/16389 E_FAIL: FIND Arguments: ( [ 1] = Type: C Val: cgcfo
='03.013.546/0006-80' AND codifo<>'000001' [ 2] = Type: N Val: 0)
Error at ...: TOLEAUTO:FIND(0) in Module: win32ole.prg
Called from : ADO_LOCATE(586) in Module: ADORDD.PRG
Called from : __DBLOCATE(0) in Module:

see anything about COMMIT
and USE with Query

Thanks

[Antonio Linares]

Is this ok for your table ?

cgcfo='03.013.546/0006-80' AND codifo<>'000001'

[José Luis Sánchez]

Antonio: puedes incluir en el zip un bat para recompilar adordd.prg y crear la libreria. Estoy intentando usarlo con xharbour0.99.7 y no hay manera.
Gracias,

[José Luis Sánchez]

Ya lo he hecho andar. Impresionante.
Gracias y enhorabuena a Antonio, Fernando y los demás por este trabajo.

Saludos,

[athayde]

yes Antonio, cgcfo and codifo, exists in a table

Thanks
Fernando
Brazil

[athayde]

i get now xharbour cvs, with new atualization for adordd usrrdd
congratulations for support to firebird

now bugs
bug 1: COMMIT error continues
code:
REPL nomeapl WITH c_nomeapl
UNLOCK
COMMIT
error:
Error ADODB.Recordset/16389 E_FAIL: UPDATE Arguments: ()

Error at ...: TOLEAUTO:UPDATE(0) in Module: win32ole.prg
Called from : ADO_FLUSH(574) in Module: ADORDD.PRG
Called from : DBCOMMITALL(0) in Module:

bug 2: LOCATE CLAUSULE error
code:
LOCATE FOR "cgcfo='"+c_cgcfo+"' .AND. codifo<>'"+mcodifo+"'"
in table exists the 2 fields
error:
Error ADODB.Recordset/16389 E_FAIL: FIND Arguments: ( [ 1] = Type: C Val: cgcfo='03.013.546/0006-80' AND codifo<>'000001' [ 2] = Type: N Val: 0)
Error at ...: TOLEAUTO:FIND(0) in Module: win32ole.prg
Called from : ADO_LOCATE(769) in Module: ADORDD.PRG
Called from : __DBLOCATE(0) in Module:

bug 3: after uptade and not change the field, when backs to dbedit, lost pointer
ex: field in BD it is "TESTE"
code:
REPL field WITH "TESTE" (error)
if changed:
REPL field WITH "TEST2" (perfect)

stranger no?
error lines:
Error ADODB.Recordset/16389 E_FAIL: MOVE Arguments: ( [ 1] = Type: N Val: 1)
Error at ...: TOLEAUTO:MOVE(0) in Module: win32ole.prg
Called from : ADO_SKIPRAW(476) in Module: ADORDD.PRG
Called from : DBSKIP(0) in Module:
Called from : DBE_SKIPPER(728) in Module: dbedit.prg
Called from : (b)DBEDIT(258) in Module: dbedit.prg
Called from : TDATACACHE:DBSKIP(263) in Module: tbrowse.prg
Called from : TDATACACHE:GETCELL(435) in Module: tbrowse.prg
Called from : TBROWSE:DRAWAROW(2671) in Module: tbrowse.prg
Called from : TBROWSE:PERFORMSTABILIZATION(2471) in Module: tbrowse.prg
Called from : TBROWSE:FORCESTABLE(2351) in Module: tbrowse.prg
Called from : _DOUSERFUNC(679) in Module: dbedit.prg
Called from : DBEDIT(449) in Module: dbedit.prg

solicitation
change query in USE command

Thanks
Fernando

[athayde]

correction of bug COMMIT:
STATIC FUNCTION ADO_FLUSH( nWA )

LOCAL oRecordSet := USRRDD_AREADATA( nWA )[ WA_RECORDSET ]

TRY
oRecordSet:Update()
CATCH
END

RETURN SUCCESS

[Antonio Linares]

Athayde,

Thanks for the COMMIT fix

[athayde]

Antonio,

it obtained, to see some thing on bug2 and 3?

[jrendon]

hola.

este error no lo puedo solucionar

undefined reference to `HB_FUN_HB_TOKENGET'

Saludos.

Perdon es en harbour

[jrendon]

hola.

este error no lo puedo solucionar

undefined reference to `HB_FUN_HB_TOKENGET'

Saludos.

Perdon es en harbour

creo que es por esta Lib hboleaut

al crear la lib me sale esto.

C:\harbour\harbour\contrib\ole2\win32ole.prg: In function `HB_FUN_HB_INLINE_001':
C:\harbour\harbour\contrib\ole2\win32ole.prg:669: error: `IEnumVARIANT' undeclared (first use in this function)
C:\harbour\harbour\contrib\ole2\win32ole.prg:669: error: (Each undeclared identifier is reported only once
C:\harbour\harbour\contrib\ole2\win32ole.prg:669: error: for each function it appears in.)
C:\harbour\harbour\contrib\ole2\win32ole.prg:669: error: `pEnumVariant' undeclared (first use in this function)
C:\harbour\harbour\contrib\ole2\win32ole.prg:669: error: syntax error before ')' token
C:\harbour\harbour\contrib\ole2\win32ole.prg:672: error: `RetVal' undeclared (first use in this function)
C:\harbour\harbour\contrib\ole2\win32ole.prg:672: error: `S_OK' undeclared (first use in this function)
C:\harbour\harbour\contrib\ole2\win32ole.prg:674: warning: implicit declaration of function `RetValue'
C:\harbour\harbour\contrib\ole2\win32ole.prg: In function `HB_FUN_HB_INLINE_002':
C:\harbour\harbour\contrib\ole2\win32ole.prg:688: error: `IEnumVARIANT' undeclared (first use in this function)
C:\harbour\harbour\contrib\ole2\win32ole.prg:688: error: `pEnumVariant' undeclared (first use in this function)
C:\harbour\harbour\contrib\ole2\win32ole.prg:688: error: syntax error before ')' token
C:\harbour\harbour\contrib\ole2\win32ole.prg: At top level:
C:\harbour\harbour\contrib\ole2\win32ole.prg:668: warning: 'HB_FUN_HB_INLINE_001' defined but not used
C:\harbour\harbour\contrib\ole2\win32ole.prg:687: warning: 'HB_FUN_HB_INLINE_002' defined but not used

utilizo Mingw como compilador de C

[sysctrl2]

la funcion HB_TOKENGET()

Es una funcion nueva de harbour.

con xharbour no hay problema ,

o como dice Antonio:

En vez de HB_TokenGet() puedes usar StrToken() de FWH.

Usa los mismos parámetros.


saludos..

[jrendon]

la funcion HB_TOKENGET()

Es una funcion nueva de harbour.

con xharbour no hay problema ,

o como dice Antonio:

En vez de HB_TokenGet() puedes usar StrToken() de FWH.

Usa los mismos parámetros.


saludos..

el detalle es que no uso FWH unicamente harbour

Saludos.

[jrendon]

hola.

este error no lo puedo solucionar

undefined reference to `HB_FUN_HB_TOKENGET'

Saludos.

Perdon es en harbour

creo que es por esta Lib hboleaut

al crear la lib me sale esto.

C:\harbour\harbour\contrib\ole2\win32ole.prg: In function `HB_FUN_HB_INLINE_001':
C:\harbour\harbour\contrib\ole2\win32ole.prg:669: error: `IEnumVARIANT' undeclared (first use in this function)
C:\harbour\harbour\contrib\ole2\win32ole.prg:669: error: (Each undeclared identifier is reported only once
C:\harbour\harbour\contrib\ole2\win32ole.prg:669: error: for each function it appears in.)
C:\harbour\harbour\contrib\ole2\win32ole.prg:669: error: `pEnumVariant' undeclared (first use in this function)
C:\harbour\harbour\contrib\ole2\win32ole.prg:669: error: syntax error before ')' token
C:\harbour\harbour\contrib\ole2\win32ole.prg:672: error: `RetVal' undeclared (first use in this function)
C:\harbour\harbour\contrib\ole2\win32ole.prg:672: error: `S_OK' undeclared (first use in this function)
C:\harbour\harbour\contrib\ole2\win32ole.prg:674: warning: implicit declaration of function `RetValue'
C:\harbour\harbour\contrib\ole2\win32ole.prg: In function `HB_FUN_HB_INLINE_002':
C:\harbour\harbour\contrib\ole2\win32ole.prg:688: error: `IEnumVARIANT' undeclared (first use in this function)
C:\harbour\harbour\contrib\ole2\win32ole.prg:688: error: `pEnumVariant' undeclared (first use in this function)
C:\harbour\harbour\contrib\ole2\win32ole.prg:688: error: syntax error before ')' token
C:\harbour\harbour\contrib\ole2\win32ole.prg: At top level:
C:\harbour\harbour\contrib\ole2\win32ole.prg:668: warning: 'HB_FUN_HB_INLINE_001' defined but not used
C:\harbour\harbour\contrib\ole2\win32ole.prg:687: warning: 'HB_FUN_HB_INLINE_002' defined but not used

utilizo Mingw como compilador de C

Resuelto este error solo me falta esto HB_TokenGet()

en que lib se encuentra ???

[Antonio Linares]

Code: Select all  Expand view

2007-05-12 10:48 UTC+0100 Antonio Linares (alinares@fivetechsoft.com)
   * contrib/adordd/adordd.prg
     * OrdCreate() fixed
     * OrdDestroy() implemented


www.fivetechsoft.com/files/adordd.zip