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 desvinculada com Front-End Desvinculado com senha

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

18022012

Mensagem 

Carregar-popular ListBox desvinculada com Front-End Desvinculado com senha






Seção de origem no Blog: Desvinculos


Carregando a ListBox apartir de outro banco (BackEnd) com senha.

No evento ao carregar do formulário utilize:

Código:
Dim MeuCaminho As String
 Dim MinhaSenha  As Variant
  Dim Db As DAO.Database
   Dim nSQL As String

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

        'Armazenando a senha do banco de dados na variável "MinhaSenha"
         MinhaSenha = "123456"

           'Instanciando a abertura do banco de dados tendo como parametro "MeuCaminho" e "MinhaSenha"
             Set Db = DBEngine.OpenDatabase(MeuCaminho, False, False, ";PWD=" & MinhaSenha)

                'Armazenando os registros na variável nSQL:
                   nSQL = "SELECT CdPais, Pais FROM Paises IN" & " '" & MeuCaminho & "'" & "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 = 2 colunas.
            Me.Lista.ColumnCount = 2

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

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

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

'Fechando a instancia ao banco de dados
Db.Close

Faça download do exemplo:
Download

Fui study


avatar
Dilson
Facilitador
Facilitador

Brasil


http://www.dadosweb.com

Voltar ao Topo Ir em baixo

- Tópicos similares
Compartilhar este artigo em: BookmarksDiggRedditDel.icio.usGoogleLiveSlashdotNetscapeTechnoratiStumbleUponNewsvineFurlYahoo!Smarking

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