Temas

[Este es el formato]

Buenas.
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.

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. 

necesito su ayuda para un proyecto donde debo usar un inputbox para colocar un  numero que va a ir decreciendo  y usar un Msgbox para que muestre ese decrecimiento en forma de triangulo, ademas de estar bien centrado  así:


15
14  15
13  14  15
12  13  14   15 
11  12  13   14   15
10  11  12   13   14  15
9   10  11   12   13  14  15
8    9   10   11   12  13  14  15
7    8    9    10   11  12  13  14   15
6    7    8     9    10  11  12  13  14   15
5    6    7     8     9   10  11  12  13   14  15
4    5    6     7     8    9   10  11  12   13  14  15
3    4    5     6     7    8    9   10  11   12  13  14  15 
2    3    4     5     6    7    8    9   10   11  12  13  14  15
1    2    3     4     5    6    7    8    9    10  11  12  13  14  15

El codigo que use es este, me hace la forma pero, los números no me salen bien centrados ¿Qué puedo hacer?, ¿Como seria la condicion?

    Dim nume  As Integer
        Dim tri, spe, nose As String
        tri = " "
        nume = InputBox("ingrese el numero", "entrada de datos")
        While (nume < 0)
            MsgBox("ingrese  solo valores positivos")
            nume = InputBox("Ingrese solo números mayores a 0")
        End While
        Next
        For n As Integer = 0 To nume
            For i As Integer = n To 1 Step -1
                If nume < 10 Then
                    tri = tri & n - i + 1 & "  "
                Else
                    tri = tri & nume - i + 1 & "  "
                End If
            Next
            tri += vbNewLine
        Next
        MsgBox(tri)
    End Sub