DISTINCT

USUARIO.EXCLUIDOS 25/08/2006 17:16:28
#167427
Explique o que você quer colocar no combo exatamente, não é tão difícil, você tem um recordset montado, terá de trabalhar com ele...

O que exatamente você quer exibir na sua lista?

Sempre para um único documento? pode ser para vários?

Explique em detalhes todo o problema que a galera dá uma força...
IRENKO 25/08/2006 17:42:11
#167440
Esse é código completo, o problema é não carregar o número de documeto em duplicidade como o Distinct faz so q não é o caso pois estou buscando por descrição tudo que contenha ex: "correia" na descrição no inicio, meio ou fim, tanto faz. Se eu tenho um documento de número 1000 com 03 items e dois desses items comtem "correia" na descrição então quero colocar no List

1000
-----------
e não
1000
1000

q é o que esta carregando. Como fazer??

Private Sub CmdBusca_Click()
Dim sql As String

sql = "SELECT  DISTINCT LM_1,Descricao FROM Dados WHERE Descricao like '%" & TxtBusca.text & "%' ORDER BY LM_1" 

Set Tabela_LM = Banco_LM.Execute(sql)

If Tabela_LM.RecordCount = 0 Then
MsgBox "Dado inexistente!!", vbInformation, "Relatórios"
ListLM.Clear
TxtBusca.text = ""
TxtBusca.SetFocus
Else
ListLM.Clear

Do While Not Tabela_LM.EOF
ListLM.AddItem Alinha(Tabela_LM.Fields("LM_1").Value

End If
Tabela_LM.MoveNext
Loop
End If
End Sub
USUARIO.EXCLUIDOS 25/08/2006 18:00:20
#167446
Se vc não quer pegar a Descrição, pode usar o DISTINCT mesmo, só q tirando a Descricao:

Private Sub CmdBusca_Click()
Dim sql As String

sql = "SELECT  DISTINCT LM_1 FROM Dados WHERE Descricao like '%" & TxtBusca.text & "%' ORDER BY LM_1"

Set Tabela_LM = Banco_LM.Execute(sql)

If Tabela_LM.RecordCount = 0 Then
  MsgBox "Dado inexistente!!", vbInformation, "Relatórios"
  ListLM.Clear
  TxtBusca.text = ""
  TxtBusca.SetFocus
Else
  ListLM.Clear 
  
  Do While Not Tabela_LM.EOF
    ListLM.AddItem Alinha(Tabela_LM.Fields("LM_1").Value
    Tabela_LM.MoveNext
  Loop
  Tabela_LM.Close
End If
End Sub


Assim acho q já funfa numa boa, qualquer dúvida poste ^^
IRENKO 25/08/2006 18:05:36
#167447
Mais ai eu não terei parà¢metros para efetuar a busca.
Página 2 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar