Ola pessoal ! Como fazer para que o ComboBox so aceite os itens que foram carregados de um banco de dados, via programação !!!!

 

            Valeu

Pode fazer assim:

 

Crie em um módulo a seguinte instrução:

 

Public Sub CarregarBD (ComboBD As ComboBox)
Dim cnnComando As New ADODB.Command
Dim rsTemp As New Recordset
Dim i As Integer

 

With cnnComando
        .ActiveConnection = 'Conexão com o BD

        .CommandType = adCmdText
        .CommandText = "SELECT Codigo, Nome FROM Tabela;" 'Aqui vai selecionar o

                                                                    'campo código e o campo nome.
       

         Set rsTemp = .Execute
End With

With rsTemp
        .MoveMin
        i = 0
            While Not .EOF
                Combo.AddItem !Nome, i  'Vai adicionar o nome na lista do combo
                Combo.ItemData(i) = !Codigo   'E depois vai marcar o itemdata com o´

                                                          'código do item
                .MoveNext
                i = i + 1
            Wend

End With

End Sub

 

 

Depois, quando vc quiser carregar o combo, é só fazer assim:

 

CarregarBD NomedaComboBox 'Onde carregarBD é a rotina acima, e o nomedacombo

                                         'é a combo onde vc quer carregá-la