none
como inserir o valor de uma combobox em um comando select no vba? RRS feed

  • Pergunta

  • ola, boa tarde

    como faço no vba do excel, para que um combobox retorne o valor na minha caixa de select, já tentei de muitas formas, mas ate agora nenhuma deu certo, o oque preciso é que apos eu escolher um estado no combobox ele salve isso e jogue no select para encontrar no meu banco de dados, eu consegui fazer ele retornar o valor código de um estado,mas não de todos, agradeço se alguém puder ajudar, deixo o código abaixo.   tem outro comando alem do like que possa ser usado nesse caso?

    Set rs = DB.OpenRecordset("select [code] from [estado] where [estados] like ('" & combobox1 & "') ")

    Private Sub UserForm_initialize()

    Dim cnConexao As New ADODB.Connection
    Dim rsProjeto As New ADODB.Recordset
    Set cnConexao = New ADODB.Connection
    Set rsProjeto = New ADODB.Recordset
    Dim jsProjeto As New ADODB.Recordset
    Set jsProjeto = New ADODB.Recordset
    Dim Arquivo As String
    Arquivo = ActiveWorkbook.Path & "\pessoa.accdb"
    cnConexao.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Arquivo)
    Dim DB As Database
    Set DB = OpenDatabase(Arquivo)

    Set js = DB.OpenRecordset("select [estados] from [estado]")
    Do While Not js.EOF
        Me.combobox1.AddItem js.Fields(0) & ""
        estadosx = (js.Fields(0) & "")
        js.MoveNext


    Loop


    Set rs = DB.OpenRecordset("select [code] from [estado] where [estados] like ('" & combobox1 & "') ")
    Do While Not rs.EOF

    Me.ComboBox2.AddItem rs.Fields(0) & ""
    codigoestado = (rs.Fields(0) & "")
    rs.MoveNext

    Loop
    DB.Close
    Set DB = Nothing

    End Sub

    aqui é onde esta o meu problema (coloquei o código todo pra vocês entenderem a pegunta), só com o like não ta dando, não consegui fazer um "like for values ('" & combobox1 & "') ")", ele nao puxa o estado para fazer a verificação, aí não gera o código.

    Set rs = DB.OpenRecordset("select [code] from [estado] where [estados] like ('" & combobox1 & "') ")

    desde já agradeço pela ajuda, tenham um ótimo dia.

    sexta-feira, 10 de novembro de 2017 13:39

Respostas

  • Bom dia,

    Por falta de retorno essa thread está encerrada.

    Se necessário, favor abrir uma nova thread.

    Atenciosamente,


    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 20 de novembro de 2017 13:07
    Moderador

Todas as Respostas

  • Boa tarde, fantomas97. Tudo bem?

    Obrigado por usar o fórum MSDN.

    Essa seria uma questão de "Break Fix/Erro" ou "How to/Customização"?

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    sexta-feira, 10 de novembro de 2017 19:47
    Moderador
  • Bom dia,

    Por falta de retorno essa thread está encerrada.

    Se necessário, favor abrir uma nova thread.

    Atenciosamente,


    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 20 de novembro de 2017 13:07
    Moderador