Incrementar A Posição

[Rafael Portal]

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

[William Rodrigues]

Brother...

Segue um modelo de Array(vetor):

Private Sub Command1_Click()
Dim vetor(4) As String
For i = 0 To 4
     vetor(i) = i
     MsgBox vetor(i)
Next i
End Sub

Acho que pode te ajudar...

Abraços,

William Rodrigues

[Graymalkin]

Além do exemplo do William, você encontrará outros se você fizer uma busca no fórum.

Abraços,

Graymalkin