recuperar dados BD e jogar num array bidimensional

[brunogatti 0]

Quero recuperar tres dados do BD e colcoar em um array...

 

por enquanto so tenho um valor:

....

Dim vetor
vetor = array()
while not rs.eof 
Set pessoa = Conn.execute ("Select matricula from MATRICULA where CodPessoa = ('"&codigopessoa&"')")
		ReDim preserve vetor ( UBound( vetor )+1)
		vetor ( Ubound( vetor ) ) = pessoa("matricula")
		ReDim preserve vetor ( UBound( vetor )+1) 
rs.Movenext
wend

....

Quero passar tres valores para o array() "vetor", passando a ser bidimensional

 

Como faço isso???

 

O select passaria para

 

Set pessoa = Conn.execute ("Select matricula, nome, lotacao from MATRICULA where CodPessoa = ('"&codigopessoa&"')")

 

Valeu!

[jrcardozo 4]

veja esse exemplo:

 

redim preserve arrayX(5, uBound(arrayX, 2)+1)

arrayX(0, uBound(arrayX, 2)) = "valor1"

arrayX(1, uBound(arrayX, 2)) = "valor2"

arrayX(2, uBound(arrayX, 2)) = "valor3"

[brunogatti 0]

Valeu pela ajuda!

 

descobri que ha uma outra maneira de jogar o resultado do rs para um array usando array.getRows()

 

meu código esta assim:

 

while not rs.eof

codigopessoa = rs("pfuCodPessoa")

Set pessoa = Conn.execute ("Select matricula, mnome from MATRICULA_EXTERNA where CodPessoa = ('"&codigopessoa&"')")

vetor = pessoa.getRows()

For Each item In vetor

Response.Write(item & "<br />")

Next

rs.Movenext

wend

 

Porém tenho o seguinte resultado:

 

1

José

2

Maria

3

João

 

Cada valor que esta no banco aparece em uma linha...

Queria imprimir o seguinte:

 

1 josé

2 Maria

3 João

[Faru 0]

É só usar o RecordSet

 

Sql = "Select matricula from MATRICULA where CodPessoa = "&codigopessoa
Set RS = Sql, Conn, 1, 2

If Not Rs.Eof Then
 Response.Write Rs("Campo01")&" "&Rs("Campo02")&" "&Rs("Campo03")
End If

Agora é só aplicar como achar melhor no seu caso.

[Salgado 4]

Para isso você não deverá o laço FOR EACH e sim o laço FOR usando o LBOUND e UBOUND do array. Dê uma pesquisada aqui mesmo por essas funções, se ão encontrar algo mando uma base do código.