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
(http://www.imaxenes.com/mini/formualrio1la60y8.jpg) (http://www.imaxenes.com/imagen/formualrio1la60y8.jpg.html)
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... :huh: :huh: :huh: :huh: :huh:
Si alguien me pueda ayudar selos agradeceria.
Aqui adjunto mi sistema: Lo subi en 4Shared ()
sistema_deportes.zip (http://www.4shared.com/file/160510593/265c2dcf/sistema_deportes.html)
bueno antetodo muchas gracias por sus respuestas.. consejos... mejoras de mi codigo..que no devi hacer.. ,ect :D :D ;D
ok ahi te va una pequeña correccion esto es un fragmento (las primeras lineas) de tu Form1
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
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
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.
Cita de: 43H4FH44H45H4CH49H56H45H en 28 Noviembre 2009, 03:54 AM
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.Cita de: Xtriker en 28 Noviembre 2009, 00:39 AM
ok ahi te va una pequeña correccion esto es un fragmento (las primeras lineas) de tu Form1
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
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..