none
Remover "¶" do final dos textos de uma LISTBOX RRS feed

  • Pergunta

  • Bom dia pessoal estou desenvolvendo uma plicação no VBA onde se carrega o resultado de uma SELECT do SQL Server para dentro de uma listBox, porem o texto adicionado vem com o caractere "¶" no final de cada linha.

    O código de inserção é algo assim:

      

    For Linha = 1 To Conta
      Set rs = conn.Execute("With Nav_Linhas as (Select *,ROW_NUMBER() OVER(ORDER BY ID_Clientes) As LinhaSQL from Clientes ) Select Nome from Nav_Linhas where linhaSQL = " & Linha)
      SQL = rs.GetString
      'MsgBox SQL

      ListBox1.AddItem SQL
      ComboBox1.AddItem SQL
     Next Linha

    Já não sei mais o que poderia fazer para remover o "¶", pois este caractere atrapalha a utilização da informação em outras Select futuras.

    Agradeço desde já pela ajuda.


    • Editado Lucas Frazão quinta-feira, 11 de janeiro de 2018 12:34
    quinta-feira, 11 de janeiro de 2018 10:59

Todas as Respostas

  • Option Explicit
    
    Function RetirarUltimoCaractereDaDireita(ByVal texto As String) As String
    
    RetirarUltimoCaractereDaDireita = Left(texto, Len(texto) - 1)
    
    
    End Function
    
    
    Sub teste()
    
    MsgBox RetirarUltimoCaractereDaDireita("texto")
    
    End Sub
    


    A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz diniabr2011@gmail.com

    • Sugerido como Resposta AndersonFDiniz2 quinta-feira, 11 de janeiro de 2018 14:08
    quinta-feira, 11 de janeiro de 2018 14:08
  • Obrigado consegui!

    quinta-feira, 11 de janeiro de 2018 15:10