Ver Mensaje Individual
  #2 (permalink)  
Antiguo 02/10/2009, 16:07
Avatar de ah_puch
ah_puch
 
Fecha de Ingreso: agosto-2005
Ubicación: Ecatepec, México
Mensajes: 180
Antigüedad: 18 años, 8 meses
Puntos: 3
Respuesta: usar imagen con ASP .NET (C#) y SQL 2005

en tu bd el campo donde vayas a guardar la imagen tiene que ser tipo Image

Código:
Function AgregarEditarImagen(ByVal Id As String, ByVal Path As String, ByVal Ext As String) As NullReferenceException
        If Not (LCase(Ext) = ".jpg" Or LCase(Ext) = ".png" Or LCase(Ext) = ".gif" Or Ext = "") Then
            
            Return Nothing
            Exit Function
        Else
            'Converites la imagen a arreglo de bytes
            Dim Fs As New FileStream(Path, FileMode.OpenOrCreate, FileAccess.Read)
            Dim Br As BinaryReader = New BinaryReader(Fs)
            Dim Image() As Byte = Br.ReadBytes(Fs.Length)

            Command = New SqlCommand("UPDATE TBL_SESIONES " & _
                                     "SET FOTO =@Imagen, Img_Ext =@Ext " & _
                                     "WHERE(CANDIDATO_ID = @Candidato )", cnx)

            Command.Parameters.Add("@Imagen", SqlDbType.Image).Value = Image
            Command.Parameters.Add("@Ext", SqlDbType.Char).Value = UCase(Ext)
            Command.Parameters.Add("@Candidato", SqlDbType.Char).Value = Id
            cnx.Open()
            Command.ExecuteNonQuery()
            cnx.Close()
        End If
        Return Nothing
    End Function


    Function DewscargarImg(ByVal Id As String) As String
            'aa por cierto asi es como se bajan de la bd
            Adapter = New SqlDataAdapter("SELECT * " & _
                                     "FROM TBL_SESIONES " & _
                                     "WHERE (candidato_id = " & Id & ")", cnx)

            Dim _CommandBuilder = New SqlCommandBuilder(Adapter)
            cnx.Open()
            Adapter.Fill(Ds, "ValidarFoto")

            Dim DsFila As DataRow
            Dim Image() As Byte
            Dim Ext As String, Imagen As String
        DsFila = Ds.Tables("ValidarFoto").Rows(0)

        Ext = DsFila("Img_Ext")
            Image = DsFila("Foto")
            Imagen = Id


            Dim I As Long = UBound(Image)
            Dim Fs As New FileStream(AppPath & Trim("Tmp\" & Imagen & "-trans" & Ext), FileMode.OpenOrCreate, FileAccess.Write)
            Fs.Write(Image, 0, I)
            Fs.Close()
            Fs = Nothing
            Ds = Nothing
            Adapter = Nothing
            _CommandBuilder = Nothing
            cnx.Close()
        Return Trim("Tmp/" & Imagen & "-trans" & Ext)
        Return Nothing
    End Function

sino revisa esto

http://blogs.vbcity.com/mcintyre/arc...0/11/6386.aspx
__________________
La programacion no es un trabajo, es un Arte
http://www.purodev.blogspot.com

Última edición por ah_puch; 02/10/2009 a las 16:12