Ayuda para convertir una imagen a binarios largos y guardarla en una basededatos

Iniciado por zethli, 14 Julio 2020, 07:39 AM

0 Miembros y 1 Visitante están viendo este tema.

zethli

Buenas. ;D
Disculpen, necesito su ayuda tengo que convertir una imagen a binarios largos y guardarla en una base de datos (Access 2002-2003) y que se guarde como binarios largos, usando un DataGridView, donde en el momento de ejecución pueda visualizar la imagen ademas de editarla (Cambiarla o eliminarla), y no se como poner codigo (Me mandaron a buscar y nada de lo que encuentro me funciona) tambien,no logro colocar el vinculo del Picture.Box a la casilla de foto y otras cosas.

Les agradeceria inmensamente si me pueden colaborar. :rolleyes:

Les mostrare todo,Porque ni entiendo bien como funciona el programa.
Este es el formato



Esta es la prgramacion del DatagridView



La bace de Datos de Access



Este es el error que sale



Este es mi codigo

Public Class Form1
    Private Sub RegistroProductoBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles RegistroProductoBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.RegistroProductoBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.AlmacenDataSet)

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'AlmacenDataSet.RegistroProducto' Puede moverla o quitarla según sea necesario.
        Me.RegistroProductoTableAdapter.Fill(Me.AlmacenDataSet.RegistroProducto)

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.RegistroProductoBindingSource.MoveFirst()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.RegistroProductoBindingSource.MovePrevious()

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Me.RegistroProductoBindingSource.MoveNext()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Me.RegistroProductoBindingSource.MoveLast()
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Me.RegistroProductoTableAdapter.Agregar(IdTextBox.Text, NombreTextBox.Text, CantidadTextBox.Text, FotoTextBox.Text)
        Me.RegistroProductoTableAdapter.Fill(Me.AlmacenDataSet.RegistroProducto)
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Me.RegistroProductoTableAdapter.Editar(IdTextBox.Text, NombreTextBox.Text, CantidadTextBox.Text, FotoTextBox.Text)
        Me.RegistroProductoTableAdapter.Fill(Me.AlmacenDataSet.RegistroProducto)
        MsgBox("Cambios Guardados")
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Me.RegistroProductoTableAdapter.Editar(IdTextBox.Text, NombreTextBox.Text, CantidadTextBox.Text, FotoTextBox.Text)
        Me.RegistroProductoTableAdapter.Fill(Me.AlmacenDataSet.RegistroProducto)
        MsgBox("Cambios Guardados")
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Me.RegistroProductoTableAdapter.Eliminar(IdTextBox.Text)
        Me.RegistroProductoTableAdapter.Fill(Me.AlmacenDataSet.RegistroProducto)
        MsgBox("Registro eliminado")
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Me.RegistroProductoTableAdapter.FillBy(Me.AlmacenDataSet.RegistroProducto, IdTextBox.Text)
        MsgBox("Actualize DGV")
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Me.Close()
    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click

    End Sub
End Class

Espero que me puedan contriuir muchas gracias.  :silbar:

Serapis

Para empezar, este es el foro para VB6, no para VB-NET.

Para continuar, con imagen... debemos suponer que hablas de un fichero gráfico de imagen, no?.

Luego, eso de 'binarios largos', salvando distancias insalvables resulta incomprensible... ciertos términos es preferible no traducirlos, cuando una traducción literal pierde significado. Y una traducción sensata, si no es ampliamente aceptada, tampoco será acertada.

En VB-NET, existe la función 'GetAllBytes()', para leer el fichero completo (cualquier fichero, sea imagen o no), y devuelve un array con el contenido del  fichero. Luego, guardarlo en una BD, es lo mismo que guardar cualquier otro array de bytes...Puesto que son funciones perfectamente documentadas en la página de mocosoft, no vale la pena perder más tiempo ni extenderse en explicaciones, aparte de ello habrá chorrocientos ejemplos en la red...