Imágenes en BBDD Access

24/04/2005 - 21:36 por Jesusito | Informe spam
Hola maestros:
Estoy trabajando en una aplicación que necesita guardar imágenes en una BD
Access y en este foro encontré unas líneas de código:
____________________________________________________________________
Dim connStr As String = "C:\Documents and Settings\YO\Mis documentos\Visual
Studio Projects\ImagenesEnBBDD\Imagenes.mdb"
Dim cnSQL2 As New OleDb.OleDbConnection(connStr)
Dim cmSQL2 As New OleDb.OleDbCommand("UPDATE imagen in Imagenes")
Dim MS As MemoryStream = New memorystream
PicFoto.Image.Save(MS, ImageFormat.jpeg)
Dim bytblobData(MS.length - 1) As Byte
MS.position = 0
MS.read(bytblobData, 0, MS.length)
Dim prm As New OleDb.OleDbParameter("@BLOBData", oledbtype.binary,
bytblobData.Length, ParameterDirection.Input, False, 0, 0, Nothing,
DataRowVersion.Current, bytblobData)
cmSQL2.Parameters.Add(prm)
cnSQL2.Open()
cmSQL2.ExecuteNonQuery()

cnSQL2.Close()____________________________________________________________________
Soy muy nuevo en programación y empiezo por VB.Net que me parece fascinante,
así es que me gustaría que me ayudarais y comentarais porqué me subraya
"MemoryStream" e "ImageFormat" diciendo que no están definidos...

1.¿Se me olvida importar algún NameSpace?

2.¿Sabéis alguna página donde haya un ejemplo de como se trabaja con
imágenes contra Access? Me resultaría de grandísima ayuda ver ej. para
analizar el código y entenderlo.

Gracias de antemano
 

Leer las respuestas

#1 Jesusito
28/04/2005 - 12:52 | Informe spam
No puedo creer que no sepa nadie trabajar con imagenes en BBDD...

"Jesusito" escribió:

Hola maestros:
Estoy trabajando en una aplicación que necesita guardar imágenes en una BD
Access y en este foro encontré unas líneas de código:
____________________________________________________________________
Dim connStr As String = "C:\Documents and Settings\YO\Mis documentos\Visual
Studio Projects\ImagenesEnBBDD\Imagenes.mdb"
Dim cnSQL2 As New OleDb.OleDbConnection(connStr)
Dim cmSQL2 As New OleDb.OleDbCommand("UPDATE imagen in Imagenes")
Dim MS As MemoryStream = New memorystream
PicFoto.Image.Save(MS, ImageFormat.jpeg)
Dim bytblobData(MS.length - 1) As Byte
MS.position = 0
MS.read(bytblobData, 0, MS.length)
Dim prm As New OleDb.OleDbParameter("@BLOBData", oledbtype.binary,
bytblobData.Length, ParameterDirection.Input, False, 0, 0, Nothing,
DataRowVersion.Current, bytblobData)
cmSQL2.Parameters.Add(prm)
cnSQL2.Open()
cmSQL2.ExecuteNonQuery()

cnSQL2.Close()____________________________________________________________________
Soy muy nuevo en programación y empiezo por VB.Net que me parece fascinante,
así es que me gustaría que me ayudarais y comentarais porqué me subraya
"MemoryStream" e "ImageFormat" diciendo que no están definidos...

1.¿Se me olvida importar algún NameSpace?

2.¿Sabéis alguna página donde haya un ejemplo de como se trabaja con
imágenes contra Access? Me resultaría de grandísima ayuda ver ej. para
analizar el código y entenderlo.

Gracias de antemano

Preguntas similares