Neste artigo eu vou apresentar uma pequena aplicação feita na linguagem VB .NET que permite salvar, consultar e exibir imagens em um banco de dados Microsoft Access. Este artigo é destino a quem esta iniciando na linguagem VB .NET e quer aprender como acessar e salvar imagens em um banco de dados Microsoft Access.

Vou incluir os campos Codigo, Nome e o campo Foto como do tipo Objeto OLE pois iremos armazenar dados no formato binário.(Você pode armazenar imagens , arquivos de áudio , etc.)

Veja ao lado como deve ficar a estrutura da tabela tblAlunos do banco de dados Dados.mdb que criamos para este exemplo:

Private Sub frmAlunos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cn As New OleDb.OleDbConnection
        cn.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0; Data Source=" & _
                                        Application.StartupPath & "\Dados.mdb"
        Try

            Dim cmd As New OleDb.OleDbCommand
            cmd.Connection = cn
            cmd.CommandText = "SELECT * FROM tblAlunos"
            cn.Open()
            '
            Dim reader As OleDb.OleDbDataReader = cmd.ExecuteReader()
            If reader.HasRows Then
                Dim dt As New DataTable()
                dt.Load(reader)
                dgvDados.DataSource = dt
            End If
        Finally
            cn.Close()
        End Try

    End Sub

 Private Sub llbLocalizar_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles llbLocalizar.LinkClicked
        If Me.ofd.ShowDialog = 1 Then
            Me.picFoto.Image = System.Drawing.Image.FromFile(Me.ofd.FileName)
        End If
    End Sub

  Private Sub btnAdicionar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdicionar.Click
        Dim cn As New OleDb.OleDbConnection
        cn.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0; Data Source=" & _
                                       Application.StartupPath & "\Dados.mdb"
        Try
            cn.Open()

            Dim arrImage() As Byte
            Dim strImage As String
            Dim myMs As New IO.MemoryStream
            '
            If Not IsNothing(Me.picFoto.Image) Then
                Me.picFoto.Image.Save(myMs, Me.picFoto.Image.RawFormat)
                arrImage = myMs.GetBuffer
                strImage = "?"
            Else
                arrImage = Nothing
                strImage = "NULL"
            End If

            Dim cmd As New OleDb.OleDbCommand
            cmd.Connection = cn
            cmd.CommandText = "INSERT INTO tblAlunos(Codigo, [Nome], Foto) VALUES(" & Me.txtCodigo.Text & ",'" & _
                                          Me.txtNome.Text & "'," & strImage & ")"

            If strImage = "?" Then
                cmd.Parameters.Add(strImage, OleDb.OleDbType.Binary).Value = arrImage
            End If
            '
            cmd.ExecuteNonQuery()
            MsgBox("Dados salvos com sucesso.")
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cn.Close()
        End Try
    End Sub

 Private Sub btnLocalizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLocalizar.Click
        Dim cn As New OleDb.OleDbConnection

        cn.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0; " & _
                                       " Data Source=" & Application.StartupPath & "\Dados.mdb"
        Try
            cn.Open()

            Dim arrImage() As Byte
            Dim myMS As New IO.MemoryStream
            Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM tblAlunos " & _
                                                                    " WHERE Codigo=" & Me.txtCodigo.Text, cn)
            Dim dt As New DataTable
            da.Fill(dt)

            If dt.Rows.Count > 0 Then
                Me.txtNome.Text = dt.Rows(0).Item("Nome") & ""
                If Not IsDBNull(dt.Rows(0).Item("Foto")) Then
                    arrImage = dt.Rows(0).Item("Foto")
                    For Each ar As Byte In arrImage
                        myMS.WriteByte(ar)
                    Next
                    Me.picFoto.Image = System.Drawing.Image.FromStream(myMS)
                End If
                Me.btnAdicionar.Enabled = False
            Else
                MsgBox("Registro não encontrado!")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cn.Close()
        End Try
    End Sub

Private Sub dgvDados_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvDados.CellClick
        Try
            'obtem o valor das células do grid
            txtCodigo.Text = dgvDados.CurrentRow.Cells(0).Value.ToString()
            txtNome.Text = dgvDados.CurrentRow.Cells(1).Value.ToString()
            Dim ms As New MemoryStream(CType(dgvDados.CurrentRow.Cells(2).Value, Byte()))
            picFoto.Image = Image.FromStream(ms)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Quer migrar para o VB .NET ?

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

• Curso Básico VB .NET - Vídeo Aulas

Quer aprender C# ??

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

• Curso C# Basico - Video Aulas

Quer aprender os conceitos da Programação Orientada a objetos ?

• Curso Fundamentos da Programação Orientada a Objetos com VB .NET

Quer aprender o gerar relatórios com o ReportViewer no VS 2013 ?

•  Curso - Gerando Relatórios com o ReportViewer no VS 2013 - Vídeo Aulas