• Lunes 23 de Diciembre de 2024, 10:57
« anterior próximo »
Páginas: [1]

Autor Tema:  Ayuda Con Clases Personalizadas  (Leído 1033 veces)

guarus

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Ayuda Con Clases Personalizadas
« en: Domingo 1 de Octubre de 2006, 19:40 »
0
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

  • Miembro MUY activo
  • ***
  • Mensajes: 390
  • Nacionalidad: bo
    • Ver Perfil
Re: Ayuda Con Clases Personalizadas
« Respuesta #1 en: Lunes 2 de Octubre de 2006, 16:12 »
0
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
  1.  
  2. Public class RNpais
  3.  
  4. private id_pais as integer
  5. private des as string
  6.  
  7. private campos as new arraylist
  8. private command  as sqlclient.sqlcommand
  9.  
  10. -- Aqui estaran las propiedades
  11. -- acceso datos es mi clase donde tengo la conexion a la DB
  12.  
  13.     Public Property Codigo() As Integer
  14.         Get
  15.             Return Id_Pais
  16.         End Get
  17.         Set(ByVal Value As Integer)
  18.             Dim Datos As New AccesoDatos.Operaciones(Command)
  19.             Dim dr As DataRow
  20.             dr = Datos.TraerUno("PAIS", Value, Command)
  21.             Id_Pais = dr(0)
  22.             Desc = dr(1)
  23.         End Set
  24.     End Property
  25.  
  26.     Public Property Descripcion() As String
  27.         Get
  28.             Return Desc
  29.         End Get
  30.         Set(ByVal Value As String)
  31.             Try
  32.  
  33.                 If Id_Pais <> Nothing Then
  34.                     Dim Datos As New AccesoDatos.Operaciones(Command)
  35.                     Dim Valores As New ArrayList
  36.                     Valores.Add("varchar")
  37.                     Valores.Add(Value)
  38.  
  39.                     Datos.modificar("PAIS", Campos, Valores, "ID_PAIS=" & Id_Pais, Command)
  40.                     Desc = Value
  41.                 Else
  42.                     Desc = Value
  43.                 End If
  44.             Catch ex As Exception
  45.                 Throw ex
  46.             End Try
  47.  
  48.         End Set
  49.  
  50.     End Property
  51.  
  52. -- constructores
  53.  
  54.     Sub New(ByVal Comando As SqlClient.SqlCommand)
  55.         Command = Comando
  56.         Id_Pais = -1
  57.         Desc = ""
  58.  
  59.         Campos.Add("varchar")
  60.         Campos.Add("DESCRIPCIONpais")
  61.  
  62.     End Sub
  63.  
  64.     Sub New(ByVal IDPAIS As Integer, ByVal Comando As SqlClient.SqlCommand)
  65.         Dim Datos As New AccesoDatos.Operaciones(Comando)
  66.         Dim dr As DataRow
  67.         Command = Comando
  68.         dr = Datos.TraerUno("PAIS", IDPAIS, Comando)
  69.         Id_Pais = IDPAIS
  70.         Desc = dr(1)
  71.  
  72.         Campos.Add("varchar")
  73.         Campos.Add("DESCRIPCIONpais")
  74.     End Sub
  75.  
  76. -- Operaciones Basicas
  77.  
  78.     Public Function Eliminar()
  79.         Try
  80.             Dim AD As New AccesoDatos.Operaciones(Command)
  81.             AD.eliminar("PAIS", Id_Pais, Command)
  82.         Catch ex As Exception
  83.             Throw ex
  84.         End Try
  85.     End Function
  86.  
  87.     Public Function Nuevo(ByVal Descripcion_Pais As String) As Integer
  88.         Try
  89.  
  90.             Dim AD As New AccesoDatos.Operaciones(Command)
  91.             Dim Valores As New ArrayList
  92.  
  93.             Valores.Add("varchar")
  94.             Valores.Add(Descripcion_Pais)
  95.  
  96.             Return AD.Insertar("PAIS", Campos, Valores)
  97.         Catch ex As Exception
  98.             Throw ex
  99.         End Try
  100.     End Function
  101.  
  102.     Public Function TraerTodos() As DataTable
  103.         Dim ad As New AccesoDatos.Operaciones(Command)
  104.         Return ad.TraerTodos("PAIS", "")
  105.     End Function
  106.  
  107.  
  108.  

espero que sea de tu ayuda

suerte  :comp:
Sagma

guarus

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re: Ayuda Con Clases Personalizadas
« Respuesta #2 en: Martes 3 de Octubre de 2006, 06:49 »
0
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.
Páginas: [1]
« anterior próximo »