Agenda completa com acesso a dados

VB.NET 2005 - 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...

Pegue o projeto completo aqui: organizador.zip

Eu sei, é apenas ASP.NET mas eu gosto...

José Carlos Macoratti