[Jornada em Desvinculos] Carregamento de ListBox

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!

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

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

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

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!

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