none
como selecionar quais dados do banco de dados eu quero no combobox RRS feed

  • Pergunta

  • galera é o seguinte eu tenho uma datagridview cadastradas meus produtos nesses produtos tem uma Origem que sao N:Novo, U:Usado, V:Variavel, M:Mostruário, Gr:Grupo. Kit eu gostaria que alguem me ajudasse a carregar no combobox somente as origem do N,U,M,GR,KIT menos o V que é variavel eu só estou conseguindo colocar a origem do N logo abaixo estara a imagem

    https://imgur.com/a/dO2STzW

    quarta-feira, 30 de maio de 2018 16:29

Respostas

  • faz o seguinte   

    Private Sub Frm_Funionario_LoadSaida1(sender As Object, e As EventArgs) Handles MyBase.Load
            Using con As OleDbConnection = getConnection()
                con.Open()
                Dim Sql = "SELECT * FROM Tab_Entrada"
                Sql += " ORDER BY Entrada ASC "
                Dim drFuncionarios As OleDbDataReader
                drFuncionarios = ListarNome(con, Sql)
                While drFuncionarios.Read()
                    txtSaida1.Items.Add(drFuncionarios("Entrada").ToString().ToUpper())
                End While
                drFuncionarios.Close()
                con.Close()
            End Using

    onde esta  txtSaida1 é o nome do teu COMBOBOX

    onde esta entrada deve ser o teu campo ORIGEM

    quarta-feira, 30 de maio de 2018 19:57

Todas as Respostas

  • Como você carrega o combobox atualmente? Como está seu código?

    Juliano Nunes - http://linkedin.com/in/julianonunes

    Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

    Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.

    quarta-feira, 30 de maio de 2018 18:47
  • faz o seguinte   

    Private Sub Frm_Funionario_LoadSaida1(sender As Object, e As EventArgs) Handles MyBase.Load
            Using con As OleDbConnection = getConnection()
                con.Open()
                Dim Sql = "SELECT * FROM Tab_Entrada"
                Sql += " ORDER BY Entrada ASC "
                Dim drFuncionarios As OleDbDataReader
                drFuncionarios = ListarNome(con, Sql)
                While drFuncionarios.Read()
                    txtSaida1.Items.Add(drFuncionarios("Entrada").ToString().ToUpper())
                End While
                drFuncionarios.Close()
                con.Close()
            End Using

    onde esta  txtSaida1 é o nome do teu COMBOBOX

    onde esta entrada deve ser o teu campo ORIGEM

    quarta-feira, 30 de maio de 2018 19:57
  • eu carrego assim

    Dim connectionstring As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Rede.TextBox1.Text & "")
            Dim query As String = "SELECT * FROM Cadastro_de_Produtos WHERE Origem = @Origem"
            Dim command As New OleDbCommand(query, connectionstring)

            command.Parameters.Add("@Origem", OleDbType.VarChar).Value = "n"



            Dim dataadapter As New OleDbDataAdapter(command)
            Dim mydata As New DataSet
            dataadapter.Fill(mydata, "Cadastro_de_Produtos")
            Me.ComboBox1.DataSource = mydata.Tables("Cadastro_de_Produtos")

    sexta-feira, 1 de junho de 2018 11:05
  • vou tentar vlw
    sexta-feira, 1 de junho de 2018 11:06
  • Arlindo antónio 

    o listar nome vai oque ?

    sexta-feira, 1 de junho de 2018 11:13