Array Dinâmico

[Paulo H Oliveira 0]

Galera, estou fazendo uma rotina e está ocorrendo um erro.

 

 

Este é o código:

 

<%
dim aCaract()
dim cont 
if rsImv("imo_suite") > 0 then
  cont = ubound(aCaract) + 1   '<--- aqui que acusa a mensage de erro
  redim preserve aCaract(cont) 
  aCaract(cont) = rsImv("imo_suite")
end if
%>

a mensagem de erro é essa:

 

Microsoft VBScript runtime error '800a0009'

Subscript out of range: 'ubound'

[hargon 64]

Tem que ser dim aCaract(0)

[Paulo H Oliveira 0]

Agora ocorre o seguinte erro:

 

Código:

 

dim aCaract(0)
dim cont 
if rsImv("imo_suite") > 0 then
  cont = ubound(aCaract) + 1
  redim preserve aCaract(cont)		 '<---- Aqui é a linha do erro 
  aCaract(cont) = rsImv("imo_suite")&" Suite"
end if

Mensagem de erro:

 

Microsoft VBScript runtime error '800a000a'

This array is fixed or temporarily locked

[hargon 64]

Você usa Redim em uma variável que ainda não foi definida como array... como você definiu no inicio, nao pode fazer isso aí.

 

Se eu fosse você armazenaria todos os valores em uma variável e depois usaria SPLIT para transformar em array.

 

Por exemplo:

Dim aCaract
if rsImv("imo_suite") > 0 then
  if len (aCaract) = 0 then
		aCaract = rsImv("imo_suite") &" Suite"
  else
		aCaract = aCaract & ";" & rsImv("imo_suite") &" Suite"
  end if
end if

aCaract = split(aCaract,";")

[Mário Monteiro 179]

Voce nao pode ficar o numero de indices

 

tem qeu deixar em aberto como neste exemplo

 

Dim MEUARRAY()

frase = "oi, como vai?"

For I = 1 To Len(frase)
ReDim Preserve MEUARRAY(I - 1)
MEUARRAY(I - 1) = Mid(frase, I, 1)
Next

http://forum.imasters.com.br/index.php...&pid=657864