Almacenar imágenes desde Visual Basic.NET

WebProgramacion > Recursos sobre informática y tecnología > Programacion > VB.NET > Almacenar imágenes desde Visual Basic.NET
Autor: Dámaso Velázquez Álvarez

Supongamos una tabla Imágenes que tenga los siguientes campos:

IMAGENES(idimagen,imagen)

El campo imagen será del tipo longblob.

El código sería el siguiente:

Dim cn As OleDbConnection
Dim sqlActualizar As MySqlCommand
Dim FileSize UInt32
Dim rawData() As Byte
Dim fs As FileStream
Dim oImg As Image

cn = new MySqlConnection("Data Source=servidor;Database=base_de_datos;User ID=usuario; Password=clave; Allow Zero Datetime=True; CHARSET=latin1");
sqlActualizar = New MySqlCommand()
fs = New FileStream("c:\imagen.jpg", FileMode.Open, FileAccess.Read)
cm = New OleDbCommand()

FileSize = fs.Length
rawData = New Byte(FileSize) {}
fs.Read(rawData, 0, FileSize)
fs.Close()

oImg = Image.FromFile(txtDocumento.Text)
sqlActualizar = New MySqlCommand("INSERT INTO imagenes(imagen) VALUES(?imagen)")
sqlActualizar.Parameters.Add("?imagen", rawData)

cn.open()
cm.CommandText = sqlActualizar
cm.CommandType = CommandType.Text
cm.Connection = cn
cm.ExecuteNonQuery()
cn.Close()