Página 1 de 1

[resolvido] Exibir Cabeçalho das Colunas da ListBox com ADO

Enviado: 20 Mar 2017, 02:07
por jbcotrim
Olá amigos!

Com as tabelas vinculadas, podemos exibir os cabeçalhos das colunas na LISTBOX, pois, o "Tipo de Origem da Linha" é configurada como "Tabela/Consulta". Já usando ADO, conforme exemplo de nosso amigo Jefferson Bras, o "Tipo de Origem da Linha" é configurada como "Lista de Valores" que não traz os cabeçalhos das colunas. Como resolver essa questão?
Desde já agradeço pela ajuda.
Um forte abraço!
Jeser

Re: Exibir Cabeçalho das Colunas da ListBox com ADO

Enviado: 20 Mar 2017, 18:20
por Damasceno Jr.
O ideal é ter um código que avalia cada combobox de cada formulário já que o cabeçalho de cada coluna pode variar.

Código:
Public Sub Lista_Load(csql, ForMy, MeuControle)

Call Conexao_Open(csql)

Dim FormAberto As Form 'Recebe o nome do formulário atual
Set FormAberto = Forms(ForMy)

FormAberto(MeuControle) = Null 'Limpa seleção do registro
FormAberto(MeuControle).RowSource = "" 'Limpa os dados da caixa de listagem
FormAberto(MeuControle).Requery 'atualiza dados da caixa de listagem

Select Case ForMy

Case "Contatos"

Select Case MeuControle

Case "Lista"

'no controle que deseja, deixe o cabeçalho das colunas ativo
'para controle de uma coluna "Coluna1"
'para controle de duas colunas "Coluna1;Coluna2"
'para controle de três colunas "Coluna1;Coluna2;"Coluna3"
'no exemplo a seguir, uma das colunas está oculta e então não preciso atribuir um valor. Atribuo apenas cabeçalho para a segunda coluna

'carrego a primeira linha que será os cabeçalhos

FormAberto(MeuControle).AddItem ";Nome"

'carrego o restante da lista, caso minha consulta retorne registros
While (Not rs.EOF)

FormAberto(MeuControle).AddItem rs.Fields(0).Value & ";" & rs.Fields(1).Value
rs.MoveNext 'vai para o proximo registro

Wend

Case "cboExemplo"

While (Not rs.EOF)

FormAberto(MeuControle).AddItem rs.Fields(0).Value
rs.MoveNext 'vai para o proximo registro

Wend

End Select

Case "QualquerOutroFormulário"

Select Case MeuControle

Case "NomeDaMinhaComboboxOuListboxEmQualquerOutroFormulário"

End Select

End Select



rs.Close 'fecha o recorset
cn.Close 'fecha o banco de dados


End Sub

Re: Exibir Cabeçalho das Colunas da ListBox com ADO

Enviado: 22 Mar 2017, 03:20
por jbcotrim
Caro amigo Damasceno.

Coloquei em prática sua orientação e funciona perfeitamente.
Muito obrigado pela atenção e ajuda.
Com certeza outras dúvidas virão e não hesitarei em contar com a sua prestimosa ajuda.
Um forte abraço!
Jeser