Nuevo AdoRDD (libre)

cometa855
Posts: 9
Joined: Wed May 09, 2007 12:28 am
Contact:

OK,

Post by cometa855 »

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,
User avatar
wmormar
Posts: 1050
Joined: Fri Oct 07, 2005 10:41 pm
Location: México
Contact:

Re: OK,

Post by wmormar »

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
Contact:

CLARO que si

Post by cometa855 »

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,
User avatar
sysctrl2
Posts: 833
Joined: Mon Feb 05, 2007 7:15 pm
Contact:

Post by sysctrl2 »

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 "
User avatar
Vikthor
Posts: 271
Joined: Fri Oct 07, 2005 5:20 am
Location: México

Post by Vikthor »

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

   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

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

Post by Antonio Linares »

Vikthor,

Prueba así:

Code: Select all

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 6:44 pm

Post by athayde »

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 6:44 pm

Post by athayde »

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 6:44 pm

Post by athayde »

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

Post by Antonio Linares »

Athayde,

Usa esta nueva versión del ADORDD:

www.noway.com/files/adordd.zip
regards, saludos

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

Post by athayde »

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 6:44 pm

Post by athayde »

all SET ORDER now appears how "not supported"

sorry, but i be testing this rdd
athayde
Posts: 33
Joined: Wed May 09, 2007 6:44 pm

Post by athayde »

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 6:44 pm

Post by athayde »

how i do a LOCATE
LOCATE FOR "field=variable .AND. field<>variable"
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

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

Antonio Linares
www.fivetechsoft.com
Post Reply