User Tools

Site Tools


dev_net:vb.net:access

Access (Seleccionar, Inserir, Actualizar, Eliminar)

Introdução

O Microsoft Office Access, é um sistema de base de dados que combina o Microsoft Jet Database Engine com uma interface gráfica do utilizador (graphical user interface). O mesmo permite o desenvolvimento rápido de aplicações que envolvem tanto a modelagem e estrutura de dados como também a interface a ser utilizada pelos utilizadores.

Nos exemplos abaixo eu trabalho com a base de dados Office 2003 (.mdb), caso utilizes a versão 2007 deves trocar a extensão da ConnectionString por .accdb assim como o seu provedor.


.mdb:

Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "BD.mdb"

.accdb:

Dim ConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "BD.accdb"

Application.StartupPath

Procura directamente no directório da nossa aplicação, mais propriamente na pasta debug. Sendo assim, a minha base de dados está alojada no seguinte directório: AplicaçãobindebugBD.mdb.

Mãos à obra

Nos exemplos abaixo, partes do código não serão explicadas pois presumo que já estejam devidamente aprendidas. Mesmo assim, deixarei algumas referências para outros artigos!

Antes do Public Class(no source-code) devemos incutir o

Imports System.Data.OleDb

Seleccionar dados (SELECT)

A query SELECT têm por fim obter todos os resultados da base de dados consoante a nossa instrução. Sendo assim, vou demonstrar dois tipos de SELECTs: Os resultados todos e um só resultado.

Seleccionar Todos
Dim ConnectionString As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "BD.mdb")
Dim query As String = "SELECT * FROM Clientes"
 
Dim DataAdapter As New OleDbDataAdapter(query, ConnectionString)
Dim MyData As New DataSet 
DataAdapter.Fill(MyData, "Clientes")
 
Me.DataGridView1.DataSource = MyData.Tables("Clientes") ' Neste caso utilizei uma datagridview para visualizar os dados
Seleccionar um (com parâmetros)
Dim ConnectionString As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "BD.mdb")
Dim query As String = "SELECT * FROM Clientes WHERE ID = @IDCliente"
 
Dim command As New OleDbCommand(query, ConnectionString)
' Seleccionar os dados APENAS do cliente 3
command.Parameters.Add("@IDCliente", OleDbType.Integer).Value = 3 
 
Dim DataAdapter As New OleDbDataAdapter(command)
Dim MyData As New DataSet 
DataAdapter.Fill(MyData, "Clientes")
 
Me.DataGridView1.DataSource = MyData.Tables("Clientes") ' Neste caso utilizei uma datagridview para visualizar os dados

Inserir dados (INSERT)

A inserção de dados é importante para qualquer aplicação e é muito simples de se fazer!

Dim ConnectionString As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "BD.mdb")
Dim query As String = "INSERT INTO Clientes([Nome], [Empresa]) VALUES (@Nome, @Empresa)"
 
Dim command As New OleDbCommand(query, ConnectionString)
 
command.Parameters.Add("@Nome", OleDbType.VarChar).Value = NomeTextbox.Text
command.Parameters.Add("@Empresa", OleDbType.VarChar).Value = EmpresaTextbox.Text  
 
ConnectionString.Open()
 
Dim x As Integer = command.ExecuteNonQuery()
 
If x < 1 Then
     MessageBox.Show("Erro ao inserir", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
     MessageBox.Show("Registo inserido com sucesso!", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
 
ConnectionString.Close()
command = Nothing

Actualizar (UPDATE)

Qualquer aplicação que utilize base de dados precisa de actualização de dados, seja por parte do utilizador, seja por parte de quem desenvolve a aplicação.

Dim ConnectionString As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "BD.mdb")
Dim query As String = "UPDATE Clientes SET [Nome] = @Nome, [Empresa] = @Empresa WHERE ID = @IDCliente"
 
Dim command As New OleDbCommand(query, ConnectionString)
 
command.Parameters.Add("@Nome", OleDbType.VarChar).Value = NomeTextbox.Text
command.Parameters.Add("@Empresa", OleDbType.VarChar).Value = EmpresaTextbox.Text
' Actualiza apenas os dados do cliente que consta na Textbox
command.Parameters.Add("@IDCliente", OleDbType.Integer).Value = IDClienteTextbox.Text   
 
ConnectionString.Open()
 
Dim x As Integer = command.ExecuteNonQuery()
 
If x < 1 Then
     MessageBox.Show("Erro ao actualizar", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
     MessageBox.Show("Actualizado com sucesso!", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
 
ConnectionString.Close()
command = Nothing

Eliminar (DELETE)

Por fim, mas não menos importante, resta-nos a eliminação de dados.

A eliminação que irei exemplificar resume-se a um registo, para múltiplos registos podem ver um artigo que escrevi à algum tempo para o meu blog.

Dim ConnectionString As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "BD.mdb")
Dim query As String = "DELETE FROM Clientes WHERE ID = @IDCliente"
 
Dim command As New OleDbCommand(query, ConnectionString)
 
' Elimina apenas o cliente que consta na Textbox
command.Parameters.Add("@IDCliente", OleDbType.Integer).Value = IDClienteTextbox.Text   
 
ConnectionString.Open()
 
Dim x As Integer = command.ExecuteNonQuery()
 
If x < 1 Then
     MessageBox.Show("Erro ao eliminar", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
     MessageBox.Show("Eliminado com sucesso!", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
 
ConnectionString.Close()
command = Nothing

Conclusão

Existe sempre um problema em torno das bases de dados e de como nos devemos comportar com as mesmas, espero, com este artigo, ter sido explícito e útil a quem o ler. As bases de dados são um ponto fulcral na programação.

Artigo escrito por bioshock

Referências

You could leave a comment if you were logged in.
dev_net/vb.net/access.txt · Esta página foi modificada pela última vez em: 2012/12/28 10:48 (Edição externa)