Criando uma agenda de endereços

Criar uma aplicação com acesso a banco de dados com funcionalidades como : incluir , alterar , excluir , atualizar e cancelar no VB .NET é mais fácil do que você pensa. Para mostrar que isto é verdade , neste artigo vou mostrar como criar uma agenda de endereços com acesso a um banco de dados e todas estas funcionalidades com a ajuda do assistente de aplicação do VB .NET.(veja também o artigo : Meu Primeiro Acesso a Dados com o VB.NET )

Vou criar uma tabela no SQL Server no banco de dados Teste com a estrutura mostrada abaixo e com o nome de agenda:

Nota: Você pode usar também uma base de dados Access com a mesma estrutura.

Com a tabela criada podemos iniciar o nosso projeto no VB .NET.

1- Inicie um novo projeto no VS .NET dando a ele o nome : AgendaEndereco

2- No menu File selecione a opção : Add New Item... . Selecionando na janela Add New Item o template: Data Form Wizard

3- A janela do Assistente de formulário - DataForm Wizard - click no botão Next >

4- Na próxima janela do assistente informe o nome agenda para o DataSet que será criado e clique no botão - Next>

Na janela do assistente para escolher uma conexão clique no botão : New Connection

Na janela de propriedade de vinculação de dados informei o nome do meu servidor SQL Server , do banco de dados ; testando a conexão em seguida. Finalmente clique no botão OK quando a janela de conexão de dados voltar clique no botão Next >

Nota: Se você estiver usando um banco de dados Access neste ponto você deve indicar um provedor apropriado para acessar o Access na aba Provedor e na aba Conexão informar a localização do banco de dados.

Na próxima janela do assistente serão exibidas as tabelas do banco de dados em Available Items. Selecione a tabela agenda e clique no botão > para que ela migre para Selected item(s). A seguir clique no botão Next >.

A próxima janela do assistente exibe os campos da tabela agenda. Você deve selecionar os campos que desejar exibir no formulário. Vamos marcar todos os campos e clica no botão Next.

Na próxima janela vamos escolher o estilo do formulário que será criado. Selecione a opção : Single record in individual controls . Como eu quero criar o formulário com todos os : Add , Delete , Cancel e os botões de navegação além do botão Cancel , vou marcar todas as caixas de opção , conforme abaixo.

Clicando no botão Finish teremos o formulário criado com todos os botões conforme abaixo:

Agora vamos alterar o nome dos botões e fazer uma ordenação dos botões no formulário até obter o seguinte layout:

Temos que tornar o formulário acima como o formulário que será executado quando a aplicação for executada. Fazemos isto clicando com o botão direito do mouse sobre o nome da solução e selecione a opção Properties. A seguir na janela Property Pages na opção Startup object altere para o formulário agenda.

Pronto ! Já estamos prontos para executar o projeto. Antes vamos selecionar a opção : Build Solution no menu Build. Após isto basta pressionar F5 e clicar no botão carregar após a carga do formulário.

O botão - Cancelar - permite que você cancela uma inclusão ou edição que estiver sendo efetuada
O botão - Desfaz - cancela qualquer operação que ainda não tenha sido atualizada no banco de dados.

Para permitir que a navegação entre os controles TextBox seja feita pela tecla ENTER ( quando o usuário pressionar ENTER o foco irá para o próximo controle) vamos inserir o código abaixo no evento Key_Down do projeto agenda:

Private Sub Agenda_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown

If e.KeyCode = Keys.Enter Then

e.Handled = True

SendKeys.Send("{TAB}")

End If

End Sub

Acabamos de criar uma agenda de endereços completamente funcional sem escrever uma única linha de código , usando o assistente de formulário do VB.NET , acredita agora !!!

José Carlos Macoratti