FiveTech Software tech support forums

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,

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

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,

jeje,,
solo era un comentario,,

mauro, me ha ido mejor con xharbour.org

aunque de un inicio, tambien trabaje con harbour

...

saludos..

Antonio :

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

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

Estoy usando mySQL y el ejemplo es muy sencillo :

Code: Select all  Expand view

   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  Expand view

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,

Prueba así:

Code: Select all  Expand view

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


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

oADO:Close()

RETURN SUCCESS // UR_SUPER_CLOSE( nWA )

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

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

Athayde,

Usa esta nueva versión del ADORDD:

www.noway.com/files/adordd.zip

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

all SET ORDER now appears how "not supported"

sorry, but i be testing this rdd

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:

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

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