[resolvido] Criar Vetor

[®HEX®]

Boa Noite Pessoal to com um problema q é o seguinte:

Esse codigo busca as informações no banco de acordo com o "codp",

depois no while ele soma os valores da tabela Voto

gostaria de saber como pegar cada valor da tebela voto individualmente...

sei que é atraves de um vetor mas não tenho ideia de como criar esse vetor...

se alguém puder me dar uma luz fico grato...

SQLt="select Voto from Voto where CodPerg="&codp&""
set Rst=conn.Execute(SQLt)
Total=0

    while not Rst.EOF
    Total=Total+Rst("Voto")
    Rst.MoveNext
    Wend

desde já agradeço :D

[ADL]

você pode criar um vetor assim:


Dim DiaSemana(7) ' essa é a declaração

'você pode atribuir dados ao vetor assim:

DiaSemana(1) ="Domingo"
DiaSemana(2) ="Segunda"
DiaSemana(3) = "Terça-Feira"
DiaSemana(4) = "Quarta-Feira"
'E assim sucessivamente.
Espero ter ajudado.

Editado Setembro 11, 2007 por ADL

[®HEX®]

Obrigado ADL Ajudou sim e bastante... :D

fiz assim...

SQLt="select Voto from Voto where CodPerg="&codp&""

set Rst=conn.Execute(SQLt)

Total=0

Dim Vetor(3)

i = 0

while not Rst.EOF

Total=Total+Rst("Voto")

Vetor(i)=Rst("Voto")

i = i + 1

Rst.MoveNext

wend

'Depois foi so armazenar nas variaveis

Valor1=Vetor(0)

Valor2=Vetor(1)

Valor3=Vetor(2)

Resolveu meu problema... obrigado... :D