Pregunta: | 64932 - EXPORTAR E IMPORTAR IMAGENES CON SUS NOMBRES EN VB.NET A SQL |
Autor: | Daniel Chavez |
por favor alguien me podria ayudar y decime como modificar el sig codigo fuente ya que si se guarda la imagen y se extraer pero no e pododo guardar la imagen con su nombre contenido en un textbox. por lo cual no e podido extraerla por su nombre solo se extraer la primer imagen que se agrego por su id ya e tratado de modificar el select del cmd pero no me fumcional alguien por favor me podria ayudar y decirme que es lo que me falta agregar tanto para guardar el contenido del texbox como extraerla por el contenido del textbox agredeceria mucho su ayuda les dejo el codigo saludos ImportsSystem.IO ImportsSystem.Data.SqlClient ImportsSystem.Data ImportsSystem.Drawing.Imaging PublicClass Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim strCn As String = "data source=JDTEAMSQLEXPRESS; 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=JDTEAMSQLEXPRESS; 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=JDTEAMSQLEXPRESS; 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 EndClass |