Frases Services Tips Contact

PREENCHER COMBOBOX VIA STRING SQL

Dica

Visual Basic 6.0


'Declare esta funcao em um Modulo
'Supondo uma conexao aberta (conn) no Form1

Public Function preencheCombo(combo As ComboBox, sql As String, campo As String)

    Dim rs As New ADODB.Recordset
    rs.Open sql, Form1.conn, adOpenKeyset
    
    While Not rs.EOF
        combo.AddItem rs(campo)
        rs.MoveNext
    Wend

End Function


'Em um formulario com um combo box, no envento form load() insira este codigo:

Private Sub Form_Load()

    Dim sql As String
    sql = "select nome from usuario order by id_usuario"
    Call preencheCombo(Combo1, sql, "nome")

End Sub
--
01/01/2004