Almacenar imágenes desde Visual Basic.NET

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()

Quizá te interese...