ListBox Excel x Access - ListBox com mais de 10 colunas
Enviado: Qui Jul 25, 2019 11:55 am
Bom dia a todos!
Primeiramente quero agradecer a ajuda do Reinaldo (Jedi), no tópico anterior!
Usando novamente a planilha exemplo disponibilizada por Renam Fernado Ruthes, pergunto se é possível carregar o ListBox com mais de 10 colunas, com dados de uma planilha do acccess.
Sub Preenche_Listbox()
'Cria variável que armazena os comandos SQL
Dim ComandoSQL As String
'Armazena na variável o comando que fará a consulta SQL no BD Access
ComandoSQL = "select * from tabela_clientes"
'Chama a rotina que faz a conexão com o BD
Call Conecta
'Atribui a variável objeto de BD a execução dos comandos SQL
Set consulta = banco.OpenRecordset(ComandoSQL)
'Tratamento de erro de acesso aos dados. Se houver erro, desvia o comando para o rótulo Sai
On Error Resume Next
'Populando o listbox
linhalistbox = 0
While Not consulta.EOF
With Me.ListBox1
.AddItem
.List(linhalistbox, 0) = consulta(0) 'ID
.List(linhalistbox, 1) = consulta(1) 'nome
.List(linhalistbox, 2) = consulta(2) 'Sobrenome
.List(linhalistbox, 3) = consulta(3) 'CPF
.List(linhalistbox, 4) = consulta(4) 'RG
.List(linhalistbox, 5) = consulta(5) 'Endereço
.List(linhalistbox, 6) = consulta(6) 'Numero
.List(linhalistbox, 7) = consulta(7) 'Cidade
.List(linhalistbox, 8) = consulta(8) 'Estado
.List(linhalistbox, 9) = consulta(9) 'Data
End With
linhalistbox = linhalistbox + 1
consulta.MoveNext
Wend
Call Desconecta
Me.lbl_registros = Me.ListBox1.ListCount
End Sub
Primeiramente quero agradecer a ajuda do Reinaldo (Jedi), no tópico anterior!
Usando novamente a planilha exemplo disponibilizada por Renam Fernado Ruthes, pergunto se é possível carregar o ListBox com mais de 10 colunas, com dados de uma planilha do acccess.
Sub Preenche_Listbox()
'Cria variável que armazena os comandos SQL
Dim ComandoSQL As String
'Armazena na variável o comando que fará a consulta SQL no BD Access
ComandoSQL = "select * from tabela_clientes"
'Chama a rotina que faz a conexão com o BD
Call Conecta
'Atribui a variável objeto de BD a execução dos comandos SQL
Set consulta = banco.OpenRecordset(ComandoSQL)
'Tratamento de erro de acesso aos dados. Se houver erro, desvia o comando para o rótulo Sai
On Error Resume Next
'Populando o listbox
linhalistbox = 0
While Not consulta.EOF
With Me.ListBox1
.AddItem
.List(linhalistbox, 0) = consulta(0) 'ID
.List(linhalistbox, 1) = consulta(1) 'nome
.List(linhalistbox, 2) = consulta(2) 'Sobrenome
.List(linhalistbox, 3) = consulta(3) 'CPF
.List(linhalistbox, 4) = consulta(4) 'RG
.List(linhalistbox, 5) = consulta(5) 'Endereço
.List(linhalistbox, 6) = consulta(6) 'Numero
.List(linhalistbox, 7) = consulta(7) 'Cidade
.List(linhalistbox, 8) = consulta(8) 'Estado
.List(linhalistbox, 9) = consulta(9) 'Data
End With
linhalistbox = linhalistbox + 1
consulta.MoveNext
Wend
Call Desconecta
Me.lbl_registros = Me.ListBox1.ListCount
End Sub