USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Incrementar posição
rlinop
PORTO ALEGRE
RS - BRASIL
ENUNCIADA !
Postada em 13/12/2004 14:34 hs            
Olá gente.. Bom eu não sei trabalhar com vetores muito bem no VB por isso que eu pergunto..
Seguinte eu preciso fazer uma consulta na tabela .. E quando eu fizer o meu While pra trazer os dados eu preciso que cada registro fique armazenado em cada posição do vetor tipo assim:
Do While Not Rs.Eof
      Vetor() = Rs!Cod ' Não sei se é assim
      ' Aqui eu gostaria de incrementar a posição
      Rs.MoveNext
Loop
Bom... alguém poderia me dar uma ajuda com isso ????
Oks,
Rafael Portal
   
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
ENUNCIADA !
Postada em 13/12/2004 14:45 hs            
Dim Vetor() as Long  'suponho que "cod" seja numerico...
Redim Vetor(rs.recordcount - 1)
For i = 1 to rs.recordcount
  Vetor(i - 1) = rs("cod")
  rs.movenext
Next
 
Se for ADO, isso aqui funciona... com DAO nunca tentei...
 
Abraços...


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página