Isso Tá Certo ?

[Guest - Iniciante -]

é o seguinte não tenho certeza que eu escrivi certo mas o codigo que eu tenho é quase igual a este e funciona Gostaria de saber como eu posso carregar um combo usando matrizes não sei se tem array em vb.. gostaria de simplificar este meu ?

abraço

SET RS = bd.opendatarecordset("Select count(data) as DATAS from dados ")
set rs1 = bd.opendatarecordset("select nome from dados where nome= '"& nome & "' ")


a = rs.field("DATAS")

while rs1.eof < a 

combo.addlist = rs1.field("nome")

rs1.movenext
wend

[William Rodrigues]

Salve!

Sim, VB tem Array. Segue um exemplo:

    Dim vetor(0 To 6) As Integer
    Dim a As Integer, i As Integer
    For i = 0 To 6
        vetor(i) = i
    Next
    'Loop para dar valores ao vetor    

    a = 0
    While a <= UBound(vetor)
        Combo.AddItem vetor(a)
        a = a + 1
    Wend
     'Loop para adicionar os dados do vetor no Combo

Abraços,

William Rodrigues