Trabalhando com Banco de Dados

Sistema ADMC - O Cadastro de Produtos

Nessa aula vamos aprender como criar o formulário que permite a manutenção no cadastro de produtos e conectar com a base de dados.

Após ter criado uma tela de manutenção nao cadastro de produtos, vamos colocar as rotinas referentes a cada ação dos botões.

1) Vamos incluir os namespaces:

Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic

para facilitar ao acesso a essa classe.

2) Vamos fazer algumas declarações a nível de classe;

Public Class frmCadastroProdutos

Inherits System.Windows.Forms.Form

Private oDataAdapter As oledbDataAdapter
Private oCb As OleDbCommand
Private oDataSet As DataSet
Private oBind As BindingManagerBase
Private iRegProdutos As Integer

Já no abrir o fomulário, evento Load, vamos conectar com o banco de dados, veja o código.

Atenção para testar essa rotina voce precisa comentar a linha: Colocando um apóstrofe no início da linha.

' Me.PreencheCampos()

Pois essa sub rotina é usada para mostrar no formulário todos os ítens da linha (Row);

Teste o seu programa, agora renomeie, ou troque de local a sua base de dados, o arquivo DadosADMC.MDB e execute novamente seu programa, você receberá uma mensagem de alerta, avisando que não foi possível conectar na base de dados.

Tudo bem... Vamos em frente.

Veja a sub rotina PreencheCampos:

Na terceira linha da sub rotina informamos para qual linha (Registro) queremos ir:

oDataRow = Me.oDataSet.Tables("tabProdutos").Rows(Me.iRegProdutos)

Como iRegProdutos é uma variável do tipo integer que foi definida no inicio da classe frmCadastroProdutos então ela é vista em todas as subs e pode ser utilizada a vontade.

Observe a função IsDBNull(Var) que devolve True se o conteúdo do mesmo é nulo, o que não é permitido mostrar no formulário. Usamos então o recurso IIF(Cond, Verdadeiro, Falso) para mostrar um espaço em caso de campos Nulos.

Veja também que aproveitamos esse local, para mostrar o registro atual, e a quantidade de registros no Banco de Dados.

Lembre-se que o sinal de Underline que aparece nos códigos, tem a função de informar ao compilador que a linha seguinte é uma continuação da linha atual.

Veja:

' Mostra reg atual e o total de regs
Me.lblRegistros.Text = "Reg.: " & _
       Me.iRegProdutos + 1 & " de "& _
       Me.oDataSet.Tables("tabProdutos").Rows.Count

 

---

Dicas:

• Underline ( _ ) quer dizer mesma linha.

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