Sign in to follow this  
Guest --Camisa --

Problemas Com Dim E Integer E Array

Recommended Posts

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

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites

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+

Edited by jothaz

Share this post


Link to post
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
Reply to this topic...

×   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.

Sign in to follow this