Access inicio | | | | | |
Olá,
Seja Bem Vindo ao Blog.

Conecte-se ou registre-se e utilize gratuitamente este equipamento, temos exemplos referente a criação de banco de dados e desenvolvimento de softwares e programas utilizando o Microsoft Access.


Administração do Blog AccessDoProgramador.

Carregar-popular ListBox usando critério num Front-End Desvinculado

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

20022012

Mensagem 

Carregar-popular ListBox usando critério num Front-End Desvinculado






Seção de origem no blog: Desvinculos


Acessando utilizando critério em dados de um back-end desvinculado.

Neste exemplo eu coloquei o campo [Economia] = 'Alta'. Ou seja, listar na ListBox somente os paises que tenham o campo Economia preenchido igual "Alta".

Código:

Dim MeuCaminho As String
     Dim nSQL As String

        'Armazenando o caminho do banco de dados na variável "MeuCaminho"
           MeuCaminho = Application.CurrentProject.Path & "\banco\BackEnd.mdb"

                'Armazenando os registros na variável nSQL:
                  nSQL = "SELECT CdPais, Pais, Economia FROM Paises IN" & " '" & MeuCaminho & "'" & "WHERE Economia='Alta'" & "ORDER BY Pais;"
  
                'Define a propriedade tipo de origem da linha como Tabela/Consulta.
               Me.Lista.RowSourceType = "Table/Query"

            'Limpa a origem da linha da listbox.
           Me.Lista.RowSource = ""

         'Define a propriedade número de colunas = 3 colunas.
        Me.Lista.ColumnCount = 3

      'Define a propriedade coluna acoplada = 1 (cujo valores serão utilizados como valor do controle).
     Me.Lista.BoundColumn = 1

   'Define tres valores na propriedade largura das colunas, haja vista ter declarado acima 3
  Me.Lista.ColumnWidths = "1cm;3cm;1cm"

'Propaga os dados da variável nSQL na ListBox
Me.Lista.RowSource = nSQL

Faça download do exemplo:
Download

Sucesso a todos study


avatar
Dilson
Facilitador
Facilitador

Brasil


http://www.dadosweb.com

Voltar ao Topo Ir em baixo

- Tópicos similares
Compartilhar este artigo em: diggdeliciousredditstumbleuponslashdotyahoogooglelive

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum