Usuário com melhor resposta
como selecionar quais dados do banco de dados eu quero no combobox

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
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 Usingonde esta txtSaida1 é o nome do teu COMBOBOX
onde esta entrada deve ser o teu campo ORIGEM
- Marcado como Resposta Filipe B CastroModerator terça-feira, 19 de junho de 2018 23:05
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.
-
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 Usingonde esta txtSaida1 é o nome do teu COMBOBOX
onde esta entrada deve ser o teu campo ORIGEM
- Marcado como Resposta Filipe B CastroModerator terça-feira, 19 de junho de 2018 23:05
-
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") -
-