resultados possiveis aparecendo num list

[luiz humberto 0]

Poste o código que está indicando o erro, para fazer com que sua consulta não retorne resutados duplicados use o Distinct.

Exemplo:

SELECT DISTINCT Codigo FROM Teste

[coldcase 0]

Nao entendi onde colocar esse codigo

SELECT DISTINCT Codigo FROM Teste

Meu codigo atualmente encontra-se assim:

Private Sub Command1_Click()                Dim Nome As String        Nome = InputBox("Digite o nome da Praça desejada: ", " Localizar")                If Nome = "" Then           Exit Sub                 End If                If datPrimaryRS.Recordset.EOF Then            datPrimaryRS.Refresh        End If                      'Preenchimento da lista        List1.Clear        While Not datPrimaryRS.Recordset.EOF        List1.AddItem datPrimaryRS.Recordset("Nome")        datPrimaryRS.Recordset.Find "Nome like '%" & Nome & "%'"        Wend        End Sub

Já fiz de tudo, mas o preenchimento da lista, continua vindo duplicado..

 

Deem uma luz..

 

Ainda falta também fazer com que depois que selecionado na lista, ele apareça em todos os outros campos, como mostra a foto.

 

[]´s

[coldcase 0]

Coloquei no RecordSource do Adodc assim como o luiz humberto falou:

 

select DISTINCT Nome, Busca, CATEGORIA, ID, OBSERVAÇÕES, DOC, AP, RA, BAIRRO, SUBBAIRRO, pÁrea, URBANIZADA, EQUIPAMENTO, [ENDEREÇO MINUSCULAS], [DECRETO DE CRIAÇÃO], [NOME ANTERIOR], ADMINISTRAÇÃO, [ÓRGÃO GESTOR], [OCUPAÇÕES IRREGULARES], TOMBAMENTO, [ÓRGÃO TUTOR], [LEI / DECRETO DE TOMBAMENTO], [PA/PAL] from PRACAS order by Nome

Não funcionou.. continua vindo todos os registros duplicados na lista após feita a busca.

[luiz humberto 0]

Tente executar essa instrução sql no sua base de dados.Caso na sua base de dados não retorne registros duplicados execute o seu programa passo a passo, e veja onde está acontecendo a duplicação de registros.

[Luizgrs 0]

Não se esqueça de adicionar a cláusula Where:

select DISTINCT Nome, Busca, CATEGORIA, ID, OBSERVAÇÕES, DOC, AP, RA, BAIRRO, SUBBAIRRO, pÁrea, URBANIZADA, EQUIPAMENTO, [ENDEREÇO MINUSCULAS], [DECRETO DE CRIAÇÃO], [NOME ANTERIOR], ADMINISTRAÇÃO, [ÓRGÃO GESTOR], [OCUPAÇÕES IRREGULARES], TOMBAMENTO, [ÓRGÃO TUTOR], [LEI / DECRETO DE TOMBAMENTO], [PA/PAL] from PRACAS where nome like '%" & txtnome.text & "%' order by Nome

[coldcase 0]

CONSEGUI!

 

Ficou assim o codigo:

Private Sub Command1_Click()' --------------------------------.' Sistema de busca parte do campo |' --------------------------------'                Dim Nome As String        Nome = InputBox("Digite o nome da Praça desejada: ", " Localizar")                If Nome = "" Then   ' CASO NAO DIGITADO NADA           Exit Sub         ' FIM DE BUSCA        End If                If datPrimaryRS.Recordset.EOF Then            datPrimaryRS.Refresh        End If                'Registro = datPrimaryRS.Recordset.Bookmark        'datPrimaryRS.Recordset.MoveFirst                'BUSCA NOME COM PARTE DIGITADA        'Exemplo: (ra > Aarão) (do > Arraial do Cabo)        datPrimaryRS.Recordset.Find "Nome like '%" & Nome & "%'"                'Preenchimento da lista        List1.Clear        While Not datPrimaryRS.Recordset.EOF        List1.AddItem datPrimaryRS.Recordset("Nome")        datPrimaryRS.Recordset.MoveNext        datPrimaryRS.Recordset.Find "Nome like '%" & Nome & "%'"        Wend        End Sub

Agora só falta mesmo a parte de selecionar na list1 e ele carregar o registro.

Alguem sabe como?

 

[]´s

[Luizgrs 0]

Primeiro para que essa parte da List funcione corretamente vamos guarda não só o nome mas também o código (caso ñ possa cadastrar nomes iguais não precisa fazer isso):

'Preenchimento da lista       List1.Clear       While Not datPrimaryRS.Recordset.EOF       List1.AddItem datPrimaryRS.Recordset("Nome")       list1.itemdata(list1.newindex) = datPrimaryRS.Recordset("id")       datPrimaryRS.Recordset.MoveNext       datPrimaryRS.Recordset.Find "Nome like '%" & Nome & "%'"       Wend

Ps.: Creio eu que o campo 'código' de sua tabela é o ID.

 

Você irá utiliar o evento Click da list e executará uma consulta (que nem essa anterior) mas dessa vez você irá utilizar o código e não o nome:

datPrimaryRS.Recordset.Find "id = " & list1.itemdata(list1.listindex)