CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Ayuda Con Clases Personalizadas

(1/1)

guarus:
Buenas tardes, a la gente de la comunidad, estoy trabajndo con vb.net 2003 y sql server 2005 express, en el cual tengo un proyecto q tiene una clase llamada persona, con el siguiente codigo:

Public Class Persona
    Private Nombres As String
    Private Apellidos As String
    Private Eda As Byte

    Property Nombre() As String
        Get
            Return Nombres
        End Get
        Set(ByVal Value As String)
            Nombres = Value
        End Set
    End Property

    Property Apellido() As String
        Get
            Return Apellidos
        End Get
        Set(ByVal Value As String)
            Apellidos = Value
        End Set
    End Property

    Property Edad() As Byte
        Get
            Return Eda
        End Get
        Set(ByVal Value As Byte)
            Eda = Value
        End Set
    End Property

End Class

Y tengo otra clase q contiene la conexion a a la bd, y contiene los metodso abrir y cerrar. Ademas tengo un formulario para receger dicha informacion de la clase persona, con los botones incluir, modificar y eliminar.
Mi pregunta es ¿Como hago para recoger esa informacion en la clase persona y luego, desde alli,  guardarla en la bd?

Si puden mostrarme con un ejemplo similar les agradeceria, y/o me dieran sugerencias. Gracias

Sagma:
Hola guarus, yo tambien estoy haciendo de la misma forma, no soy un profesional en el Area de VBnet, estoy aprendiendo, poco a poco, gracias a este foro.
Fijate:


--- Código: Text --- Public class RNpais private id_pais as integerprivate des as string private campos as new arraylistprivate command  as sqlclient.sqlcommand -- Aqui estaran las propiedades-- acceso datos es mi clase donde tengo la conexion a la DB     Public Property Codigo() As Integer        Get            Return Id_Pais        End Get        Set(ByVal Value As Integer)            Dim Datos As New AccesoDatos.Operaciones(Command)            Dim dr As DataRow            dr = Datos.TraerUno("PAIS", Value, Command)            Id_Pais = dr(0)            Desc = dr(1)        End Set    End Property     Public Property Descripcion() As String        Get            Return Desc        End Get        Set(ByVal Value As String)            Try                 If Id_Pais <> Nothing Then                    Dim Datos As New AccesoDatos.Operaciones(Command)                    Dim Valores As New ArrayList                    Valores.Add("varchar")                    Valores.Add(Value)                     Datos.modificar("PAIS", Campos, Valores, "ID_PAIS=" & Id_Pais, Command)                    Desc = Value                Else                    Desc = Value                End If            Catch ex As Exception                Throw ex            End Try         End Set     End Property -- constructores     Sub New(ByVal Comando As SqlClient.SqlCommand)        Command = Comando        Id_Pais = -1        Desc = ""         Campos.Add("varchar")        Campos.Add("DESCRIPCIONpais")     End Sub     Sub New(ByVal IDPAIS As Integer, ByVal Comando As SqlClient.SqlCommand)        Dim Datos As New AccesoDatos.Operaciones(Comando)        Dim dr As DataRow        Command = Comando        dr = Datos.TraerUno("PAIS", IDPAIS, Comando)        Id_Pais = IDPAIS        Desc = dr(1)         Campos.Add("varchar")        Campos.Add("DESCRIPCIONpais")    End Sub -- Operaciones Basicas     Public Function Eliminar()        Try            Dim AD As New AccesoDatos.Operaciones(Command)            AD.eliminar("PAIS", Id_Pais, Command)        Catch ex As Exception            Throw ex        End Try    End Function     Public Function Nuevo(ByVal Descripcion_Pais As String) As Integer        Try             Dim AD As New AccesoDatos.Operaciones(Command)            Dim Valores As New ArrayList             Valores.Add("varchar")            Valores.Add(Descripcion_Pais)             Return AD.Insertar("PAIS", Campos, Valores)        Catch ex As Exception            Throw ex        End Try    End Function     Public Function TraerTodos() As DataTable        Dim ad As New AccesoDatos.Operaciones(Command)        Return ad.TraerTodos("PAIS", "")    End Function   
espero que sea de tu ayuda

suerte  :comp:

guarus:
Gracias Sagma por tu respuesta, bueno dejame probar de esa forma a ver como me va, aunque no entiendo muy bien, yo tambien estoy comenzando a programar de esa forma. por eso me cuesta.

Navegación

[0] Índice de Mensajes