ordenar uma listview pelo campo hora

[rafaelsetti]

boa tarde, gostaria de saber como ordenar uma listview pelo campo hora??

obrigado,

Rafael

[rafaelsetti]

A ordem da classificação é: primeiro: data - depois hora depois - data_prox_agendamento depois hora_prox_agendamento..

Segue abaixo o código fonte.

Obrigado,

Rafael

Private Sub Textpesquisanome_Change()
  Dim nConn As New ADODB.Connection
   Dim DB As Database
   
   Dim nConn2 As New ADODB.Connection
    Dim BANCO As New ADODB.Recordset
    Dim BANCO1 As ADODB.Recordset
    Dim SQL As String
    Dim SQL2 As String
    Dim Count

    Dim nConectar As String
    Dim nConectar2 As String
    'Endereço e nome do banco de dados       * habilite o provedor de acordo c/ sua versao:
   ' nConectar = "Provider=Microsoft.Jet.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\base.mdb"
    nConectar = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "\\CARLOSSETTI-PC\C\REAL FEET\DATABASE\REALFEET.MDB"
    nConn.ConnectionString = nConectar
    nConn.Open
    nConectar2 = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "\\CARLOSSETTI-PC\C\REAL FEET\DATABASE\REALFEET.MDB"
    nConn2.ConnectionString = nConectar2
    nConn2.Open
 Set BANCO1 = New ADODB.Recordset
  BANCO1.Open ("AGENDAMENTO"), nConn2
Dim i As Integer

i = 0

Me.Listview1.ListItems.Clear
    Me.Listview1.ColumnHeaders.Clear
    Me.Listview1.View = lvwReport
    Me.Listview1.Gridlines = True
 Listview1.ColumnHeaders.Clear
 Me.Listview1.ColumnHeaders.Add , , "", 0
    Me.Listview1.ColumnHeaders.Add , , "OS", 60, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "DATA", 170, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "HORA", 170, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "CLIENTE", 170, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "FONE1", 120, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "FONE2", 120, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "RAMAL", 120, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "E-MAIL", 170, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "SERVIÇO", 170, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "PROFISSIONAL", 170, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "DATA_PROX_CONSULTA", 170, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "HORA_PROX_CONSULTA", 170, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "E-MAIL CONFIRMAÇÃO DE CONSULTA", 300, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "E-MAIL CONFIRMAÇÃO DE RETORNO", 300, lvwColumnCenter
 'Aqui é nossa busca pelo que digitammos
'A busca pode ter qualquer parametro desde que lhe atenda
Dim CADASTRO(1 To 15)

            CADASTRO(1) = UCase(Me.TextFILTROPROF.Text)
            TextFILTROPROF.Text = CADASTRO(1)
            CADASTRO(2) = UCase(Me.Textcliente2.Text)
            Textcliente2.Text = CADASTRO(2)
If TextFILTROPROF.Text = Null Then

MsgBox "CAMPO DE PESQUISA PARA AGENDA: PROFISSIONAL ESTÁ EM BRANCO"
End If
If textboxfiltro.Text = Null Then
MsgBox "CAMPO DE PESQUISA PARA AGENDA: DATA ESTÁ EM BRANCO"
End If
SQL = "SELECT OS,NOME,DATA,HORA,fone1,fone2,RAMAL,EMAIL,SERVICO,PROFISSIONAL,DATA_PROX_AGENDAMENTO,HORA_PROX_AGENDAMENTO,consulta,retorno,PRONTUARIO FROM [AGENDAMENTO]"
    SQL = SQL & " WHERE [DATA] = '" & textboxfiltro & "'  OR [DATA_PROX_AGENDAMENTO]='" & textboxfiltro & "'"
    SQL = SQL & " AND [PROFISSIONAL]= '" & TextFILTROPROF & "' OR [DATA] = '" & textboxfiltro & "'  OR [DATA_PROX_AGENDAMENTO]='" & textboxfiltro & "'"
    
    'sql2 = "SELECT OS,NOME,DATA,HORA,TELRES,TELCEL,TELCOM,RAMAL,EMAIL,SERVICO,PROFISSIONAL,DATA_PROX_AGENDAMENTO,HORA_PROX_AGENDAMENTO,OBSERVACAO,PRONTUARIO FROM [AGENDAMENTO]"
    'sql2 = sql2 & " WHERE [DATA_PROX_AGENDAMENTO] = '" & TextBOXFILTRO & "'"
    'sql2 = sql2 & " AND [PROFISSIONAL]= '" & TextFILTROPROF & "'"
    
    Set BANCO = New ADODB.Recordset
    
    BANCO.Open SQL, nConn
   i = 1
   'banco1.Open sq2, nConn2
   
   'Count = BANCO1.RecordCount
   'BANCO1.MoveFirst
    'Set DB = OpenDatabase("\\CARLOSSETTI-PC\C\REAL FEET\DATABASE\REALFEET.MDB")
    'Set BANCO = DB.OpenRecordset("AGENDAMENTO")
'BANCO.MoveFirst
While Not BANCO.EOF
If TextFILTROPROF <> "" And textboxfiltro <> "" And Textcliente2 = "" Or TextFILTROPROF = "" And textboxfiltro <> "" And Textcliente2 = "" Then
Set LI = Listview1.ListItems.Add(Text:=BANCO("OS"))
If (BANCO("DATA") = textboxfiltro.Text Or BANCO("DATA_PROX_AGENDAMENTO") = textboxfiltro.Text) Or (BANCO("DATA") = textboxfiltro.Text Or BANCO("DATA_PROX_AGENDAMENTO") = textboxfiltro.Text) And BANCO("PROFISSIONAL") = TextFILTROPROF.Text Then

If BANCO("os") <> "" Then


LI.ListSubItems.Add Text:=BANCO("OS")


End If

If BANCO("data") <> "" Then

LI.ListSubItems.Add Text:=BANCO("DATA")

End If
If BANCO("hora") <> "" Then

LI.ListSubItems.Add Text:=BANCO("HORA")

End If
If BANCO("nome") <> "" Then


LI.ListSubItems.Add Text:=BANCO("NOME")

End If
If BANCO("FONE1") <> "" Then

LI.ListSubItems.Add Text:=BANCO("FONE1")

End If
If BANCO("FONE2") <> "" Then

LI.ListSubItems.Add Text:=BANCO("FONE2")

End If
If BANCO("ramal") <> "" Then

LI.ListSubItems.Add Text:=BANCO("RAMAL")

End If
If BANCO("email") <> "" Then

LI.ListSubItems.Add Text:=BANCO("EMAIL")

End If
If BANCO("servico") <> "" Then

LI.ListSubItems.Add Text:=BANCO("SERVICO")

End If
If BANCO("profissional") <> "" Then

LI.ListSubItems.Add Text:=BANCO("profissional")

End If
If BANCO("data_prox_agendamento") <> "" Then

LI.ListSubItems.Add Text:=BANCO("data_prox_agendamento")

End If
If BANCO("hora_prox_agendamento") <> "" Then

LI.ListSubItems.Add Text:=BANCO("hora_prox_agendamento")

End If
If BANCO("CONSULTA") <> "" Then

LI.ListSubItems.Add Text:=BANCO("CONSULTA")

End If
If BANCO("RETORNO") <> "" Then

LI.ListSubItems.Add Text:=BANCO("RETORNO")

End If

End If
Listview1.


Dim item As ListItem
 

'Aqui estamos acessando e definindo cada subitem

'Define o formato de visao como Report
Listview1.View = lvwReport



i = i + 1
BANCO.MoveNext

End If
Wend

 

'Aqui estamos acessando e definindo cada subitem

'Define o formato de visao como Report
Listview1.View = lvwReport




    
    
    
        Call TiraAcento2(linha)
While Not BANCO1.EOF
If TextFILTROPROF = "" And textboxfiltro = "" And Textcliente2 = BANCO1("NOME") Then
Set LI = Listview1.ListItems.Add(Text:=BANCO1("OS"))
If BANCO1("os") <> "" Then


LI.ListSubItems.Add Text:=BANCO1("OS")


End If

If BANCO1("data") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("DATA")

End If
If BANCO1("hora") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("HORA")

End If
If BANCO1("nome") <> "" Then


LI.ListSubItems.Add Text:=BANCO1("NOME")

End If
If BANCO1("FONE1") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("FONE1")

End If
If BANCO1("FONE2") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("FONE2")

End If
If BANCO1("ramal") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("RAMAL")

End If
If BANCO1("email") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("EMAIL")

End If
If BANCO1("servico") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("SERVICO")

End If
If BANCO1("profissional") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("profissional")

End If
If BANCO1("data_prox_agendamento") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("data_prox_agendamento")

End If
If BANCO1("hora_prox_agendamento") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("hora_prox_agendamento")

End If
If BANCO1("CONSULTA") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("CONSULTA")

End If
If BANCO1("RETORNO") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("RETORNO")

End If
End If
BANCO1.MoveNext
Wend
CommandButton4.Enabled = False
CommandButton5.Enabled = False
CommandButton6.Enabled = False
CommandButton7.Enabled = False
CommandButton12.Enabled = False
CommandButton15.Enabled = False

nConn.Close
    Set BANCO = Nothing
    Exit Sub


End Sub