Resolvido

[Ruben_Barbosa]

Ribeiro lol yep tens razão mas já Resolvi quanto ao nomes LOL pah eu percebo mas quem não conhecer é claro que é chines para ele.


Eu sei o qeu faz o Ciclo OMFG LOL mas prontos.


So ajudavas a entender a quem não percebe-se o ciclo

de qualquer forma bgd

'PREENCHE OF

            y.Open("SELECT xx FROM xxxxx  month(vhstdt)=" & Combo2(0).Text & " and substr(vhprno, 3, 3)= '" & Mid(Combo2(2).Text, 1, 3) & "'")
            If Not y.EOF Then
                Combo2(4).Text = y.Fields(0).Value
                y.MoveNext()
            Else
                MsgBox("xxxxxxx", MsgBoxStyle.OkOnly)
            End If
            y.Close

 

[ribeiro55]

Epa, sem querer ofender, é que não se percebe nada, nem do que está para ali, nem do que queres.
Quando usas nomes de variáveis como vhstdt ou cenas brutais que só tu percebes, convém dar pistas no mínimo daquilo que estás a fazer.

Como não percebo qual é o teu problema, posso apenas indicar-te que só consegues ler um registo dessa forma.

Basicamente o que estás a fazer é:

SE dsAS400 não chegou ao fim, então faz o que tens a fazer e passa ao proximo.
E o ciclo morre aqui.

ENQUANTO dsAS400 não chegou ao fim, faz o que tens a fazer e passa ao proximo.
é a forma correcta de o fazer.

Ou seja, usando um ciclo WHILE.