[Resolvido] Erro ao Criar array

[rd111072 1]

Boa tarde!

 

Estou tentando criar um array a partir de um valor de variável. Mas está dando erro:

 

Erro de compilação do Microsoft VBScript erro '800a0402'

 

Constante inteira esperada

 

/sis-vendedor/COM_Editar2b.asp, line 38

 

dim arrayM(M)

-----------^

 

O script:

 

sqlM ="SELECT MAX(itens) as Maior FROM tab_pedidos where pedido = '"&cod_tabela&"' and excluido = 'no'"	
set rsM = conexaoDB3.execute(sqlM)

itemmax = CINT(rsM("Maior"))
response.Write(itemmax)

M = itemmax

dim arrayM(M)
for i = 0 to M
Response.Write arrayM(i) & "," & vbCrLf
next

Como faço?

[hargon 64]

dim arrayM

Redim arrayM(M)

[rd111072 1]

Assim?

 

M = itemmax

dim arrayM(M)
Redim arrayM(M)
for i = 0 to M
Mv = i
Response.Write arrayM(i) & "," & Mv & vbCrLf
next

[rd111072 1]

Vlw, hargon.

 

Já consegui.

 

dim arrayM()
Redim arrayM(M)
for i = 0 to M
Mv = i
Response.Write arrayM(i) & "," & Mv & vbCrLf
next

[rd111072 1]

Tá. Tudo muito bom... Mas como coloco esse array criado dentro do value de um input sem dar :

 

Tipo incompatível

 

Um tipo de dados não identificado foi encontrado.

 

???

[hargon 64]

Posta a linha com erro.

[rd111072 1]

/sis-vendedor/COM_Editar2b.asp, line 0

[hargon 64]

Posta essa parte do código onde você citou INPUT.

 

Acredito que você esteja dando um response.write em um ARRAY sem informar a posição que deseja acessar.

[rd111072 1]

<input type="text" name="hiddenc" id="hiddenc" value="<%=arrayM%>" />

 

 

?

[hargon 64]

Justamente o que eu citei acima. Você não pode acessar um array dessa forma. Você tem que informar a posição que deseja acessar.

[rd111072 1]

quero acessar todas as posiçoes.

 

Que o value do input fique assim:

 

0 ,1 ,2 ,3 ,4 ,5 ,6 ,7 ,8 ,9 ,10 ,11 ,12 ,13 ,14 ,15

[hargon 64]

Então deve usar assim:

<input type="text" name="hiddenc" id="hiddenc" value="<%=join(arrayM,",")%>" />

[rd111072 1]

"Quase"...

 

o resultado no input foi esse;

 

,,,,,,,,,,,,,,,

 

parece que arrayM está vazio. No response fica legal:

 

0 ,1 ,2 ,3 ,4 ,5 ,6 ,7 ,8 ,9 ,10 ,11 ,12 ,13 ,14 ,15

 

 

Deve ser por isso:

mv = i

Response.Write arrayM(i) & "," & Mv & vbCrLf

[hargon 64]

O FOR está errado, deveria ficar assim:

for i = 0 to M
	Mv = i
	arrayM(i) = Mv
next

Por isso o response.write também estava errado, se você olhar no HTML verá que o vetor estava vazio.

[rd111072 1]

Isso aí!

 

VLW!

[hargon 64]

Bacana. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif