Campo Tipo de Dados
CliCodigo AutoNumeração
CliNome Texto (50 posições)
Salve seu banco em C:\TM.mdb. Agora entre no Visual Studio.NET e escolha Visual Basic Projects em Project Types e Windows Application em Templates, em Name digite TM_VbNET, como é mostrado na figura abaixo:
Após isso selecione a aba Windows Forms na ToolBox e coloque no form um DataGrid (chamado Grid) e um Button (chamado btnCarregar): seu form deve ficar parecido com o da figura abaixo:
Form1
Agora selecione a aba Data e coloque sobre o form um controle OleDBConnection: este componente é responsável por estabelecer uma conexão entre o banco de dados e a aplicação, disponibilizando os dados para que sejam manipulados. Note que ele será colocado numa área especial logo abaixo do form, onde ficam os componentes invisíveis em tempo de execução.
Renomeie o componente para "Cnx", veja abaixo:
Aba Data na Toolbox
Área de componentes invisíveis logo abaixo do seu Form
Selecione o componente "Cnx" e na janela Properties selecione a propriedade ConnectionString, clique na seta que aparece neste campo.
Quando uma pequena caixa de seleção se abrir escolha "<New Connection...>", será apresentada a seguinte janela:
Data Link Properties
Selecione a aba Provider e escolha "Microsoft Jet 4.0 OLE DB Provider" como na figura abaixo:
Selecionando Provider para conexão
Clique em Next. Agora selecione a localização do banco de dados, como na figura abaixo:
Data Link Properties - Connection
Pressione o botão Test Connection. Se a mensagem "Test connection suceeded" for apresentada então está tudo certo: pressione OK na caixa de aviso e OK outra vez para fechar a janela Data Link Properties.
Caso contrário, verifique e refaça os passos anteriores e persistindo a falha verifique se o VS.NET e o Access estão corretamente instalados e configurados.
Agora coloque no Form um componente OleDbDataAdapter e o VS.NET abrirá um Wizard. O DataAdapter é um componente indispensável no acesso a dados com ADO.NET: é ele quem selecionará os dados na fonte e será também ele que atualizará as modificações feitas no banco de dados.
Na primeira tela, que é meramente informativa, clique em Next. A seguir ele pedirá que você selecione uma conexão que por padrão deverá ser a nossa conexão já criada, como abaixo:
Selecionando uma conexão
Selecione a nossa conexão com o banco Access e clique Next: será apresentada a janela Choose a Query Type para que você selecione o modo como o DataAdapter irá recuperar os dados do banco de dados.
Selecione "Use SQL statements" (que deve ser a única opção disponível por estarmos trabalhando com banco Access que não possui Stored Procedures que são utilizadas nas duas outras opções).
Veja a figura:
Selecione o modo como o DataAdapter acessará o banco de dados
Clique em Next: será apresentada a janela "Generate the SQL statements" na qual você deverá inserir o comando SQL que selecionará os dados no banco. Você pode construir esse comando visualmente clicando em "Query Builder..." mas como este exemplo é bem simples, basta digitar "SELECT * FROM Clientes ORDER BY CliCodigo".
Veja a figura:
Digite o comando SQL para acessar os dados
Nesta janela você pode notar o botão "Advanced Options..." (eu não explicarei suas funções pois as opções default satisfazem nossas necessidades nesse caso mas sugiro você voltar a esta tela e examinar estas opções após concluirmos o tutorial). Você também pode clicar em "Query Builder..." e selecionar visualmente os campos e tabelas do comando SQL.
Agora clique em Next: a próxima tela apenas confirma a criação do DataAdapter. Clique em Finish.
Agora que a conexão e o DataAdapter foram criados a partir de componentes visuais, o restante dos objetos necessários serão criados via código.
Clique duas vezes no botão btnCarregar e digite o seguinte código:
Dim mDataSet As New DataSet
'O objeto DataSet é o que contém os dados e tabelas
'propriamente ditos, ele é praticamente um banco de dados
'relacional em memória
Cnx.Open()
OleDbDataAdapter1.Fill(mDataSet, "Clientes") 'Fill preenche o DataSet com os dados selecionados pelo DataAdapter, o segundo parâmetro define o nome da tabela dentro do DataSet, em nosso caso "Clientes"
Cnx.Close() 'Podemos trabalhar com os dados desconectados
'atribuindo o DataSet ao DataGrid
Grid.DataSource = mDataSet
Grid.DataMember = "Clientes"
Lembre-se de abrir o banco de dados no Access e incluir alguns dados. Após executar o programa (apertando F5) e clicar no botão o resultado será o seguinte:
Resultado após clique no botão Carregar
Conclusão
Foram apresentados conceitos básicos de acesso a dados com o Visual Basic.NET. Sinta-se a vontade para estender este exemplo, aumentando o número de tabelas no banco de dados e o número de forms da aplicação e tente explorar os métodos e propriedades dos objetos DataSet e DataAdapter para se aprofundar no assunto :) ...
Espero em breve elaborar um tutorial com conceitos mais avançados tais como Inclusão, Alteração e Exclusão de registros em banco de dados e espero também que este tutorial o tenha ajudado a conhecer a nova forma com que o VB.NET acessa os dados.
Marcas Registradas
Visual Basic.NET, Visual Studio.NET, Windows, MS Access são marcas registradas da Microsoft Corporation.
BABOO é uma marca registrada do site www.baboo.com.br .
Todos os demais nomes registrados, marcas registradas ou direitos de uso citados neste TM pertencem a seus respectivos proprietários.
Autor original: ClawHammer
Direitos Autorais: BABOO
