Ferreira
|
JABOTICABAL
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 30/06/2010 23:14 hs
Pessoal do VB como resolvo esse problema, estou usando o código abaixo para carregar uma combo, o problema é que as vezes existem dados duplicados, gostaria de saber como evitar isso, utilizo um datacontrol como segue abaixo:
Private Sub PreencheCombo1()
If Data1.Recordset.BOF = False Then
Data1.Recordset.MoveMin
End If
Do While Data1.Recordset.EOF = False
Combo1.AddItem Data1.Recordset(0)
Data1.Recordset.MoveNext
Loop
End Sub
Aguardo respostas. Obrigado
Rodrigo Ferreira MSN - rjpferreira@hotmail.com
|
|
|
|
|
|
Augusto
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/07/2010 11:59 hs
Qual campo da sua tabela esta duplicado.Um pouco mais de detalhes. |
|
|
|
Ferreira
|
JABOTICABAL
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/07/2010 12:42 hs
O additem preenche um campo provindo de uma tabela variavel que as vezes tem que ter dados duplicados, ele preenche ela assim
1
1
2
3
8
8
5
preciso que fique assim:
1
2
3
8
5
Alguma solução ?
Rodrigo Ferreira MSN - rjpferreira@hotmail.com
|
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/07/2010 14:23 hs
cria um array e compara... no declarations Dim lista as variant no procedure primeiro use o seu sql pra saber qtos registros retornarão... redimensiona o array redim lista(n_registros) as variant ( nregistros é o numero de registros q retornarão) agora popula o array... i=1 set tabela = banco.openrecordset(sql, dbopensnapshot) do until tabela.eof if i=1 then lista(i)=tabela("campo") i=i+1 else k=tabela("campo") for j = 0 to i-1 if lista(j)= k then exit for else if j=i then lista(i)=k i=i+1 else endif endif next j tabela.movenext loop tabela.close |
|
|
|
Perci!
|
MATAO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/07/2010 17:02 hs
Se você utilizar o sql com o Distinct, não dá certo? sqlregistros = "Select Distinct(codigo),nome From Clientes" Onde tiver registros duplicados, vai te mostrar apenas uma vez. Não sei se isso resolve seu problema, mas enfim..... tentei. Até mais. |
|
|
|
Ferreira
|
JABOTICABAL
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/07/2010 17:18 hs
Perci, não estou usando sql, estou puxando dados de uma consulta do acess.
|
|
|
|
