DISTINCT com todos os Campos da Tabela

[Danleonhart]

Seguinte...

Quero fazer um SELECT em uma tabela onde há repetições no campo "Usuario", mas tenho de mostrar todos os campos no resultado, logo usar o "SELECT DISTINCT Usuario FROM Tabela" não irá funcionar...

Então, como faço para fazer distinção no campo "Usuario" mas apresentar todos os demais campos ? :huh:

Edited December 4, 2011 by Danleonhart

[Danleonhart]

Seguinte pessoal...

Não consegui fazer o DISTINCT com uma única consulta...então fiz da maneira lógica...

criei dois RecordSet's...um com DISTINCT e o outro com SELECT WHERE...

ficou assim:

Sub Filtragem()
Dim SQL_Dst As String
Dim CL As New Collection
Dim Ls As ListItem
Dim Nome As String

SQL_Dst = "SELECT DISTINCT Usuario FROM Infos"
Abrir_Conexao

Set Rs = Con.Execute(SQL_Dst)

Do Until Rs.EOF
Nome = Rs!Usuario
CL.Add Nome
Rs.MoveNext
Loop

Lv1.ListItems.Clear

For Each nm In CL

Set Rs2 = Con.Execute("SELECT Controle,Usuario,Senha,Data FROM Infos WHERE Usuario='" & nm & "' ORDER BY Controle ASC ")
  Set Ls = Lv1.ListItems.Add(, , , 3, 3)
  With Ls
        .Text = Rs2.Fields(0)
        .SubItems(1) = Rs2.Fields(1)
        .SubItems(2) = Rs2.Fields(2)
        .SubItems(3) = Format(Rs2.Fields(3), "dd/MM/yyyy  -  hh:mm:ss")
    End With
  Rs2.MoveNext
Next nm
Set Rs = Nothing
Set Rs2 = Nothing
Con.Close
End Sub

LÓGICA:

Faço uma consulta com SELECT DISTINCT que preenche o primeiro RS...

aloco o resultado em uma Coleção (Collection)...

faço uma nova consulta, agora com SELECT WHERE de cada valor que está na Coleção, e preencho o segundo RS...

por último preencho o ListView com os dados do segundo RS...

Edited December 6, 2011 by Danleonhart