Jogar conteúdo de um select para uma array

[Luiz FERNANDO 41]

Sera que é possível jogar de forma automático todo conteúdo de um select em uma array, sem ter que passar por um WHILE SQLFetch, e alimentar registro a registro

 

sS_CmdSQL =

[

	 SELECT k.codigo,k.saldo,k.sql_rowid

	 FROM kardex k

	 INNER JOIN

	 (SELECT MAX(sql_rowid) AS sql_rowid

	 FROM kardex WHERE setor = %1 

	 AND codigo IN ( %2 )

	 GROUP BY codigo) groupedk

	 ON k.sql_rowid = groupedk.sql_rowid 

]



sS_CmdSQL = StringBuild(sS_CmdSQL, sProduto )    



IF SQLExec(sS_CmdSQL,"aSQL")=False THEN

	SQLInfo("aSQL")

	sS_Mensagem=SQL.MesErreur

	Info(sS_Mensagem)

	SQLClose("aSQL")

	RETURN

END



i=1

WHILE SQLFetch("aSQL") = 0 

	arrItens[i,1]=SQLGetCol("aSQL",1)

	arrItens[i,2]=val(SQLGetCol("aSQL",2))

	i++ 

	Dimension(arrItens, i, 22)

END

Obg

Edited June 4, 2020 by Luiz FERNANDO

[Cassiano 117]

Que eu saiba não, se tiver maravilha... mas nada impede de vc criar uma função genérica q recebe o script e monta um array pra vc com o retorno

[Ananias Guerra 26]

Já deu uma olhada se a função FileToMemory(<Name of instance of structure or class> , <File name>) resolve ?
<Name of instance of structure or class> -> aqui entra o array
<File name> -> nome da query

[Luiz FERNANDO 41]

Em 05/06/2020 at 8:38 AM, Ananias Guerra disse:

Já deu uma olhada se a função FileToMemory(<Name of instance of structure or class> , <File name>) resolve ?
<Name of instance of structure or class> -> aqui entra o array
<File name> -> nome da query

Colega obg pela resposta, acho que o caminho é por ai mesmo, tentando acertar a sintaxe aqui.

 FileToArray(arrItens,SQLFetch("aSQL"))

assim que conseguir retorno aqui