Visual Basic.NET - ayuda imagen en sql

   
Vista:

ayuda imagen en sql

Publicado por Daniel dachcat83@gmail.com (1 intervención) el 19/04/2011 17:59:58
Buen dia me gustaria me pudieran ayudar soy muy novato en esto y estoy desarrollando un aplicacion en vb.net 2008 la cual maneja imagenes ya descubri mediante un tuto que baje como guardar la imagen en sql 2005 express y como extraerla, el problema es que me gustaria que al momento de guardar la imagen se guardara junto con su nombre esto en un textbox y e batallado tambien me gustraria que al momento de llamar la imagen se realizara por un textbox con su nombre ya que al momento de extraer la imagen me la manda por el img_id y solo me trae la primera por el select que se encuentra dentro de la instruccion ya lo cambie pero no me resulto

pls help meee

aqui les dejo mi codigo porfavor ayudaaaa




Imports
System.IO
Imports
System.Data.SqlClient
Imports
System.Data
Imports
System.Drawing.Imaging
Public
Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strCn As String = "data source=JDTEAM\SQLEXPRESS; initial catalog=BasePrueba; integrated security= true"
End Sub
Private Sub BtnInsetrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnInsetrar.Click
Dim strCn As String = "data source=JDTEAM\SQLEXPRESS; initial catalog=BasePrueba; integrated security= true"
Dim cn As New SqlConnection(strCn)
Dim cmd As New SqlCommand("INSERT INTO BLOBTest(BLOBData, BLOBName)" & _
"VALUES(@BLOBData, @BLOBName)", cn)
Dim fsBLOBFile As FileStream
Me.OPF.Filter = "imagenes (JPG) |*.jpg"
If Me.OPF.ShowDialog() = Windows.Forms.DialogResult.Cancel Then
PicBlob.Image = Bitmap.FromFile(OPF.FileName)
Txtname.Text = OPF.FileName
Else
fsBLOBFile =
New FileStream(Me.OPF.FileName, FileMode.Open, FileAccess.Read)
Dim bytBLOBData(fsBLOBFile.Length() - 1) As Byte
fsBLOBFile.Read(bytBLOBData, 0, bytBLOBData.Length)
PicBlob.SizeMode = PictureBoxSizeMode.StretchImage
PicBlob.Load(
Me.OPF.FileName)
fsBLOBFile.Close()
Dim prm As New SqlParameter("BLOBData", SqlDbType.VarBinary, _
bytBLOBData.Length, ParameterDirection.Input,
False, _
0, 0,
Nothing, DataRowVersion.Current, bytBLOBData)
cmd.Parameters.Add(prm)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
End If
End Sub
Private Sub BtnExtraer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExtraer.Click
Dim strCn As String = "data source=JDTEAM\SQLEXPRESS; initial catalog=BasePrueba; integrated security= true"
Dim cn As New SqlConnection(strCn)
Dim cmd As New SqlCommand(" SELECT BLOBID, " & _
"BLOBData from BLOBTest ORDER BY BLOBId", cn)
Dim dr As SqlDataReader
cn.Open()
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
If dr.Read Then
Dim bytimagen(dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte
dr.GetBytes(1, 0, bytimagen, 0, bytimagen.Length)
Dim stmImagen As New MemoryStream(bytimagen)
PicBlob.Image = Image.FromStream(stmImagen)
PicBlob.SizeMode = PictureBoxSizeMode.StretchImage
End If
dr.Close()
End Sub
End
Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder