Agenda completa com acesso a dados

VB.NET - Agenda com acesso a dados

Se você esta começando agora a aprender o VB 2005 e tem dúvidas em como criar uma aplicação para acesso a dados que realize as tarefas de incluir, exclui, alterar e listar os dados esta pequena agenda feita no Visual Basic 2005 é exatamente o que você procura: simples , com código sem complicações , realizando as principais tarefas de manutenção (as famosas operações CRUD).

Ao estudar esta aplicação você vai aprender a:

Criar um projeto de acesso a dados usando o Microsoft Access;
Criar uma interface com o usuário simples e funcional(Menus de opções com ícones);
Realizar as operações de inclusão, alteração e exclusão de dados;
Trabalhar com exibição de imagens em formulário;
Salvar , remover e exibir as imagens em um banco de dados Access;
Acessar a internet a partir da sua aplicação VB;

Vamos usar um banco de dados do Microsoft Access que foi criado com o nome de Agenda.mdb e que possui a tabela Contatos contendo a seguinte estrutura:

A aplicação terá apenas dois formulários: o formulário principal que é mostrado abaixo:

Os namespaces usados na aplicação são:

Imports System.Data.OleDb

Imports System.io

Imports System.drawing

O banco de dados esta localizado na pasta bin e possui a seguinte definição para a conexão do tipo OledbConnection :

Public con As New System.Data.OleDb.OleDbConnection("Provider = Microsoft.jet.OleDB.4.0;Data Source = " & Application.StartupPath & "\Agenda.mdb;")

As operações CRUD (Create, Update, Delete) são feitas via comandos SQL :

Incluir	INSERT INTO Contatos(nome,endereco,fone,celular,email,nascimento,[imagem])VALUES('" & tb1.Text & "','" & tb2.Text & "','" & tb3.Text & "','" & tb4.Text & "','" & tb5.Text & "','" & tb6.Text & "', ?)"
Alterar	UPDATE Contatos SET nome='" & tb1.Text & "',endereco='" & tb2.Text & "',fone='" & tb3.Text & "',celular='" & tb4.Text & "',email='" & tb5.Text & "',nascimento='" & tb6.Text & "',[imagem]=? WHERE nome='" & tb8.Text & "'"
Excluir	DELETE * FROM Contatos WHERE nome = '" & cb1.SelectedItem & "'"

O código que faz a chamada a um site da web é o seguinte:

Private Sub wbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles wbtn.Click

System.Diagnostics.Process.Start("http://www.macoratti.net")

End Sub

A cara da projeto em execução para exibição dos dados de um registro é a seguinte :

Como estou disponibilizando o código completo creio que já escrevi demais. Baixe os fontes e bom estudo...

O projeto completo esta no Super DVD .NET

Veja os Destaques e novidades do SUPER CD VB 2013 (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Veja mais sistemas completos para a plataforma .NET no Super DVD .NET , confira...

Quer aprender C# ??

Chegou o Super DVD C# 2013 com exclusivo material de suporte e vídeo aulas com curso básico sobre C#.

Gostou ? Compartilhe no Facebook Compartilhe no Twitter

Referências:

José Carlos Macoratti