MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Jornada em Desvinculos] Carregamento de ListBox

    Dilson
    Dilson
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Jornada em Desvinculos] Carregamento de ListBox Empty [Jornada em Desvinculos] Carregamento de ListBox

    Mensagem  Dilson em 10/1/2012, 15:50

    Olá caros Programadores,

    Faço o convite a todos, para avançarmos na segunda etapa da [Jornada em Desvinculos]. Agora, sendo como desafio, o carregamento de um controle ListBox. As regras são as mesmas já declaradas na primeira etapa em que ensaiamos com a combobox ( [Jornada em Desvinculos]Sala de situação, carregamento de ComboBox ).

    Gostaria de dizer aos Programadores que participaram da primeira, que conto com vossos entusiasmos e astúcias.

    Amigos, vamos em frente na Jornada!
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10561
    Registrado : 04/11/2009

    [Jornada em Desvinculos] Carregamento de ListBox Empty Re: [Jornada em Desvinculos] Carregamento de ListBox

    Mensagem  JPaulo em 10/1/2012, 17:53

    Popula dados numa ListBox desvinculada, com o banco sem tabelas nem consultas.


    Código:
    Private Sub Form_Load()
    Dim strSelect As String
    Dim i As Integer
    Dim rst As DAO.Recordset

    strSelect = "SELECT * from SuaTabela IN 'C:\SeuOutroBanco.mdb';"
    Me.SuaListBox.RowSourceType = "Value List"
    Me.SuaListBox.RowSource = ""
    Me.SuaListBox.ColumnCount = 1
    Me.SuaListBox.BoundColumn = 1
    Me.SuaListBox.ColumnWidths = "1.0 in"
    Set rst = CurrentDb.OpenRecordset(strSelect, dbOpenSnapshot)
    rst.MoveFirst
    i = 0
    With rst
        With Me.SuaListBox
            Do
                .AddItem rst!SeuCampoNaTabela
                rst.MoveNext
            Loop Until rst.EOF
        End With
    End With
    Me.SuaListBox.Requery
    End Sub




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Jornada em Desvinculos] Carregamento de ListBox Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Jornada em Desvinculos] Carregamento de ListBox Folder_announce_new 102 Códigos VBA Gratuitos...
    [Jornada em Desvinculos] Carregamento de ListBox Folder_announce_new Instruções SQL como utilizar...
    Dilson
    Dilson
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Jornada em Desvinculos] Carregamento de ListBox Empty Re: [Jornada em Desvinculos] Carregamento de ListBox

    Mensagem  Dilson em 18/2/2012, 06:35

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

    No evento ao carregar do formulário utilize:
    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 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 acima 2
      Me.Lista.ColumnWidths = "1cm;2cm"

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

    Veja o exemplo:
    Download


    Última edição por Dilson em 21/2/2012, 01:03, editado 1 vez(es)
    Dilson
    Dilson
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Jornada em Desvinculos] Carregamento de ListBox Empty Re: [Jornada em Desvinculos] Carregamento de ListBox

    Mensagem  Dilson em 18/2/2012, 06:39

    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

    Veja o exemplo:
    Download
    Dilson
    Dilson
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Jornada em Desvinculos] Carregamento de ListBox Empty Re: [Jornada em Desvinculos] Carregamento de ListBox

    Mensagem  Dilson em 18/2/2012, 06:47

    As duas formas usei o método rowsource. Utilizando o método AddItem reproduzi em exemplo o código disponibilizado pelo JPaulo.

    Veja o exemplo:
    Download

    Até mais!
    Dilson
    Dilson
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Jornada em Desvinculos] Carregamento de ListBox Empty Re: [Jornada em Desvinculos] Carregamento de ListBox

    Mensagem  Dilson em 20/2/2012, 23:24

    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

    Conteúdo patrocinado

    [Jornada em Desvinculos] Carregamento de ListBox Empty Re: [Jornada em Desvinculos] Carregamento de ListBox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/9/2019, 01:49