Jump to content
Fórum Script Brasil
  • 0

[resolvido] Criar Vetor


®HEX®

Question

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

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0
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.

Edited by ADL
Link to comment
Share on other sites

  • 0

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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      651.8k
×
×
  • Create New...