none
Como colocar titulo nas colunas de um Listbox RRS feed

  • Pergunta

  • Boa tarde, 

    Gostaria de saber como faço para colocar títulos nas colunas de um listbox que é preenchido a partir do banco de dados.

    ###informação adicional#####

    eu faço uma consulta ao banco e preencho um listbox, mas não consigo colocar os títulos nas colunas. queria ver se é possível fazer direto da consulta.

    #####codigo#####

                                         

    Sub carrega_retiros()
     Dim rs As ADODB.Recordset
       Dim cn As ADODB.Connection

        Dim strDB As String
        Dim strSQL As String

        Set cn = New ADODB.Connection
        Set rs = New ADODB.Recordset

        strDB = ThisWorkbook.Path & "\db_salgacao.accdb"
        cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & strDB & ";"

        cn.Open
     ''''''carrega estados
       strSQL = "SELECT * from tbRetiros"

        Set rs = cn.Execute(strSQL)

        If rs.RecordCount < 0 Then
            Do While Not rs.EOF

                '''carrega retiros
                frmRetiros.lbRetiros.AddItem rs.Fields("codigo")   '''carrega codigos
                frmRetiros.lbRetiros.List(frmRetiros.lbRetiros.ListCount - 1, 1) = rs.Fields("nome_retiro")  '''carrega retiros
                rs.MoveNext

                ''''''''''''''''''''''''''
           Loop
       End If

     rs.Close
      cn.Close
    End Sub

    quarta-feira, 27 de dezembro de 2017 21:19

Todas as Respostas

  • Já resolvi.

    na verdade o controle que mostra nome das colunas é o LISTVIEW, mas na versão do meu office (64) ele não roda.

    não será possível.

    quarta-feira, 27 de dezembro de 2017 21:49