DataGridView com Combobox

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (2)

Nesse aplicativo mostro como criar e preencher colunas Combobox em DataGridView usando o VB.Net 2005.

Inicialmente , insira uma DataGridView no formulário e crie as colunas necessárias. Neste aplicativo, crei duas colunas do tipo combobox que chamei de Fornecedores e Produtos.

Declare os objetos que serão utilizados para a conexão com o Banco de Dados. Para este exemplo, estou utilizando o banco de dados Access, sendo assim é necessário importar a namespace: System.Data.OleDb

Dim stringConexao As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\bd1.mdb;"

Dim conexao As New OleDbConnection(stringConexao)

Dim comando As New OleDbCommand("SELECT * FROM Produtos", conexao)

Dim adapter As New OleDbDataAdapter(comando)

Dim ds As New DataSet

 

Por último associe uma fonte de dados as combobox que fazem parte do DataGridView.

Me.cbFornecedor.DataSource = ds.Tables("Fornecedores") atribui um datasource a combobox da grid

Me.cbFornecedor.DisplayMember = "nm_fornecedor" atribui o valor que aparecerá na combo

Me.cbFornecedor.ValueMember = "cod_fornecedor" atribui um valor a propriedade value da combo

Me.cbProduto.DataSource = ds.Tables("Produtos")

Me.cbProduto.DisplayMember = "nm_produto"

Me.cbProduto.ValueMember = "cod_produto"

 

Após declarar os objetos para conexão, é necessário preencher o DataSet que armazenerá os resultado das consultas SQL.

 

Try

adapter.Fill(ds, "Produtos") preenche o dataset

Catch ex As Exception

End Try

comando.CommandText = "SELECT * FROM Fornecedores"

adapter.SelectCommand = comando

Try

adapter.Fill(ds, "Fornecedores")

Catch ex As Exception

End Try

Após os passos acima, as combobox do DataGridView serão preenchidos com o DataSet.

Faça o download do código fonte para ver a aplicação completa funcionando.

Até o próximo,

Regilan Meira Silva

Graduado em Ciência da Computação
Pós-Graduando em Sistemas de Informação
Desenvolvedor Microsoft. Net
Líder da Célula Acadêmica Microsoft na UESC

Blog:
http://thespoke.net/blogs/regysmeira/default.aspx

Visite www.devmedia.com.br e leia minhas dicas e artigos sobre VB.NET

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?