Trabalhando com Banco de Dados

Sistema ADMC - O Cadastro de Produtos -
Conceito - Busca Dinâmica - Localizando dados

Vamos implementar uma busca dinâmica em nosso sistema, para isso vamos adicionar esse objetos em nosso formulário de cadastro de produtos.

Faça a alteração sugerida pela imagem acima, e após o código que foi adicionado para criar uma chave primária vamos colocar rotina abaixo que preenche o Combobox com todos as descrições dos produtos:

' Vamos preencher a combobox
Dim oLinha As DataRow
Dim oTabela As DataTable

oTabela = oDataSet.Tables("tabProdutos")

cboProdutos.Text = ""
cboProdutos.Items.clear()
cboProdutos.BeginUpdate ()

'Carrega a combo com os nomes dos produtos
For Each oLinha In oTabela.Rows
     cboProdutos.Items.add(oLinha("proDescricao").toString)
Next
cboProdutos.Sorted = True ' Ordena a Combo
cboProdutos.EndUpdate()

No evento TextChanged do ComboBox vamos incluir o código que realiza a busca dinâmica:

Continua...

Dicas:

Ir para: Aula anterior | Proxima aula | Indice de Aulas

 

© 1999-2009 POWER Informática - Rua João Manoel, 912 - Centro - Santana do Livramento - RS
Fones: (55) 3 2 4 2 - 5 4 2 7 / (55) 9 9 9 4 - 8 7 8 2
Serviços Manutenção Hardware, programação, páginas Web