Tdolphin y el fillarray

[goosfancito]

Hola.

Code: Select all  Expand view  RUN

aPaises := oCn:Execute( "select pais from paises" )

esto me trae un ARRAY con varias columnas, yo necesito solamente la columna de del dato de "pais" no con todo el resto,
como deberia de hacerlo?

gracias.

[nageswaragunupudi]

Hola.

Code: Select all  Expand view  RUN

aPaises := oCn:Execute( "select pais from paises" )

esto me trae un ARRAY con varias columnas, yo necesito solamente la columna de del dato de "pais" no con todo el resto,
como deberia de hacerlo?

gracias.

Are you asking the question about TDolphin?

With TDolphin, oCn:Execute( query ) returns a logical value, success of failure of execution of the query. This does not return an array.

If you are using this with FWH MySql library, then

Code: Select all  Expand view  RUN

oCn:Execute( "select pais from paises" )
 

returns an array with single column.

[goosfancito]

I asking with tDolphin

Thanks

[cmsoft]

Hola Gustavo:
Prueba con el siguiente codigo en TDolphin

Code: Select all  Expand view  RUN

aPaises:= oCn:Query("SELECT pais FROM paises"):FillArray(,{"pais"})
 

Para ser mas claro, podrias tener una consulta con varios campos y llenar un arreglo con cualquier campo que tengas en la consulta

Code: Select all  Expand view  RUN

oQry:= oCn:Query("SELECT codigo,pais,continente FROM paises"
aPaises:= oQry:FillArray(,{"pais"})
aCodigos := oQry:FillArray(,{"codigo"})
 

Espero te sirva

[MGA]

/******************************************************************************************************************/
function QueryRetornaArray( cQuery, oServerAuxiliar )
/*
*/
local aDados, oQryArray

Default oServerAuxiliar := M->oServer

if HB_IsNil(oServerAuxiliar)
oServerAuxiliar := M->oServer
endif

oQryArray := oServerAuxiliar:Query( cQuery )
aDados := oQryArray:FillArray()

oQryArray:End()

return(aDados)

[goosfancito]

gracias a ambos.

pero... no me devuelve esto:
adato[1]
adato[2]
adato[3]

sino esto:

adatos[1][1]
adatos[1][2]
....

y lo que necesito es solo los "nombres" no con toda la informacion adicional. se Entiende?

gracias.

[nageswaragunupudi]

Code: Select all  Expand view  RUN

aPaises:= oQry:FillArray(,{"pais"})
aPaises := ArrTransform( aPaises )[ 1 ]

[goosfancito]

esa no sabia. gracias