Array

[Mário Monteiro 179]

Em ASP faço assim

 

Criar e preencher

[tr][/tr][tr][/tr]

ASP	FOR I = 0 TO 9 ReDim Preserve NOME_ARRAY(I) NOME_ARRAY(I) = "Indice " & I NEXT

 

exibir

[tr][/tr][tr][/tr]

ASP	FOR I = LBOUND(NOME_ARRAY) TO UBOUND(NOME_ARRAY) response.write(NOME_ARRAY(I)) NEXT

 

Em VB tentei Assim

 

Criar e preencher

[tr][/tr][tr][/tr]

ASP	Dim NOME_ARRAY() AS String FOR I = 0 TO 9 ReDim Preserve NOME_ARRAY(I) NOME_ARRAY(I) = "Indice " & I NEXT

 

exibir

[tr][/tr][tr][/tr]

ASP	FOR I = LBOUND(NOME_ARRAY) TO UBOUND(NOME_ARRAY) msgbox(NOME_ARRAY(I)) NEXT

 

Mas sempre exibe mensagem de sobrescrito fora do intervalo, como se estivesse usando um indice invalido

 

ja tentei usar de 0 ate 9 e acontece o mesmo...

 

o que pode ser??

[Eduardo Estrela Brasil 0]

Opa...Para preencher um array, eu sempre uso uma string e depois a função split.Assim:Dim WlStr as StringDim WlArray() as Stringfor i = 0 to 9 WlStr = WlStr & i & ","NextPara remover a virgula que sobra....WlStr = Right(WlStr, Len(WlStr) - 1)E por fim: WlArray = Split(WlStr, ",")Para ler o array, eu também uso o UBOUND.Umas linhas de código a mais... mas sempre funciona pra mim.Valeu Eduardo. :blink:

[Mário Monteiro 179]

beleza cara vou tentar e posto o resultado aqui...

[Mário Monteiro 179]

cara não esta funcionando, sabes se funciona pra programar direto na versão do access 97, todas estas funções???

[Mário Monteiro 179]

bem cara descobri testando que right e solit não funcionam no acess, so quero armazenar alguns dados que pego do db num array...

[Eduardo Estrela Brasil 0]

Bom...Tu não disse que era VBA. Nunca trabalhei com Acess, só VB. No vb funciona, por que eu uso. O nome da função é Split e não solit... :-DMas de qualquer forma, no vb, funciona.T+