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

Moderador: Avelino Sampaio

jbcotrim
Mensagens: 16
Registrado em: 08 Jun 2015, 13:13

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

Mensagempor jbcotrim » 20 Mar 2017, 02:07

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

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Damasceno Jr.
Mensagens: 358
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

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

Mensagempor Damasceno Jr. » 20 Mar 2017, 18:20

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
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

jbcotrim
Mensagens: 16
Registrado em: 08 Jun 2015, 13:13

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

Mensagempor jbcotrim » 22 Mar 2017, 03:20

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

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Access x MySql”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante