Notifications

Clear all

SELECT DISTINCT com WHERE (Excel X Access)

2024 - VBA & Macros

Post Recente por depoisteconto 10 anos atrás

6 Posts

3 Usuários

0 Reactions

1,729 Visualizações

RSS

depoisteconto

(@depoisteconto)

Posts: 183

Estimable Member

Topic starter

Caros, bom dia!

Para selecionar dados de uma tabela e carregar um combobox em um userform excel rodo a seguinte rotina:

sql = "SELECT DISTINCT [Campo1] FROM Tabela1 ORDER BY [Campo1];"
cx.Conectar
banco.Open sql, cx.Conn
banco.MoveFirst
With Me.Tipo
     .Clear
      Do
     .AddItem banco![Campo1]
      banco.MoveNext
      Loop Until banco.EOF
End With
banco.Close
cx.Desconectar

Quero colocar um WHERE porque só quero listar os dados do Campo1, cujo Campo2 estiver como "Ok".

Tentei aqui de algumas formas mas estou errando na sintaxe.

Postado : 24/06/2014 7:55 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Seria algo +/- assim
sql=SELECT Tabela1.Campo1 FROM Tabela1 WHERE (((Tabela1.Campo2)="Ok")) ORDER BY Tabela1.Campo1;

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 24/06/2014 8:05 am

depoisteconto

(@depoisteconto)

Posts: 183

Estimable Member

Topic starter

Seria algo +/- assim
sql=SELECT Tabela1.Campo1 FROM Tabela1 WHERE (((Tabela1.Campo2)="Ok")) ORDER BY Tabela1.Campo1;

Olá Reinaldo, obrigado por responder.

Ehh, não passou não.

Continuo pesquisando, se tiver qualquer outra contribuição fique a vontade para postar.

Postado : 24/06/2014 8:31 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

A sintaxe é essa, se "não passou" deve ser outro motivo, nome de campo ou nome da tabela ou valor ok maiúsculo e na tabela minúsculo ou .. ou ....

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 24/06/2014 9:19 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

depoisteconto,

Boa Tarde!

Veja um pequeno exemplo que faz o que você quer.

Baixe o arquivo, faça a descompactação dos dois arquivos em uma mesma pasta e execute o arquivo Excel. Observe que na tabela só existem 6 produtos no Campo1, cujo Campo2 está com o conteúdo "Ok".

Arquivos.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 24/06/2014 11:47 am

depoisteconto

(@depoisteconto)

Posts: 183

Estimable Member

Topic starter

depoisteconto,

Boa Tarde!

Veja um pequeno exemplo que faz o que você quer.

Baixe o arquivo, faça a descompactação dos dois arquivos em uma mesma pasta e execute o arquivo Excel. Observe que na tabela só existem 6 produtos no Campo1, cujo Campo2 está com o conteúdo "Ok".

Em tempo...

É isso mesmo Morel, obrigado.

Reinaldo, obrigado.

Postado : 26/06/2014 8:20 am