Como Carregar Dados De Uma Tabela Em Combo Box

[Guest Frederico]

Como faço para carregar dados de uma tabela em uma Caixa de Listagem?

[Rafael Portal]

Opa !

SQL = "SELECT Nome FROM Clientes"
Conn.Execute SQL

Do While Not Rs.EOF
    CboNomeClientes.AddItem Rs!Nome
    Rs.MoveNext
Loop

Qualquer coisa posta ai! Abraços.

Oks,

Rafael Portal

[Guest Guest]

eu tenho a seguinte instrução:

dataartigo.Recordset = App.Path & "W:\Base SISC\base_helpdesk.mdb"

Do While dataartigo.Recordset.EOF = False

cbocurso.AddItem dataartigo.Recordset("Area_Curso")

dataartigo.Recordset.MoveNext

Loop

End Sub

Onde tenho uma tbl de Cursos e preciso carregar o combo com o campo DesCurso.

Coloquei sua instrução mas da o mesmo erro! Seguinte:

Object Variable or With block variable not set

Pode me ajudar?

[kuroi]

Em q linha exatamente, da esse erro?

As variaveis tão criadas direitinho?

Talvez você deva usar

dataartigo.Recordset!Area_Curso

ou

Set dataartigo.Recordset = App.Path & "W:\Base SISC\base_helpdesk.mdb"

[Guest Frederico]

Ola colega! bem o erro ocorre na linha:

Do While dataartigo.Recordset.EOF = False.

Realmente não sei o que esta acontecedo! Não há uma forma de carregar isso apenas ligando objetos?

Abraços

[kuroi]

Tenta assim:

    Set cboCurso.DataSource = dataartigo.Recordset
    cboCurso.DataField = "Area_Curso"