DADOS DE UMA COMBO EM ORDEM ALFABETICA
Ola Amigos,
Estou com uma duvida. carrego uma combo com os dados da minha tabela produto campo descrição.
Mas ele lista por ordem de cadastro, teria como eu listar na combo por ordem alfabetica.
Faço assim:
vproduto.MoveFirst
Do While Not vproduto.EOF
Combo2.AddItem Format(vproduto!descricao)
vproduto.MoveNext
Loop
Grato,
Estou com uma duvida. carrego uma combo com os dados da minha tabela produto campo descrição.
Mas ele lista por ordem de cadastro, teria como eu listar na combo por ordem alfabetica.
Faço assim:
vproduto.MoveFirst
Do While Not vproduto.EOF
Combo2.AddItem Format(vproduto!descricao)
vproduto.MoveNext
Loop
Grato,
o seu select tem que ter um order by pelo campo que você quer por ordem
na sua SELECT vc vai fazer assim
SELECT * FROM sua_tabela ORDER By vproduto!descricao ASC
SELECT * FROM sua_tabela ORDER By vproduto!descricao ASC
Então Leandro, não estou usando select.
coloquei este código no form_load e os dados são carregados na combo.
coloquei este código no form_load e os dados são carregados na combo.
Mas daonde o combo pega a informação ?
simplismente vai na propiredade SORTED do combo e mude para True
Amigos achei uma solução,
usei um recordset.
Dim rs As Recordset
Set rs = bancodedados.OpenRecordset([Ô]SELECT * FROM produtos order by descricao[Ô])
rs.MoveFirst
Do While Not rs.EOF
Combo1.AddItem Format(rs2!descricao)
rs.MoveNext
Loop
e deu certo.
agradeço a todos pela ajuda.
usei um recordset.
Dim rs As Recordset
Set rs = bancodedados.OpenRecordset([Ô]SELECT * FROM produtos order by descricao[Ô])
rs.MoveFirst
Do While Not rs.EOF
Combo1.AddItem Format(rs2!descricao)
rs.MoveNext
Loop
e deu certo.
agradeço a todos pela ajuda.
Foi o que eu disse, colocar um order by.
Encerre o Topico
Encerre o Topico
Tópico encerrado , respostas não são mais permitidas