COMBO - NAO MOSTRAR NOMES REPETIDOS
Tenho uma tabela onde carrega nomes de clientes que realizaram compras..
Mas acontece que o cliente pode ter realizado mais de uma compra. então quero carregar apenas uma vez os nomes..
Tenho este codigo..
Dim rstconsulta As New ADODB.Recordset
rstconsulta.Open [Ô]Produto[Ô], cnnBanco
Do While Not rstconsulta.EOF
cboNome.AddItem rstconsulta.Fields([Ô]NomeCli[Ô])
rstconsulta.MoveNext
Loop
rstconsulta.Close
Set rstconsulta = Nothing
Como faço para carregar os dados na combo sem repetir ?
Obrigado e até +
Mas acontece que o cliente pode ter realizado mais de uma compra. então quero carregar apenas uma vez os nomes..
Tenho este codigo..
Dim rstconsulta As New ADODB.Recordset
rstconsulta.Open [Ô]Produto[Ô], cnnBanco
Do While Not rstconsulta.EOF
cboNome.AddItem rstconsulta.Fields([Ô]NomeCli[Ô])
rstconsulta.MoveNext
Loop
rstconsulta.Close
Set rstconsulta = Nothing
Como faço para carregar os dados na combo sem repetir ?
Obrigado e até +
Amigo...
aCHO Q ISSO VAI FUNCIONAR
retconsulta.Open [Ô]Select into * from produto[Ô], cnnBanco
Em ADO nao sei, mas em DAO é
[Ô]select distinct campo from tabela[Ô]
[Ô]select distinct campo from tabela[Ô]
Usa a seguinte SQL
Select NomeCli from NomeDaTabela Group by NomeCli
Select NomeCli from NomeDaTabela Group by NomeCli
Tópico encerrado , respostas não são mais permitidas