Função para retornar valores de uma query

[juniorocha 0]

Galera eu tenho uma função que faz uma consulta no Banco, como faço pra manipular esses resultados?

 

Estou fazendo da seguinte maneira, mas nao consigo pegar cada campo do registro

 

function getFeitos(codGrupo,codMembro,anoRef)
	query = "SELECT	tblFeitos.sDescricao AS sFeitos,tblItensResenha.iQtdeFeito AS iqtdFeitos,tblResenhas.iMesReferencia AS iMesRef,tblFeitos.iCodigo AS iCodFeitos"
	query = query + " FROM (Resenhas_desenv.dbo.viwMembros viwMembros INNER JOIN (Resenhas_desenv.dbo.viwLocais viwLocais INNER JOIN Resenhas_desenv.dbo.tblResenhas tblResenhas ON viwLocais.iCodigo=tblResenhas.iCodLocal) ON viwMembros.iCodigo=tblResenhas.iCodMembro)INNER JOIN ((Resenhas_desenv.dbo.tblGrupos tblGrupos INNER JOIN (Resenhas_desenv.dbo.tblAreas tblAreas INNER JOIN Resenhas_desenv.dbo.tblFeitos tblFeitos ON tblAreas.iCodigo=tblFeitos.iCodArea) ON tblGrupos.iCodigo=tblFeitos.iCodGrupo)INNER JOIN Resenhas_desenv.dbo.tblItensResenha tblItensResenha ON tblFeitos.icodigo=tblItensResenha.iCodFeito) ON tblResenhas.iCodigo=tblItensResenha.iCodResenha" 
	query = query + " WHERE tblItensResenha.iQtdeFeito>0 AND viwMembros.iCodigo=1 AND tblResenhas.iAnoReferencia=2008 AND tblGrupos.iCodigo = 17 ORDER BY viwLocais.sDescricao,tblAreas.sDescricao,tblGrupos.sDescricao,tblResenhas.iMesRe
ferencia,tblFeitos.sDescricao "
	set getFeitos = connresenha.execute(query)
end function

dados = getFeitos(1,1,1)


'AQUI EU CONSIGO PEGAR OS DADOS, MAS COMO FAZER PARA PEGAR DA SEGUINTE FORMA:
'it("sFeitos") ou it("iQtdFeitos")...
for each it in dados
 response.write it 
next

E com esse for each eu só consigo pegar as colunas da primeira linha, e as outras linhas, como eu pegaria?

Obrigado

[mibnetweb 0]

Quais são as colunas que estão retornando?

[juniorocha 0]

Quais são as colunas que estão retornando?

Esta retornando todas as colunas mas apenas da primeira linha

[mibnetweb 0]

O select vai retornar somente as colunas até a clausula "FROM". Se você precisa de que retorne mais colunas, precisa especificar elas na primeira linha.

 

Entendeu?

[juniorocha 0]

A query esta certa, qnd eu coloco no banco ele retorna direitinho,

é mais ou menos assim o resultado no banco:

 

 

MARIA 32232874 17/09/1987

JOSE 34362376 20/08/1982

JOAO 23349834 12/10/1980

 

o problema é com o foreach eu soh consigo acessar as colunas da primeira linha: MARIA 32232874 17/09/1987

eu queria um jeito de navegar entre todos os registros

vlwz

[mibnetweb 0]

Agora ficou claro ! :P

 

O ideal seria usar um recordset para navegar entre os registros.

[juniorocha 0]

Agora ficou claro ! :P

 

O ideal seria usar um recordset para navegar entre os registros.

é exatamente isso que eu to tentando fazer hehe

qnd eu seto o record set dentro da função, como faço pra chamar ele fora?

nao ta dando certo =/

tow endoidando aki ja hehe

[hargon 64]

Qual a finalidade?

 

Faça assim:

Public Dados

Sub pegaDados(a,b,c)
  query = "SELECT dados FROM tabela"
  set Dados = conn.execute(query)
End Sub

'eu queria q essa variavel dados fosse um recordset
Call pegaDados(a,b,c)