MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Jornada em Desvinculos] Carregamento de ListBox

    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : 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 Ter 10 Jan - 8: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 : Respeito às Regras 100%

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

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

    Mensagem  JPaulo Ter 10 Jan - 10: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 : 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 Sex 17 Fev - 23: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 Seg 20 Fev - 18:03, editado 1 vez(es)
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : 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 Sex 17 Fev - 23: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 : 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 Sex 17 Fev - 23: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 : 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 Seg 20 Fev - 16: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: Qui 28 Mar - 16:35