Problemas Com Dim E Integer E Array

[Guest --Camisa --]

será que alguém poderia me dizer o que esta errado nesta sequência:

------------------------------------------------

Dim nome_exame_ As array
Dim iDigito As Integer
iDigito = 1

set rs1=Server.CreateObject("ADODB.recordset")
SQL =       "SELECT * "
SQL = SQL & "  FROM exame"
SQL = SQL & " ORDER BY exame_numero"
rs1.Open SQL, Conexao
While Not rs1.EOF
nome_exame_(iDigito) = rs1("exame_numero")
iDigito = iDigito + 1
rs1.MoveNext
Wend
rs1.Close 
Set rs1 = Nothing

-------------------------------------------------------

o erro é :

Script error detected at line 182.

Source line: Dim nome_exame_ As array

Description: Fim da instrução esperado

Marcelo Camisa

[.Andreia.]

não precisa declarar o tipo da variavel, em ASP

[Guest --camisa --]

ok, mais quando eu declaro assim:

---------------------------------------------

iDigito = 1

set rs1=Server.CreateObject("ADODB.recordset")

SQL = "SELECT * "

SQL = SQL & " FROM exame"

SQL = SQL & " ORDER BY exame_numero"

rs1.Open SQL, Conexao

While Not rs1.EOF

nome_exame_(iDigito) = rs1("exame_numero")

iDigito = iDigito + 1

rs1.MoveNext

Wend

rs1.Close

Set rs1 = Nothing

-----------------------------------------------

ele me retorna o erro:

Script error detected at line 192.

Source line: nome_exame_(iDigito) = rs1("exame_numero")

Description: Tipos incompatíveis: 'nome_exame_'

ou se declaro assim:

-------------------------------------------------

Dim nome_exame_

Dim iDigito

iDigito = 1

set rs1=Server.CreateObject("ADODB.recordset")

SQL = "SELECT * "

SQL = SQL & " FROM exame"

SQL = SQL & " ORDER BY exame_numero"

rs1.Open SQL, Conexao

While Not rs1.EOF

nome_exame_(iDigito) = rs1("exame_numero")

iDigito = iDigito + 1

rs1.MoveNext

Wend

rs1.Close

Set rs1 = Nothing

-------------------------------------------------

ele me retorna o erro :

Script error detected at line 192.

Source line: nome_exame_(iDigito) = rs1("exame_numero")

Description: Tipos incompatíveis

[jothaz]

Camarada,

Para se cria um vetor você deve utilizar o ReDim:

dim vVetor
'
'Define um vetor com 20 ocorrências e mata qualquer elemento que já estaja lá
Redim vVetor(20)
'
'Define um vetor com 20 ocorrências e mantém qualquer elemento que já estaja lá
Redim Preserve vVetor(20)

Segue um exemplo de com utilizar um função para adionar no vetor dinamicamente.

<%public function adicionaVetor(vetor,valor)
    if IsArray(vetor) then
        redim preserve vetor(ubound(vetor)+1)
    else
        redim vetor(0)
    end if
    
    vetor(ubound(vetor)) = valor
    
    adicionaVetor = vetor
end Function


Dim nome_exame_
Dim iDigito
iDigito = 1

set rs1=Server.CreateObject("ADODB.recordset")
SQL = "SELECT * "
SQL = SQL & " FROM exame"
SQL = SQL & " ORDER BY exame_numero"
rs1.Open SQL, Conexao
While Not rs1.EOF
     adicionaVetor(nome_exame_,rs1("exame_numero"))
    'iDigito = iDigito + 1
    rs1.MoveNext
Wend
rs1.Close
Set rs1 = Nothing 

%>

qualquer dúvida estamos ai.

t+

Editado Maio 4, 2007 por jothaz