COMBOBOX AUTOMATICO

BORBOLETATY 10/01/2011 16:14:32
#361771
Boa tarde amigos, vejam bem eu gostaria de criar uma função geral onde eu carrego os dados de uma tabela x, e depois que carregar esses dados, eu so chamo na tela onde tenho o combo, exemplo... a tabela se chama CADASTRO, e dentro tem um campo CIDADE, eu gostaria de carregar o combo automaticamente com as informaceos dessa tabela.. ob rigadada.....
XXXANGELSXXX 10/01/2011 16:18:02
#361772 Resposta escolhida
Boa tarde linda, olha, em um modulo coloque 
 
Public Function PreencheComboCidade(Combo1 As OsenXPComboBox)
ON ERROR GOTO ERRORLINE
    Set rsEnder = New ADODB.Recordset
    rsEnder.Open [Ô]Select CIDADE from CADASTRO group by CIDADE order by CIDADE[Ô], Conexao, adOpenDynamic, adLockBatchOptimistic
    Combo1.Clear
    rsEnder.MoveFirst
    Do While Not rsEnder.EOF
        Combo1.AddItem IIf(IsNull(rsEnder!CIDADE), [Ô][Ô], rsEnder!CIDADE)
        rsEnder.MoveNext
    Loop
    rsEnder.Close
    Set rsEnder = Nothing
     Exit Function
ErrorLine:
    If Err.Number = 3021 Then
        Resume Next
    Else
        MsgError
    End If
End Function

E no load do form chame a funcao assim

nomedoseucombo PreencheComboCidade
Tópico encerrado , respostas não são mais permitidas
Voltar