MAIS UMA DO ORDER BY

JORGESALES 26/08/2015 08:14:36
#450499
Pessoal , bom dia, não estou conseguindo colocar o order by no código abaixo,
apresenta um erro:
Sub LoadCombo(Combo As ComboBox, Tabela As String, Orden As String)
    Combo.Clear
    ConnectDB
        rs.Open [Ô]select * from  & Tabela, &  [Ô] Order by [Ô] & Orden, db, 3, 3
            Do Until rs.EOF
                Combo.AddItem VBA.UCase(rs(1))
                rs.MoveNext
            Loop
    FechaBD
End Sub

Alguém pode ajudar?
FFCOUTO 26/08/2015 08:42:15
#450501 Resposta escolhida
Jorge,

O ORDER BY faz para do comando. No teu código você separou com uma vírgua e acabou colocando o ORDER BY como parâmetro da função Open.

[Ô]select * from  & Tabela[txt-color=#e80000],[/txt-color] &  [Ô] Order by [Ô] & Orden


A sua query deve ficar assim:

[Ô]select * from  & Tabela &  [Ô] Order by [Ô] & Orden
ACCIOLLY 26/08/2015 08:45:20
#450502
dentro do seu select 
rs.Open [Ô]select * from  & Tabela, &  [Ô] Order by [Ô] & Orden, db, 3, 3

O que significa essa vírgula depois de Tabela???
JORGESALES 26/08/2015 09:23:02
#450506
Citação:

:
A sua query deve ficar assim:

[Ô]select * from  & Tabela &  [Ô] Order by [Ô] & Orden
BR]



Fabiano,
obrigado pela ajuda, acho que faltava uma aspa no seu código, daí
acrescentei mas deu erro também (já havia tentado dessa forma).
JORGESALES 26/08/2015 09:26:28
#450507
Citação:

:
dentro do seu select 

rs.Open [Ô]select * from  & Tabela, &  [Ô] Order by [Ô] & Orden, db, 3, 3

O que significa essa vírgula depois de Tabela???



Sem a vírgula dá erro do mesmo jeito, uso a vírgula porque assim:
Sub LoadCombo(Combo As ComboBox, Tabela As String)
           rs.Open [Ô]select * from [Ô]  & Tabela, db, 3, 3

O código funciona, só preciso colocar um Order by....
ACCIOLLY 26/08/2015 09:36:16
#450508
Na verdade deve ficar 
rs.Open [Ô]SELECT * FROM [Ô] & Tabela & [Ô] ORDER BY [Ô] & Orden, db,3,3

Esse é o padrão de concatenação de strings no vb
FFCOUTO 26/08/2015 10:02:05
#450511
Jorge,

Desculpe pela falha. Realmente faltou uma aspas depois do FROM.
O ACCIOLLY, corrigiu esse problema.
JORGESALES 26/08/2015 11:14:55
#450514
Não sei o que seria de mim sem vocês,
gostaria de pontuar os 2 (rs) mas fica
os meus sinceros agradecimentos.
Tópico encerrado , respostas não são mais permitidas
Voltar