Selecione o de Fornecedor e na seta ao lado selecione DataGridView.
Controle de Estoques - Parte III - Formulário de Pesquisa das Fornecedores
Na janela Solution Explorer, clique com o botão direito em ctrComissao. Selecione Add / Windows Form.
No name, digite: frmPFornecedor e pressione a tecla Enter. Altere as seguintes propriedades:
Text: Pesquisa de Fornecedores
StartPosition: ScreenCenter 'Centraliza o formulário
MinimizeBox: False
MaximizeBox: False
Coloque um Label na parte superior esquerda do formulário e altere as propriedades:
Name: lblPesquisa
Text: Pesquisa:
Coloque um TextBox logo abaixo do label acima e altere as propriedades:
Name: txtPesquisa
Na janela ToolBox (na parte esquerda superior da janela, onde na aba ToolBox tem as ferramentas: Label, TextBox, etc.), selecione a aba Data Sources. Veja figura abaixo:
Selecione o de Fornecedor e na seta ao lado selecione DataGridView.
Arraste-o logo abaixo do TextBox txtPesquisa. Altere o nome do grid para: dgvFornecedor
Observação: Delete o FornecedorBindingNavigator.
Clique com o botão direito sobre o grid e selecione Edit Columns. Utilize o botão Remove e remova:
Endereco, Estado e CEP.
Dê um duplo clique no formulário.
Antes da linha Public Class frmPFornecedor, digite: Imports System.Data.OleDb
Logo após a linha Public Class frmPFornecedor, digite:
Private dsFornecedor As DataSet
Private daFornecedor As New OleDbDataAdapter
Private dtFornecedor As DataTable
Desça até o Private Sub frmPFornecedor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Antes do End Sub, digite:
Try
Dim cn As New OleDbConnection
cn.ConnectionString = "Provider=Microsoft.Jet.oleDB.4.0;Data Source=" & sCaminho & "\Estoque.mdb;"
Dim sSQL As String = "Select * From Fornecedor Order By Nome"
dsFornecedor = New DataSet()
daFornecedor = New OleDbDataAdapter(sSQL, cn)
daFornecedor.Fill(dsFornecedor, "Fornecedors")
dtFornecedor = dsFornecedor.Tables("Fornecedors")
dgvFornecedor.DataSource = dtFornecedor
Catch err As Exception
MessageBox.Show(err.Message)
Finally
cn.Close()
End Try
Selecione o evento Form_Closed e digite:
'Se existir algum registro, seu Id é armazenado na variável intCodigo
intCodigo = dgvFornecedor.CurrentRow.Cells(0).Value.ToString
Close()
Clique no ícone View Designer para voltar ao formulário. Dê um duplo clique no TextBox txtPesquisa e digite:
Dim cn As New OleDbConnection
cn.ConnectionString = "Provider=Microsoft.Jet.oleDB.4.0;Data Source=" & sCaminho & "\Estoque.mdb;"
Dim sSQL As String = "Select * From Fornecedor Where Nome Like '" & txtPesquisa.Text & "%'"
dsFornecedor = New DataSet()
daFornecedor = New OleDbDataAdapter(sSQL, cn)
daFornecedor.Fill(dsFornecedor, "Fornecedor")
dtFornecedor = dsFornecedor.Tables("Fornecedor")
dgvFornecedor.DataSource = dtFornecedor
cn.Close()
Pressione a tecla F5 para executar o projeto.
Controle de Estoque - Parte II
Controle de Estoque - Parte IV