combobox

[mizzu]

É o seguinte:

Tenho um banco de dados em access, que tem a tabela Clientes.

Preciso colocar as cidades já existentes da tabela de clientes no Combobox sem repetir?

e a medida que for incluindo mais clientes, as novas cidades façam parte do Combobox.

quem pode me ajudar?

Grato.

[webdeveloper]

Qual a dificuldade?

Qual Query utilizar ou preecher o Combobox?

[Macêdo]

sql = "select distinct cidade from clientes

do while not rs.eof

combo_cidade.Additem rs!cidade

rs.movenext

loop

[mizzu]

é pra preencher o comboBox.

Oi Macedo

Dá pra colocar a rotina completa, é que já tem um tempo que não uso o VB.

Grato.

[Macêdo]

Primeiro:

Tem que ter referencia à biblioteca Microsoft ActiveX Data Objects2.8 Library (ADO) (você encontra no menu Project References)marque a bilioteca e adicione ao projeto

depois tem que criar a conexão e o objeto command para chamar os dados num recordset

Coloque no form (general Declarations)
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset

'aqui a rotina da conexão que você chamará no form Load

Private Sub conectar()

cnn.ConnectionString = "provider = microsoft.jet.oledb.4.0;" & _
"data Source = " & App.Path & "\BD.mdb;"
cnn.CursorLocation = adUseClient
cnn.Open

End Sub

'conectando ao banco

Private Sub Form_Load()
conectar
End Sub

agora o codigo para preencher o combo

Private Sub preenche_combo()

With cmd
.ActiveConnection = cnn
.CommandType = adCmdText
.CommandText = "select distinct cidades from clientes"
Set rs = .Execute
End With

With rs
Do While Not rs.EOF
combo_cidade.AddItem rs!cidades
rs.MoveNext
Loop
End With

End Sub

pode chamar esta rotina para preencher a combo em qualquer evento, pode ser no proprio FORM_LOAD após a conexão:

Private Sub Form_Load()
conectar
preenche_combo
End Sub

[mizzu]

Valeu Macêdo.

Muito obrigado.