Ahora el código para mostrar las imágenes, yo los muestro aparte porque lo importante es mostrarles cómo funciona el código, a partir de aquí pueden hacer lo que les venga en gana.
En este form utilizo un BindingNavigator para desplazarme por los resultados de una consulta a la base de datos, por tanto es necesario utilizar un BindingSource para enlazarlo con un origen de datos, es decir de donde obtendrá la información.
En este código, se obtiene la información a partir de la función
Public Function ListarDatos() As DataTable
El formulario se llama showing y solo tendrá un TextBox, un RichtextBox y un PictureBox
Aquí está el código:
Imports System.Data.SqlClient
Public Class showing
Dim bs As New BindingSource
Private Sub showing_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cnn.Open()
bs.DataSource = ListarDatos()
BindingNavigator1.BindingSource = bs
TextBox1.DataBindings.Clear()
RichTextBox1.DataBindings.Clear()
TextBox1.DataBindings.Add("Text", bs, "nombre")
RichTextBox1.DataBindings.Add("Text", bs, "comentarios")
PictureBox1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", bs, "ruta", True))
End Sub
Public Function ListarDatos() As DataTable
cnn.Close()
cnn.Open()
Dim sql As String = "SELECT * FROM img"
Dim da As New SqlDataAdapter(sql, cnn)
Dim dt As New DataTable("img")
da.Fill(dt)
cnn.Close()
Return dt
End Function
End Class
