FiveTech Software tech support forums

www.FiveTechSoft.com
https://forums.fivetechsupport.com/

Nuevo AdoRDD (libre)

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=6815

Page 9 of 18

PostPosted: Fri May 11, 2007 12:19 am
by 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

PostPosted: Fri May 11, 2007 4:42 am
by Antonio Linares
Is this ok for your table ?

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

PostPosted: Fri May 11, 2007 7:10 am
by 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,

PostPosted: Fri May 11, 2007 7:51 am
by José Luis Sánchez
Ya lo he hecho andar. Impresionante.
Gracias y enhorabuena a Antonio, Fernando y los demás por este trabajo.

Saludos,

PostPosted: Fri May 11, 2007 12:08 pm
by athayde
yes Antonio, cgcfo and codifo, exists in a table

Thanks
Fernando
Brazil

PostPosted: Fri May 11, 2007 1:00 pm
by 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

PostPosted: Fri May 11, 2007 1:22 pm
by athayde
correction of bug COMMIT:
STATIC FUNCTION ADO_FLUSH( nWA )

LOCAL oRecordSet := USRRDD_AREADATA( nWA )[ WA_RECORDSET ]

TRY
oRecordSet:Update()
CATCH
END

RETURN SUCCESS

PostPosted: Fri May 11, 2007 4:07 pm
by Antonio Linares
Athayde,

Thanks for the COMMIT fix

PostPosted: Fri May 11, 2007 6:57 pm
by athayde
Antonio,

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

error

PostPosted: Fri May 11, 2007 8:32 pm
by jrendon
hola.

este error no lo puedo solucionar

undefined reference to `HB_FUN_HB_TOKENGET'

Saludos.

Perdon es en harbour

Re: error

PostPosted: Fri May 11, 2007 9:39 pm
by jrendon
jrendon wrote: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

PostPosted: Fri May 11, 2007 9:43 pm
by 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..

PostPosted: Fri May 11, 2007 10:57 pm
by jrendon
sysctrl2 wrote: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.

Re: error

PostPosted: Fri May 11, 2007 11:56 pm
by jrendon
jrendon wrote:
jrendon wrote: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 ???

PostPosted: Sat May 12, 2007 9:04 am
by 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
All times are UTC
Page 9 of 18
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/