ERRO NO ORDER BY....

JORGESALES 16/08/2015 23:44:40
#450095
Pessoal estou usando uma função para buscar informações de uma tabela
mas não consigo encaixar o [Ô]order by[Ô] queria ordernar por order alfabética,
alguém pode ajudar?
Sub LoadLst(lst As ListView, Tabela As String)
    lst.ListItems.Clear
    Dim Item As ListItem
    ConnectDB
        rs.Open [Ô]select * from [Ô] & Tabela, db, 3, 3
            Do Until rs.EOF
                Set Item = lst.ListItems.Add(, , VBA.UCase(rs(1)))
                    Item.SubItems(1) = rs!Codigo
                rs.MoveNext
            Loop
            [ô]lst.Sorted lvwAscending
    FechaBD
End Sub

Tente assim mas não foi 
rs.Open [Ô]select * from [Ô] & Tabela, [Ô]order by asc[Ô], db, 3, 3
JABA 17/08/2015 00:18:07
#450098
Tente assim:

Sub LoadLst(lst As ListView, Tabela As String)
    lst.ListItems.Clear
    Dim Item As ListItem
    ConnectDB
        rs.Open [Ô]select * from [Ô] & Tabela & [Ô] order by asc[Ô], db, 3, 3
            Do Until rs.EOF
                Set Item = lst.ListItems.Add(, , VBA.UCase(rs(1)))
                    Item.SubItems(1) = rs!Codigo
                rs.MoveNext
            Loop
            [ô]lst.Sorted lvwAscending
    FechaBD
End Sub
OMAR2011 17/08/2015 08:16:49
#450106 Resposta escolhida
Tente assim mas não foi
rs.Open [Ô]select * from [Ô] & Tabela, [Ô]order by asc[Ô], db, 3, 3

Você tem que ter um campo para ordenação.
rs.Open [Ô]select * from [Ô] & Tabela, [Ô]order by [txt-color=#e80000]Campodatabela[/txt-color] asc[Ô], db, 3, 3
JABA 17/08/2015 10:06:43
#450112
O Omar tem razão, só faltou tirar a virgula do meio do caminho:

rs.Open [Ô]select * from [Ô] & Tabela & [Ô] order by Campodatabela asc[Ô], db, 3, 3
Tópico encerrado , respostas não são mais permitidas
Voltar