Notifications
Clear all

Preenchendo ListBox com Query

4 Posts
2 Usuários
0 Reactions
829 Visualizações
(@diegopm)
Posts: 2
New Member
Topic starter
 

Bom dia Turma!
Gostaria de pedir uma ajuda para solucionar um problema que estou tendo.
Atualmente trabalho com uma planilha onde eu tenho uma Tabela conectada com um banco ODBC, onde trabalho com uma Query vinculando varias tabelas com vários filtros.

No entanto gostaria de trazer esta consulta dentro de uma listbox. Teria como eu trazer esta consulta dentro da RowSource?

 
Postado : 01/08/2017 8:17 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

DiegoPM,

Bom dia!

Sim. isso é possível.

No exemplo anexo, estou fazendo acesso a um banco de dados com duas tabelas e, quando o formulário no Excel é carregado, os dados de uma consulta são carregados para um ComboBox para poder o usuário selecionar um dos nomes.

Para o resultado da consulta ir para um ListBox o processo é o mesmo que usei para carregar os dados no ComboBox. Todavia, isso não deve ser utilizado na propriedade RowSource.

Veja se assim lhe atende.

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 : 01/08/2017 8:35 am
(@diegopm)
Posts: 2
New Member
Topic starter
 

Wagner, Obrigado pelo apoio, vou dar uma estudada.
Neste caso como você aconselha a popular a ListBox?
Estava indo nesta linha de raciocínio:

With Me.ListBox2.AddItem(SourceType:=0, Source:= _
"ODBC;DSN=XXXX;UID=XXX;PWD=XXX;APP=Microsoft Office 2013;WSID=XXXX;DATABASE=XXXX").QueryTable
.CommandType = xlCmdSql
.CommandText = Array( _
"SELECT *FROM XXXXXXX")
End With

Estou indo muito errado? rs
Obs.: Sou novo no VBA, estou estudando ainda, rs!

 
Postado : 01/08/2017 2:16 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Diego,

Sim, está muito errado.

Dei uma arrumada no arquivo que tinha lhe enviado antes de modo a exibir os dados da consulta SQL diretamente em um ListBox.

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 : 02/08/2017 9:07 am