Ola,

 

Em um form tenho uma combo a qual deve ser carrega com dados de uma tabela, no caso um campo da tabela chamado Cor.

Como faco para que qdo o form for carregado o combo box carregue os dados desta tabela?

 

Obrigado,

 

Michaelsnts

Oi!

 

Usando ADO e Access faça o seguinte:

 

1. Adicione no seu projeto referência à "Microsoft ActiveX Data Objects 2.x Library"

 

2. Coloque o código abaixo no projeto e altere conforme necessidade.

 

Private Sub Form_Load()

 

   Dim conn As ADODB.Connection
   Set conn = New Connection
  
   Dim rsCores As New ADODB.Recordset
   Set rsCores = New Recordset
  
   Dim sSQL As String
  
   cbCores.Clear 'Combobox
  
   conn.Open "Provider=Microsoft.Jet.OleDb.4.0;Data Source=c:database.mdb"
  
   sSQL = "SELECT * FROM tblCores"
  
   Set rsCores = conn.Execute(sSQL, , adCmdText)
  
   While Not rsCores.EOF
      cbCores.AddItem rsCores("Cor")
      rsCores.MoveNext
   Wend
  
   conn.Close
   Set conn = Nothing
  
End Sub

 

 

Qualquer dúvida , pergunte. Abraço!

Que tal uma olhada:

 

 

João Mateus