none
Almacenar una imagen en la base de datos Mediante un Formulario RRS feed

  • Pregunta

  • Buenas , estoy realizando un sistema y tengo una duda .

    Lo que pasa es que quiero almacenar la imagen que muestro en el pictureBox en la base de datos. La verdad es que no tengo idea de como hacerlo , e visto muchos ejemplos pero son en C# , y yo no quiero eso ..

    Quisiera que alguien me pueda ayudar con un ejemplo sencillo , por favor .. Gracias

    Aqui les dejo el codigo de mi funcion por la cual estoy almacenando todos los datos , pero nose que tipo de dato ponerle a la imagen , y mucho peor aun nose como guardar lo que se muestre en el Picture Box , porfavor , espero sus mas prontas respuestas ,,.. Gracias.

     

     Public Function grabar_Trabajador(ByVal codigo_area As Integer, ByVal nombre_trabajador As String, ByVal apellido_trabajador As String, ByVal fecha_nacimiento_trabajador As String, ByVal fecha_contratacion_trabajador As String, ByVal sexo_trabajador As String, ByVal clase_de_trabajador As String, ByVal direccion_trabajador As String, ByVal modo_de_trabajador As String, ByVal trabajo_que_realiza As String, ByVal observacion As String, ByVal email As String, ByVal imagen As Byte)


            Dim cmd As New SqlCommand("usp_insertar_trabajadores_empresa_sin_imagen", cn)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("@codigo_area", SqlDbType.Int).Value = codigo_area
            cmd.Parameters.Add("@nombre_trabajador", SqlDbType.VarChar, 150).Value = nombre_trabajador
            cmd.Parameters.Add("@apellido_trabajador", SqlDbType.VarChar, 150).Value = apellido_trabajador
            cmd.Parameters.Add("@fecha_nacimiento_trabajador", SqlDbType.VarChar, 30).Value = fecha_nacimiento_trabajador
            cmd.Parameters.Add("@fecha_contratacion_trabajador", SqlDbType.VarChar, 50).Value = fecha_contratacion_trabajador
            cmd.Parameters.Add("@sexo_trabajador", SqlDbType.VarChar, 20).Value = sexo_trabajador
            cmd.Parameters.Add("@clase_de_trabajador", SqlDbType.VarChar, 100).Value = clase_de_trabajador
            cmd.Parameters.Add("@direccion_trabajador", SqlDbType.VarChar, 300).Value = direccion_trabajador
            cmd.Parameters.Add("@modo_de_trabajo", SqlDbType.VarChar, 30).Value = modo_de_trabajador
            cmd.Parameters.Add("@trabajo_que_realiza", SqlDbType.VarChar, 100).Value = trabajo_que_realiza
            cmd.Parameters.Add("@observacion", SqlDbType.VarChar, 200).Value = observacion
            cmd.Parameters.Add("@email", SqlDbType.VarChar, 200).Value = email


            cn.Open()
            Dim nresp As Integer = cmd.ExecuteNonQuery
            cn.Close()
            Return nresp

        End Function

    martes, 27 de agosto de 2013 4:15

Todas las respuestas