Jump to content
Fórum Script Brasil
  • 0

[Resolvido] Problema com vetor


danyort

Question

Gente, estou usando o seguinte código:

set rsgd = con.execute("select count(codigo) as totd from ligacoes")
totd = rsgd("totd")

Dim arrCategorias(), arrVal()

set rsg1 = con.execute("SELECT duvida, Count(codigo) AS COC FROM Ligacoes GROUP BY duvida ORDER BY duvida")

y = 0
do while not rsg1.eof
    arrVal(y) = (rsg1("COC") * 100) / totd
    arrCategorias(y) = rsg1("duvida")
    y = y + 1
    rsg1.movenext
loop

E está me retornando o seguinte erro:

Subscrito fora do intervalo

/agenda/aplicacao/ligacoes_graficos.asp, line 37

A linha 37 é essa:

arrVal(y) = (rsg1("COC") * 100) / totd

Não estou conseguindo, de maneira alguma, identificar o problema.

Alguém tem alguma luz para me dar??

Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0

Ola Boa tarde,

tente fazer desta forma

set rsgd = con.execute("select count(codigo) as totd from ligacoes")

totd = rsgd("totd")

Dim arrCategorias(), arrVal()

set rsg1 = con.execute("SELECT duvida, Count(codigo) AS COC FROM Ligacoes GROUP BY duvida ORDER BY duvida")

y = 0

do while not rsg1.eof

'aqui você vai montar uma variavem com todos os dados separados por virgula

var_val = var_val & (rsg1("COC") * 100) / totd & ","

var_categ = var_categ & rsg1("duvida") & ","

rsg1.movenext

loop

'abaixo separamos para que você possa usar o array

var_val = Split(var_val, ",", -1, 1)

var_categ = Split(var_categ, ",", -1, 1)

'agora já pode usar como queria

'var_val(0) exibe o primeiro valor - var_val(1) exibe o segundo e assim por diante

Espero ter ajudado!!

Edited by Thiago Airold Perez
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
      152k
    • Total Posts
      651.6k
×
×
  • Create New...