Nuevo AdoRDD (libre)

Post Reply
athayde
Posts: 33
Joined: Wed May 09, 2007 6:44 pm

Post 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
Top
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Post by Antonio Linares »

Is this ok for your table ?

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

Antonio Linares
www.fivetechsoft.com
Top
User avatar
José Luis Sánchez
Posts: 484
Joined: Thu Oct 13, 2005 9:23 am
Location: Novelda - Alicante - España
Contact:
Contact José Luis Sánchez

Post 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,
Top
User avatar
José Luis Sánchez
Posts: 484
Joined: Thu Oct 13, 2005 9:23 am
Location: Novelda - Alicante - España
Contact:
Contact José Luis Sánchez

Post 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,
Top
athayde
Posts: 33
Joined: Wed May 09, 2007 6:44 pm

Post by athayde »

yes Antonio, cgcfo and codifo, exists in a table

Thanks
Fernando
Brazil
Top
athayde
Posts: 33
Joined: Wed May 09, 2007 6:44 pm

Post 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
Top
athayde
Posts: 33
Joined: Wed May 09, 2007 6:44 pm

Post 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
Top
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Post by Antonio Linares »

Athayde,

Thanks for the COMMIT fix
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
athayde
Posts: 33
Joined: Wed May 09, 2007 6:44 pm

Post by athayde »

Antonio,

it obtained, to see some thing on bug2 and 3?
Top
jrendon
Posts: 12
Joined: Thu May 10, 2007 3:34 am

error

Post by jrendon »

hola.

este error no lo puedo solucionar

undefined reference to `HB_FUN_HB_TOKENGET'

Saludos.

Perdon es en harbour
Juan Rendon
Saludos.
desde Mazatlán, Sinaloa. Mexico
Top
jrendon
Posts: 12
Joined: Thu May 10, 2007 3:34 am

Re: error

Post 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
Juan Rendon
Saludos.
desde Mazatlán, Sinaloa. Mexico
Top
User avatar
sysctrl2
Posts: 833
Joined: Mon Feb 05, 2007 7:15 pm
Contact:
Contact sysctrl2

Post 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..
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
Top
jrendon
Posts: 12
Joined: Thu May 10, 2007 3:34 am

Post 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.
Juan Rendon
Saludos.
desde Mazatlán, Sinaloa. Mexico
Top
jrendon
Posts: 12
Joined: Thu May 10, 2007 3:34 am

Re: error

Post 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 ???
Juan Rendon
Saludos.
desde Mazatlán, Sinaloa. Mexico
Top
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Post by Antonio Linares »

Code: Select all

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
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
Post Reply

Return to “FiveWin para Harbour/xHarbour”