FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Nuevo AdoRDD (libre)
cometa855
Posts: 9
Joined: Wed May 09, 2007 12:28 AM
OK,
Posted: Wed May 09, 2007 07:37 PM

Hola Cesar, te agradesco de antemano tu disposicion, esta muy ineteresante este RDD de Antonio, lo incorporare a mis aplicaciones, tengo muchas aplicaciones hechas con harbour, y con este nuevo RDD hay mucho futuros para todos los programadores Xbase.

y por supuesto que las "carnes" jarochas estan muy buenas, solo que hay que tener cuidado, no te vaya a salir una con "premio", jeje,,,

Saludos desde el Bello Puerto Jarocho
Mauro S,

wmormar
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Re: OK,
Posted: Wed May 09, 2007 07:42 PM
cometa855 wrote:Hola Cesar, te agradesco de antemano tu disposicion, esta muy ineteresante este RDD de Antonio, lo incorporare a mis aplicaciones, tengo muchas aplicaciones hechas con harbour, y con este nuevo RDD hay mucho futuros para todos los programadores Xbase.

y por supuesto que las "carnes" jarochas estan muy buenas, solo que hay que tener cuidado, no te vaya a salir una con "premio", jeje,,,

Saludos desde el Bello Puerto Jarocho
Mauro S,


Mauro, totalmente de acuerdo sobre las "carnes" jarochas

jjejjejjejje
William, Morales

Saludos



m茅xico.sureste
cometa855
Posts: 9
Joined: Wed May 09, 2007 12:28 AM
CLARO que si
Posted: Wed May 09, 2007 08:16 PM

Claro que si, PERO las TABASQUE脩AS no se qudan atras, creo cambiare a la Jarocha que tengo por una Tabasque帽a je je je je

saludos cordiales a todos, y regresemos al tema del RDD , no creen?

Bye

Mauro S,

sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Nuevo AdoRDD (libre)
Posted: Wed May 09, 2007 10:46 PM

jeje,,
solo era un comentario,,

mauro, me ha ido mejor con xharbour.org

aunque de un inicio, tambien trabaje con harbour

...

saludos..

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Vikthor
Posts: 298
Joined: Fri Oct 07, 2005 05:20 AM
Nuevo AdoRDD (libre)
Posted: Thu May 10, 2007 03:50 AM
Antonio :

Actualice la clase del CVS y al hacer un "USE" me muestra el siguiente error.

Error.ADOX.Catalog:KEYS/16389 E_FAIL: COUNT from Errorsys,line: 0

Estoy usando mySQL y el ejemplo es muy sencillo :

Code: Select all Collapse
   USE system VIA "ADORDD" TABLE "producto" MYSQL ;
      FROM "localhost" USER "root" PASSWORD "12345"
   Browse()
   USE


dando una revisada r谩pida al c贸digo fuente, el error se produce en esta funci贸n
Code: Select all Collapse
static function ADO_CLEARREL( nWA )

   local nKeys := 0, cKeyName

*   if s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys != nil
*      nKeys = s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys:Count
*   endif

*   if nKeys > 0
*      cKeyName = s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys( nKeys - 1 ):Name
*      if Upper( cKeyName ) != "PRIMARYKEY"
*         s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys:Delete( cKeyName )
*      endif
*   endif

return SUCCESS


De momento lo 煤nico que hice fue comentarla.

En cuanto tenga la soluci贸n la p煤blico o si ustedes la tienen antes favor de avisarme:
Vikthor
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Nuevo AdoRDD (libre)
Posted: Thu May 10, 2007 05:55 AM
Vikthor,

Prueba as铆:
Code: Select all Collapse
static function ADO_CLEARREL( nWA ) 

   local nKeys := 0, cKeyName 

   if s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys != nil 
      TRY 
         nKeys = s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys:Count 
      CATCH
      END
   endif 

   if nKeys > 0 
      cKeyName = s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys( nKeys - 1 ):Name 
      if Upper( cKeyName ) != "PRIMARYKEY" 
         s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys:Delete( cKeyName ) 
      endif 
   endif 

return SUCCESS
regards, saludos

Antonio Linares
www.fivetechsoft.com
athayde
Posts: 33
Joined: Wed May 09, 2007 06:44 PM
Nuevo AdoRDD (libre)
Posted: Thu May 10, 2007 12:30 PM

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

oADO:Close()

RETURN SUCCESS // UR_SUPER_CLOSE( nWA )

athayde
Posts: 33
Joined: Wed May 09, 2007 06:44 PM
Nuevo AdoRDD (libre)
Posted: Thu May 10, 2007 12:36 PM

i have 1 field char (5) in mysql, when consulting a field, return "" it would have return " " ( spac(5) )
in another case the field be with "123", and return "123" it would have return "123 " ( "123"+spac(2) )
because hte field is char and not varchar

Thanks
Fernando

athayde
Posts: 33
Joined: Wed May 09, 2007 06:44 PM
Nuevo AdoRDD (libre)
Posted: Thu May 10, 2007 01:49 PM

how do you clean locate?
because i make a locate ex:
LOCATE FOR "codius LIKE '01'"
after in another option in software make
LOCATE FOR "codiapl LIKE '02'"
when runs a second LOCATE appears a error:
Error ADODB.Recordset/16389 E_FAIL: FIND Arguments: ( [ 1] = Type: C Val: codius LIKE '01' [ 2] = Type: N Val: 0)

Error at ...: TOLEAUTO:FIND(0) in Module: win32ole.prg
Called from : ADO_LOCATE(657) in Module: ADORDD.PRG
Called from : __DBLOCATE(0) in Module:

Thanks

Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Nuevo AdoRDD (libre)
Posted: Thu May 10, 2007 03:50 PM

Athayde,

Usa esta nueva versi贸n del ADORDD:

www.viaopen.com/files/adordd.zip

regards, saludos

Antonio Linares
www.fivetechsoft.com
athayde
Posts: 33
Joined: Wed May 09, 2007 06:44 PM
Nuevo AdoRDD (libre)
Posted: Thu May 10, 2007 06:57 PM

thanks, resolve very problems

but this continue
i have 1 field char (5) in mysql, when consulting a field, return "" it would have return " " ( spac(5) )
in another case the field be with "123", and return "123" it would have return "123 " ( "123"+spac(2) )
because hte field is char and not varchar

and
INDEX ON field TO X (not error, but not indexed)

and change this alteration for querys:
IF EMPTY(SUBS(aWAData[ WA_QUERY ],AT("FROM ",aWAData[WA_QUERY ])+5))
oRecordSet:Open( aWAData[ WA_QUERY ] + aWAData[WA_TABLENAME ], aWAData[ WA_CONNECTION ] )
ELSE
oRecordSet:Open( aWAData[ WA_QUERY ], aWAData[WA_CONNECTION ] )
ENDIF

but have a problem, when use tables with query, shes don't close

athayde
Posts: 33
Joined: Wed May 09, 2007 06:44 PM
Nuevo AdoRDD (libre)
Posted: Thu May 10, 2007 07:11 PM

all SET ORDER now appears how "not supported"

sorry, but i be testing this rdd

athayde
Posts: 33
Joined: Wed May 09, 2007 06:44 PM
Nuevo AdoRDD (libre)
Posted: Thu May 10, 2007 07:12 PM

erro after COMMIT
Error ADODB.Recordset/16389 E_FAIL: UPDATE Arguments: ()

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

athayde
Posts: 33
Joined: Wed May 09, 2007 06:44 PM
Nuevo AdoRDD (libre)
Posted: Thu May 10, 2007 08:25 PM

how i do a LOCATE
LOCATE FOR "field=variable .AND. field<>variable"

Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Nuevo AdoRDD (libre)
Posted: Thu May 10, 2007 08:46 PM

LOCATE FOR "field='" + variable + "'.AND. field<>'" + variable +"'"

regards, saludos

Antonio Linares
www.fivetechsoft.com
Static archive 路 New replies & topics via GitHub Discussions