Facul

Disponível somente no TrabalhosFeitos
  • Páginas : 6 (1255 palavras )
  • Download(s) : 0
  • Publicado : 6 de abril de 2012
Ler documento completo
Amostra do texto
ROTEIRO DE BANCO DE DADOS
Nesse projeto o banco de dados, se chama Bdredes.mdb e a tabela se chama redes. - Criar um formulário semelhante à figura abaixo:

- Coloque nos objetos os seguintes names: Objeto Textbox1 Textbox2 Botão Novo Botão Salvar Botão Alterar Botão Excluir Botão Consultar Botão Cancelar Botão Filtro Botão Relatório Botão Sair Name Txtcod Txtnome Btnnovo Btnsalvar BtnalterarBtnexcluir Btnconsulta Btncancel Btnfiltro Btnrelatorio Btnsair

- Agora será necessário adicionar um Módulo. Siga as instruções da figura abaixo:

Profª Klébia Thomé – klebia@uninove.br – Tecnologia em Informática

- Escolha a opção: Module

- Vá no menu Project na opção: Add References

Profª Klébia Thomé – klebia@uninove.br – Tecnologia em Informática

- Aba: .Net , selecione aopção: Ado, conforme a figura abaixo:

-

No Module digite as linhas de código:

Imports System.Data.OleDb Module Module1 Public conecta As New ADODB.Connection Public tabela As New ADODB.Recordset Public status As Boolean Public da As OleDbDataAdapter Public ds As DataSet

Profª Klébia Thomé – klebia@uninove.br – Tecnologia em Informática

Public Sub abrebanco() conecta = NewADODB.Connection conecta.Open("Provider = MICROSOFT.JET.OLEDB.4.0;data Source=bdredes.MDB") 'bdredes.mdb deverá ser substituido pelo nome do banco de dados que foi desenvolvido. LEMBRE-SE, coloque-o no subdiretório: Bin> DEBUG End Sub Public Sub limpa() With Form1 .txtcod.Text = "" .txtnome.Text = "" End With End Sub Public Sub carregagrid() 'exibe informação da tabela no grid tabela = New ADODB.Recordsettabela.Open("select * from Clientes order by Codigo", conecta) da = New OleDbDataAdapter ds = New DataSet da.Fill(ds, tabela, "Clientes") Form3.grid.DataSource = ds.Tables("Clientes") Form3.grid.Refresh() End Sub End Module
Dê um duplo clique no formulário, abrirá a programação no evento load(). Digite a seguinte codificação:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load btnalterar.Enabled = False btnexcluir.Enabled = False btncancel.Enabled = False btnrelatorio.Enabled = True btnsalvar.Enabled = False status = True abrebanco() End Sub

-

Botão Salvar:

Private Sub btnsalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalvar.Click If txtcod.Text = "" Then MsgBox("Campo código em branco",MsgBoxStyle.Critical) Exit Sub End If If txtnome.Text = "" Then MsgBox("Campo nome em branco", MsgBoxStyle.Critical) Exit Sub End If Dim strsql As String If status = True Then strsql = "insert into redes (codigo,nome)" & "values (" & txtcod.Text & ",'" & txtnome.Text & "')" conecta.Execute(strsql) MsgBox("Seus dados foram incluídos com sucesso", MsgBoxStyle.Information, "Dados gravados") ElseIf status= False Then

Profª Klébia Thomé – klebia@uninove.br – Tecnologia em Informática

strsql = "update bdredes set nome='" & txtnome.Text & "' where codigo=" & txtcod.Text & "" conecta.Execute(strsql) MsgBox("Registros atualizados com sucesso", MsgBoxStyle.Information, "Atualiza") End If End Sub

-

Botão Novo:

Private Sub btnnovo_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnnovo.Click btnsalvar.Enabled = True btncancel.Enabled = True End Sub

-

Botão Alterar:

Private Sub btnalterar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnalterar.Click status = False txtcod.Enabled = False txtnome.Focus() End Sub

-

Botão Cancelar:

Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btncancel.Click btnalterar.Enabled = False btnexcluir.Enabled = False btncancel.Enabled = False btnrelatorio.Enabled = False btnsalvar.Enabled = False End Sub

-

Botão Excluir:

Private Sub btnexcluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexcluir.Click Dim resposta As String resposta = MsgBox("Confirma exclusão deste cliente '" &...
tracking img