none
tratar con imagenes RRS feed

  • Pregunta

  • muy buenas con todos disculpen pero me pueden ayudar

    eh estado aprendiendo bastante sobre vb
    pero se que me falta mucho y quisiera que me explicaran  como poder guardar imagenes en vb.net estoy haciendo un pequeño programa y pero no se como guargar una imagen en una base de datos me podrias ayudar este es mi codigo

    'este codigo pertenece al boton de guardar

    Public Class Personal

    Dim conexioN As New Class_personal
    Dim datos As New Class_dat_personal

     Private Sub Guardar_Click(sender As Object, e As EventArgs) Handles Nuevo.Click   

             datos.Cod_Personl = bcodigo.Text

                datos.nombr = Bnombre.Text
                datos.apelli = Bapellido.Text

      If Nuevo.Text.ToLower = "nuevo" Then
                Nuevo.Text = "Guardar"
                habilitar_Click()
            Else
                Nuevo.Text = "Nuevo"
                Try
                    If conexioN.ingresar_dtos_personal_(datos) Then
                        MessageBox.Show("los datos han sido guardados", "guardado", MessageBoxButtons.OK, MessageBoxIcon.Information)
                        limpiar()
                        desabilitar_Click()
                    End If
                Catch ex As MySqlException
                    MessageBox.Show("los datos NO se han guardado", "guardar", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Finally
                    cerrar()
                End Try
            End If

    end sub

    end class

    Public Class Class_personal
        Private adaptador As New MySqlDataAdapter
        Public Function ingresar_dtos_personal_(ByVal datos As Class_dat_personal) As Boolean
            Dim estado As Boolean = True

            Try
                conex_Global()
                adaptador.InsertCommand = New MySqlCommand("Insert into personal (CI,Nombre,Apellido,Direccion,Sexo,Razon_social,Celular,Convencional) values(@CI,@Nombre,@Apellido,@Direccion,@Sexo,@Razon_social,@Celular,@Convencional)", conexion)

                adaptador.InsertCommand.Parameters.Add("@CI", MySqlDbType.VarChar, 11).Value = datos.Cod_Personl
                adaptador.InsertCommand.Parameters.Add("@Nombre", MySqlDbType.VarChar, 45).Value = datos.nombr
                adaptador.InsertCommand.Parameters.Add("@Apellido", MySqlDbType.VarChar, 45).Value = datos.apelli
                adaptador.InsertCommand.Parameters.Add("@Direccion", MySqlDbType.VarChar, 45).Value = datos.dreccion
                adaptador.InsertCommand.Parameters.Add("@Sexo", MySqlDbType.VarChar, 2).Value = datos.sex
                adaptador.InsertCommand.Parameters.Add("@Razon_social", MySqlDbType.VarChar, 45).Value = datos.razon_soc
                adaptador.InsertCommand.Parameters.Add("@Celular", MySqlDbType.VarChar, 10).Value = datos.celu
                adaptador.InsertCommand.Parameters.Add("@Convencional", MySqlDbType.VarChar, 7).Value = datos.conve
                adaptador.InsertCommand.Parameters.Add("@picture", MySqlDbType.LongBlob).Value = datos.picture

                conexion.Open()
                adaptador.InsertCommand.Connection = conexion
                adaptador.InsertCommand.ExecuteNonQuery()
            Catch ex As MySqlException
                MessageBox.Show(ex.Message)
                estado = False
            Finally
                cerrar()
            End Try
            Return estado
        End Function

    end class

    Public Class Class_dat_personal
        Private cod_personal As String
        Private Nombre As String
        Private apellido As String
        Private celuar As String
        Private convenci As String
        Private razon_social As String
        Private direccion As String
        Private sexo As String

        Private pictur As Byte

        Public Property picture As Byte

            Get
                Return pictur
            End Get
            Set(value As Byte)
                pictur = value
            End Set
        End Property
    end class

    sábado, 16 de enero de 2016 21:46

Respuestas

  • "bryanmiomi" preguntó:

    > ... quisiera que me explicaran  como poder guardar imagenes en vb.net ...

    Hola:

    Adapta a tus necesidades los ejemplos que aparecen en los siguiente artículos:

    Cómo guardar archivos en una base de datos

    Cómo leer los archivos contenidos en una base de datos

    Un saludo


    Enrique Martínez Montejo
    [MS MVP - Visual Studio y Tecnologías de Desarrollo]

    Nota informativa: La información contenida en este mensaje, así como el código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o sugerido en el presente mensaje.

    Si esta respuesta le ha resultado útil, recuerde marcarla como satisfactoria.

    Si usas Visual Basic .NET y deseas ser productivo y feliz, se inteligente y activa la instrucción
    Option Strict.

    domingo, 17 de enero de 2016 8:35
    Moderador