Page 8 of 18
OK,
Posted: Wed May 09, 2007 7:37 pm
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,
Re: OK,
Posted: Wed May 09, 2007 7:42 pm
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
CLARO que si
Posted: Wed May 09, 2007 8:16 pm
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,
Posted: Wed May 09, 2007 10:46 pm
by sysctrl2
jeje,,
solo era un comentario,,
mauro, me ha ido mejor con xharbour.org
aunque de un inicio, tambien trabaje con harbour
...
saludos..
Posted: Thu May 10, 2007 3:50 am
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 | Expand
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
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:
Posted: Thu May 10, 2007 5:55 am
by Antonio Linares
Vikthor,
Prueba así:
Code: Select all | Expand
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
Posted: Thu May 10, 2007 12:30 pm
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 )
Posted: Thu May 10, 2007 12:36 pm
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
Posted: Thu May 10, 2007 1:49 pm
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
Posted: Thu May 10, 2007 3:50 pm
by Antonio Linares
Athayde,
Usa esta nueva versión del ADORDD:
www.noway.com/files/adordd.zip
Posted: Thu May 10, 2007 6:57 pm
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
Posted: Thu May 10, 2007 7:11 pm
by athayde
all SET ORDER now appears how "not supported"
sorry, but i be testing this rdd
Posted: Thu May 10, 2007 7:12 pm
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:
Posted: Thu May 10, 2007 8:25 pm
by athayde
how i do a LOCATE
LOCATE FOR "field=variable .AND. field<>variable"
Posted: Thu May 10, 2007 8:46 pm
by Antonio Linares
LOCATE FOR "field='" + variable + "'.AND. field<>'" + variable +"'"