REMOVER ITENS DUPLICADOS DO COMBO

MFLAVIO 10/06/2011 15:00:27
#376438
Bom o Titulo já fala tudo

Como que eu consigo remover os Itens Duplicados na Lista de um ComboBOX

por favor em VB.NET
LLAIA 10/06/2011 15:09:48
#376439
acho que o problema maior é como esses itens duplicados foram parar lá.
MFLAVIO 10/06/2011 15:46:26
#376446
Bom eu tenho uma tabela com varios registros

e eu pego o ano base e completo o combo

e mais ou menos assim

carrego o dataset com o campo data

ai eu carrego uma variavel data apenas com o ano que estava no registro do Dataset

e esse ano eu jogo no combo

agora o ano faz parte de um registro

EX:

campo
data = 10/10/2011 registro 1
data=20/10/2011 registro 2
data=01/01/2012 registro 3

eu preciso que no combo apareca apenas
2011 e 2012
RXGOMES 10/06/2011 16:45:18
#376449
Usa um select distinct formatando o campo data para ano

SELECT distinct DATEPART ( YEAR , [ô]02/01/2004[ô] ) as ano from tabela where condição

acho que funciona
MFLAVIO 10/06/2011 17:47:22
#376458
Citação:

:
Usa um select distinct formatando o campo data para ano

SELECT distinct DATEPART ( YEAR , [ô]02/01/2004[ô] ) as ano from tabela where condição

acho que funciona



Eu to usando firebird

e não consegui fazer ezatamente isso que voce passo

sql=[Ô]Select distinct(Year,dvenda) as Nano from Estoque group by nano[Ô]

dvenda e o campo da tabela que contem as datas de venda

isso não funcionou

alguma dica de onde eu errei
TECLA 10/06/2011 20:16:51
#376466
Poste seu código atual no tópico.
PEGUDO 11/06/2011 13:51:53
#376510
Cara, na verdade eu nunca soube usar o select distinct, então eu faço o seguinte: POG (Programação Orientada a Gambiarra)

Tipo

Dim RecSet As ADODB.RecordSet
Dim DataRegistro, DataLida As String
Dim Vetor() As String

[txt-color=#007100][ô]Finja que já fiz conexão com o banco de dados e já retornei os dados que eu quero[/txt-color]

While Not RecSet.EOF
    Vetor = Split(FormatDateTime(RecSet([txt-color=#e80000][Ô]data[Ô][/txt-color]).Value.ToString, DateFormat.ShortDate), [txt-color=#e80000][Ô]/[Ô][/txt-color])
    DataRegistro = Vetor(2)

    If Not DataRegistro = DataLida Then
        ComboBox.Items.Add(DataRegistro)
        DataLida = DataRegistro
    End If

    RecSet.MoveNext()
End While
MFLAVIO 21/06/2011 13:12:22
#377378 
  Private Sub CarrAnoBase()
        Static CMD As FbCommand
        Static DR As FbDataReader

        SQL = [Ô][Ô]
        SQL = [Ô]SELECT distinct DATEPART ( YEAR , dvenda ) as ano from estoque where (dvenda is not null)[Ô]
        CMD = New FbCommand(SQL, conexaoFB)
        DR = CMD.ExecuteReader

        CMB_ano.Items.Clear()
        Do While DR.Read
            CMB_ano.Items.Add(Trim(DR([Ô]cor[Ô]).ToString))
        Loop
        DR.Close()
    End Sub

o Código e esse
sempre retorna erro no YEAR
MITSUEDA 21/06/2011 13:26:45
#377381
Porque você não usa um Select com Group By tipo

SELECT Year([dvenda]) AS ano FROM estoque GROUP BY Year([dvenda])

Abraço
MFLAVIO 21/06/2011 13:47:12
#377384
Mitsueda eu tentei tambem mais aparece o mesmo erro

o [Ô]Year[Ô] não e reconhecido

não sei porque

o meu Firebird e o 2.1
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar