AYUDA CON SQLRDD

[Angel_Miguel]

HOLA A TODOS LOS AMIGOS DE ESTE GRAN FORO, QUISIERA CONTACTARME CON USUARIOS QUE USAN SQLRDD COMO SOPORTE PARA ATACAR BASES DE DATOS ESPECÍFICAMENTE MYSQL Y TENGO UN COMPORTAMIENTO EXTRAÑO EN LA APERTURA DE BASE DE DATOS. POR EJEMPLO:

USE CCC SHARED ALIAS BASES NEW
SET INDEX TO "TABLA"
BASES->(DBSETORDER(1))
SELECT BASES
CLOSE BASES
USE CCC SHARED ALIAS BASES NEW

Y TENGO COMO RESULTADO EL SIGUIENTE ERROR:

Error description: Error BASE/1081 Error de argumento: +
Args:
[ 1] = C {
[ 2] = A { ... }

Stack Calls
===========
Called from: ..\source\sqlrdd2.prg => SR_WORKAREA:SQLOPENALLINDEXES(1316)
Called from: => DBUSEAREA(0)
Called from: Source\gesfarma.prg => MAIN(93)
Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes

QUISIERA SABER SI ALGUIEN ME PUEDE INDICAR COMO ES LA FORMA DE APERTURA MAS OPTIMA USANDO SQLRDD O INDICARME LOS TIPS PARA EL USO DEL SQLRDD.

[devtuxtla]

Hola Angel.

Intenta con las siguientes instrucciones ( reemplaza los nombres de tus tablas )

IF SR_EXISTTABLE("BASES")
USE "BASES" ALIAS BA NEW VIA "SQLRDD"
IF ! SR_EXISTINDEX("BASES")
SET INDEX TO MICAMPO TAG "BASES" TO "BASES"
ENDIF
BA->(DBSETORDERTO(1))
// TAMBIEN PUEDES UTILIZAR: SET ORDER TO TAG "BASES"
ENDIF


Saludos

[devtuxtla]

Hola Angel

Rectifico:

IF SR_EXISTTABLE("BASES")
USE "BASES" ALIAS BA NEW VIA "SQLRDD"
IF ! SR_EXISTINDEX("BASES")
INDEX ON MICAMPO TAG "BASES" TO "BASES"
ENDIF
BA->(DBSETORDERTO(1))
// TAMBIEN PUEDES UTILIZAR: SET ORDER TO TAG "BASES"
ENDIF

Saludos