Ayuda en VB.net..

[ronald hisp]

Bueno hice un sistema.en VB.net (Visual Studio 2005)
-con una clase (deportista)
-con arraylist
-con constructores
-property

y los metodos

De almacenamiento de deportistas:
1.- Insertar
2.- Mostrar
3.- Buscar




Bueno mi sistema no me manda ni un error.
pero cuando ingreso los deportitas y le mando demostrar no me muestra nada y cuando hago la busqueda tampoco.
todo esto me lleva que hice mal la insercion pero no.. me lei un tuto y esta bien en fin nose que hice mal...


Si alguien me pueda ayudar selos agradeceria.

Aqui adjunto mi sistema: Lo subi en 4Shared ()

sistema_deportes.zip

bueno antetodo muchas gracias por sus respuestas.. consejos... mejoras de mi codigo..que no devi hacer.. ,ect  

[Atrum]

ok ahi te va una pequeña correccion esto es un fragmento (las primeras lineas) de tu Form1

Código (vbnet) [Seleccionar] Expandir


Public Class Form1

    'Aqui declaras tu objeto publico
    Public ob As New Deportista


    Private Sub btnaceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaceptar.Click
        Try
            If (txtname.Text = "" And txtapellido.Text = "" And txtdeporte.Text = "" And txtedad.Text = "") Then
                MsgBox("No lleno los datos..")
            Else

                'Quitas esta declaracion local por que tu objeto necesita ser
                'publico para llamarlo desde otra clase

                'Dim ob As New Deportista(txtname.Text, txtapellido.Text, txtdeporte.Text, txtedad.Text)

                'Dim ob As New Deportista()
                ob.insertar(txtname.Text, txtapellido.Text, txtdeporte.Text, txtedad.Text)
                MsgBox("Llenado exitoso")
            End If
        Catch ex As Exception

        End Try
    End Sub


Tu objeto debe de ser publico, y haces referencia a el asi en mostrar2

Código (vbnet) [Seleccionar] Expandir


Public Class mostrar2

    Dim i As Integer
    Private Sub btnmostrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmostrar.Click
        Dim obj As New Deportista

        'creaste una nueva instsncia vacia, y el objeto donde estas guardando los datos
        'esta en otra clase, asi que necesitas hacer referencia a el, es por eso que
        'tiene que ser Public
        obj = Form1.ob

        'aqui no te entendi, para que usas esta variable ¿por que esta inicializada
        'como "---"?
        txtrp.Text += obj.mostrartext

        'Aqui solo estas mostrando el nombre necesitas hacer recursividad en todos tus arrays
        For i = 0 To obj.arrayNombre.Count() - 1
            txtrp.Text += "nombre:" & obj.arrayNombre.Item(i) & vbCrLf
            txtrp.Text += "apellido:" & obj.arrayApellido.Item(i) & vbCrLf
            txtrp.Text += "deporte:" & obj.arrayDeporte.Item(i) & vbCrLf
            txtrp.Text += "Edad:" & obj.arrayEdad.Item(i) & vbCrLf & vbCrLf
        Next

    End Sub


Espero te ayude amigo

[43H4FH44H45H4CH49H56H45H]

Viendo el code de pasada, los datos solo se guardan en un arraylist?
Si es asi, en la clase deportista podrias agregar el almacenado fisico, ya sea en un archivo o una base de datos.

[ronald hisp]

Viendo el code de pasada, los datos solo se guardan en un arraylist?
Si es asi, en la clase deportista podrias agregar el almacenado fisico, ya sea en un archivo o una base de datos.

Bueno si lo hice en arraylist para simular base de datos.

ok ahi te va una pequeña correccion esto es un fragmento (las primeras lineas) de tu Form1

Código (vbnet) [Seleccionar] Expandir


Public Class Form1

    'Aqui declaras tu objeto publico
    Public ob As New Deportista


    Private Sub btnaceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaceptar.Click
        Try
            If (txtname.Text = "" And txtapellido.Text = "" And txtdeporte.Text = "" And txtedad.Text = "") Then
                MsgBox("No lleno los datos..")
            Else

                'Quitas esta declaracion local por que tu objeto necesita ser
                'publico para llamarlo desde otra clase

                'Dim ob As New Deportista(txtname.Text, txtapellido.Text, txtdeporte.Text, txtedad.Text)

                'Dim ob As New Deportista()
                ob.insertar(txtname.Text, txtapellido.Text, txtdeporte.Text, txtedad.Text)
                MsgBox("Llenado exitoso")
            End If
        Catch ex As Exception

        End Try
    End Sub


Tu objeto debe de ser publico, y haces referencia a el asi en mostrar2

Código (vbnet) [Seleccionar] Expandir


Public Class mostrar2

    Dim i As Integer
    Private Sub btnmostrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmostrar.Click
        Dim obj As New Deportista

        'creaste una nueva instsncia vacia, y el objeto donde estas guardando los datos
        'esta en otra clase, asi que necesitas hacer referencia a el, es por eso que
        'tiene que ser Public
        obj = Form1.ob

        'aqui no te entendi, para que usas esta variable ¿por que esta inicializada
        'como "---"?
        txtrp.Text += obj.mostrartext

        'Aqui solo estas mostrando el nombre necesitas hacer recursividad en todos tus arrays
        For i = 0 To obj.arrayNombre.Count() - 1
            txtrp.Text += "nombre:" & obj.arrayNombre.Item(i) & vbCrLf
            txtrp.Text += "apellido:" & obj.arrayApellido.Item(i) & vbCrLf
            txtrp.Text += "deporte:" & obj.arrayDeporte.Item(i) & vbCrLf
            txtrp.Text += "Edad:" & obj.arrayEdad.Item(i) & vbCrLf & vbCrLf
        Next

    End Sub


Espero te ayude amigo

Y me ayudo bastante lo chekee y eso me dice que me falta mucho... ya que me complico la vida con algo sencillo y ah repasar objetos...
Gracias por comentar el codigo asi lo entendi de volada...

muchas gracias..