ADS -> Optimizacion de consultas SQL

[Carles]

Hola,

El siguiente codigo es ejecutado con FWH y funciona perfecto, pero si ejecuto una query con ARC32 ( Tools->Native SQL) el resultado es muchiiisimo mas rapido. Mi Pregunta es: Se puede optimizar la ejecucion de las funciones de SQL en ADS ?

Code: Select all  Expand view

#include "ads.ch"
#include "fivewin.ch"    

*--------------
FUNCTION main()
*--------------
    LOCAL cServer  := "\\BSD001\Test"
    LOCAL consulta := "Select * from Test where age > 90"
    LOCAL cTxt     := ''

    RddRegister("ADS",1)
    RddSetDefault("ADS")
    AdsSetServerType ( 2 )
    SET FILETYPE TO CDX


    AdsConnect( cServer , 2 )

    IF ! ADSCreateSQLStatement("SQLarea",2)  // 2 == ADS_CDX
       MsgAlert( "ADSCreateSQLStatement('SQLarea',2)" )
       RETU .F.
    ENDIF

    IF ADSExecuteSQLDirect( consulta )

       FOR nI := 1 TO 20

           cTxt += sqlarea->first + ' ' + sqlarea->last + ' ' + sqlarea->street + ' ' + str( sqlarea->age ) + CRLF
                   sqlarea->( DbSkip() )

       NEXT

       msgInfo( cTxt )

    ENDIF

    AdsDisconnect(AdsGetConnectionHandle())

    sqlarea -> ( DBCLOSEAREA() )

RETU NIL


Muchas gracias
Carlos.

[dbzap]

El server que tu indicas en una carpeta de tablas DBF ?

[Carles]

Hola,

No entiendo tu pregunta. Se pretende trabajar contra servidor, no en modo local.

Saludos.
C.

[dbzap]

no importa que sea un server ADS, la pregunta es si las tablas son archivos DBF o si es un server SQL, por ejemplo Microsoft SQL Server.
Eso.

[wmormar]

no importa que sea un server ADS, la pregunta es si las tablas son archivos DBF o si es un server SQL, por ejemplo Microsoft SQL Server.
Eso.

Si es Advantage, son base de datos DBF, advantage te da la ventaja SQL.

[Carles]

Hola,

No me explicado bien. Voy a intentarlo de nuevo

Quiero saber si contra un server ADS, y usando las funciones propias de ADS, como ADSExecuteSqlDirect(), se puede alcanzar la velocidad de ejecucion del ACE32 cuando se realizan las querys.

A modo de ejemplo, el test de arriba se me ejecuta en aproximadamente 6 segundos con la base test.dbf y 100000 registros, mientras que con Ace32 esta 0.7 seg. Partiendo de la base, que Ace32 no utiliza ni ODBC ni otros componentes de acceso a datos, (q yo sepa), me gustaria saber la diferencia.

No lo he probado via ODBC, pero la idea es usar solo las funciones ACE.

Gracias por vuestro soporte.

[Marcelo Via Giglio]

Hola,

probaste con utilizar otro formato para el resultado

ADSCreateSQLStatement("SQLarea",n) 1,2,3

seria interesante ver como cambia esto, por otra parte el tiempo que das, lo 6 segundos es tomando en cuenta el tiempo de conexion previa a la consulta o solo la consulta

saludos

Marcelo

[Carles]

Hola Marcelo,

1.- El 2º parametro es el tipo de tabla, siendo 2 == DBF_CDX (eso creo, ahora me haces dudar)

2.- El tiempo aprox. lo calculo sencillamente

Code: Select all  Expand view

nInicio := Seconds()
ADSExecuteSQLDirect( consulta )
MsgInfo( Seconds() - nInicio )


No se si la gente esta usando esta funcion contra servidor que va de maravilla, pero es q jode ver como en el ARC32 vuela, al lado de la tuya. Pensaba que ARC32 usaba las mismas funciones del ACE.

Gracias por tu ayuda.

[Marcelo Via Giglio]

Hola Marcelo,

1.- El 2º parametro es el tipo de tabla, siendo 2 == DBF_CDX (eso creo, ahora me haces dudar)

Era para saber si afectava en que formato recibes el resultado, pueda que alli esta algo de la respuesta

No se si la gente esta usando esta funcion contra servidor que va de maravilla, pero es q jode ver como en el ARC32 vuela, al lado de la tuya. Pensaba que ARC32 usaba las mismas funciones del ACE.

Yo, utilizo SQL de manera nativa con ADS, es realmente comodo y muy potente.

Haber que resultados sacas de tu investigacion, por otra parte estaria analizar el codigo fuente de ARC y/o hacer un peque~no ejemplo con Delphi que haga la misma consulta para ver si se optiene o no la misma velocidad del ARC, si es asi, significaria que el problema esta en la implementacion del API de ADS en xHarbour o Harbour o que falta algun parametro u opcion en la aplicacion, quien sabe RF pueda darnos ideas

saludos

Marcelo

[R.F.]

Carles:

Una pregunta.... y creo que tiene que ver con la forma en que estas trabajando.... ¿tienes indice asignado para esa tabla DBF ?

[Carles]

Hola a todos,

Marcelo:

1.- He probado en ADSCreateSQLStatement("SQLarea",2), todos los parametros posibles, y realmente solo funciona con el 2 (ADS_CDX)

Yo, utilizo SQL de manera nativa con ADS, es realmente comodo y muy potente.

Pero de manera nativa, te refieres instalando el driver ODBC, no ?. Justamente, quiero evitar q el cliente se tenga de instalar y parametrizar el Odbc.

Quizas otra manera seria probar la coña del ADO, pero me parece q tambien implica instalar en cada cliente algun componente, no se , no experimentado. Habeis hecho alguna prueba con ADO con reultado satisfactorio ? (siempre hablamos de ADS, eh )

Rene:

El ejemplo de arriba tanto si lo ejecutas con una tabla con indice como sin indice, tarda lo mismo. Uhmm no se. Quizas me estoy metiendo en un tema q no tiene solución.

Todo parte de la idea que desde un solo exe, obtener esta potente funcionalidad como hace el ARC32. Tendre obsesion con este tipo

Gracias por vuestras ideas.

[Carles]

Hola,

He instalado el ODBC de ADS para realizar test. El resultado sobre 100000 registros es para la Sql "Select first, last, age from test where age > 90"

1.- Si quiero los una pagina de 30 registros -> 0.2 seg.
2.- Si selecciono todos los registros de la condicion (11.000 +-) -> 2.5 seg.

El driver de ADS realmente va muy rapido, pero se sale del objetivo de jugar con las funciones nativas.

[fgondi]

Hola Carles,

Por dos motivos va mas rapido ARC32 que el programa.

1. La consultas SQL "Select * from Test where age > 90" no necesita hacer una sql. Lo que hace es abrir la tabla ADT con un filtro. Se puede comprobar si hace esto, porque los nombres de los campos aparecen en mayúscula. En caso contrario, necesita ejecutar la SQL, se ven en minúscula

2. y mas importante. En caso de tener que hacer la SQL devuelve sólo los primeros 20 +- registros. Al dar Ctrl+Fin calcularía toda la sql y se vería el tiempo real que tarda.

Recuerda que al ejecutarlo con ADSExecuteSQLDirect, lo que tiene que hacer es ejecutar toda la sql, no sólo los 20 primeros registros y introducirlos en un tabla temporal para poder usarlo en el programa.

[Carles]

Hola Fernando,

Por dos motivos va mas rapido ARC32 que el programa.

1. La consultas SQL "Select * from Test where age > 90" no necesita hacer una sql. Lo que hace es abrir la tabla ADT con un filtro...

Entiendo q ARC32 abre una tabla en formato ADT ? Como puede ser si la tabla es una dbf normal y corriente ? No se si me explico. Cuando tu haces una query normal...



arc32 no creo q abra la dbf y le pone un filtro. O si ? Tampoco creo q abra usando ODBC porque si no tienes el driver instalado funciona igual. Mi pregunta es, como poder emular la velocidad de arc32 sin tener q usar ODBC y ADO. Crees q se puede ?

Gracias por tu opinion

[fgondi]

Hola,

Aunque lo que abras sea una dbf, lo que abres es la DBF, no una consulta sobre la DBF. Esto lo hace si trabajas en modo Server, no en modo local.

Comprueba como, por ejemplo, te deja cambiar los valores que te ha devuelto. Si fuera una SQL no permitiría cambiar los valores.

Prueba ejecutando:
"Select {STATIC} frist, last, street, age FROM test WHERE age>90".
o cualquier consulta que unas tablas, esas no se dejan editar.

Code: Select all  Expand view

Mi pregunta es, como poder emular la velocidad de arc32 sin tener q usar ODBC y ADO. Crees q se puede ?

Yo no conseguí lograrlo.

De todas formas, recuerda que tiene que generar una DBF temporal para devolverto en el alias que indicas, y ahí es donde esta el tiempo. Cuando mas campos pidas y mas registros tenga de devolver mas lento irá.

Mi consejo:
Pide los campos indices, única y exclusivamente en la consulta. Luego el resto de los datos optenlos a traves de buscarlos en la DBF original

Code: Select all  Expand view

LOCAL consulta := "Select frist from Test where age > 90"

Code: Select all  Expand view

FOR nI := 1 TO 20
     Test->( DbSeek(SqlArea->Frist) )
     cTxt += sqlarea->first + ' ' + Test->last + ' ' + Test->street + ' ' + str( Test->age ) + CRLF
     sqlarea->( DbSkip() )
NEXT

Siendo "Test" el alias de la dbf previamente abierta sin ningun tipo de filtro aplicado y "frist" el campo indice de la misma