none
REGISTROS DUPLICADOS NO COMBO RRS feed

  • Pergunta

  • Amigos do Fórum, boa noite.
    Novamente estou aqui, como usuário do VB6 por mais de 10 anos e estou apanhando no VS2012.
    Meu problema eh que fiz uma tela de cadastro e estou usando um COMBO de seleção, entretanto
    se tiver mais de um registro com o mesmo nome, o NOME REPETE e no COMBO.. Gostaria que se
    houver um registro igual com o mesmo nome, o combo nao fosse preenchido e que o VS 
    passasse para o proximo registro, sem apropriar no COMBO no registro duplicado.

    Estou utilizando os codigos abaixo, para preenchimento do combo...

     Try
                Dim idno As Object
                idno = 0
                Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\COB2012\SISTEMA.MDB")
                If cn.State = ConnectionState.Open Then cn.Close()
                cn.Open()
                Dim ds As New DataSet
                Dim dr As DataRow
                Dim dt As New DataTable
                Dim adptr As New OleDb.OleDbDataAdapter("select * from USUARIOS", cn)
                adptr.Fill(ds, "USUARIO")
                dt = ds.Tables(0)
                For Each dr In dt.Rows
                    USU.Items.Add(dr.Item("USUARIO"))
                Next
                cn.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try

    TELA DEMO DE COMO ESTA DUPLICANDO:

    quinta-feira, 27 de junho de 2013 21:35

Respostas

  • Como você só está utilizando a coluna USUARIO, nem precisa ir tão longe para resolver basta colocar um DISTINCT e trazer somente a coluna USUARIO.

    Dim adptr As New OleDb.OleDbDataAdapter("select DISTINCT USUARIO from USUARIOS", cn)


    Leonardo Lourenço Silva
    MCT, MCSD, MCPD, MCTS, MCP, MTA
    netcoders.com.br
    leolosi.wordpress.com

    segunda-feira, 1 de julho de 2013 20:30