none
LLenar un DataGrid RRS feed

  • Pregunta

  • Hola.

    Estoy tratando de hacer un proyecto en visual basic 6.0,y mi duda es como llenar las celdas de un datagrid, ya que n vb 2010 al momento que se esta ejecutando el programa se pueden llenar las celdas del DataGrid y el en Visual Basic 6.0 no me lo permite y no tengo idea de como se hace.

    El Codigo que tengo en Visual Basic 2010 para enviarle los datos a las celdas es este:

    Dim Alumnos() As Alumno
     Dim Notas(2) As Alumno
     Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregar.Click
    
     Dim Tamaño As Integer
     Tamaño = Convert.ToInt32(InputBox("Cuantos Alumnos va a agregar", "Ingreso de ALumnos"))
    
     Array.Resize(Alumnos, Tamaño)
     For i As Integer = 0 To Alumnos.GetUpperBound(0)
     Alumnos(i).Apellido = Convert.ToString(InputBox("Apellido del Alumno(a) :", "Información Personal"))
     Alumnos(i).Nombre = Convert.ToString(InputBox("Nombre del Alumno(a) : ", "Información Personal"))
     MessageBox.Show("Tendrá que Agregar 5 Notas", "Notas", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
     Notas(0).Notas = InputBox("Nota 1: ", "Notas")
     Notas(1).Notas = InputBox("Nota 2: ", "Notas")
     Notas(2).Notas = InputBox("Nota 3: ", "Notas")
     
     DataGridView1.Rows.Add(Alumnos(i).Apellido, Alumnos(i).Nombre, Alumnos(i).Edad,Notas(0).Notas, Notas(1).Notas, Notas(2).Notas, Notas(3).Notas )
     Next
    
    
     End Sub
    

    Se que para el Visual 6.0 cambiaria pero no se como programarlo en ese Lenguaje(vb 6.0).


    Estudiante de Sistemas Informáticos.
    jueves, 19 de mayo de 2011 23:28

Respuestas

Todas las respuestas

  • Descarga este ejemplo:http://www.tucondominioaldia.com.ve/archivos/ejemGrid.zip

    Si bien es para Microsoft Access, puedes emplear el código en Visual Basic 6.0

    Las rejillas se llenan ' a mano', con excepción de las rejillas Data, que tienen un origen de control.

    viernes, 20 de mayo de 2011 1:15
  • Hola guarracuco.

    Gracias por Responder.

    Pondré el codigo que yengo hecho en VB.6.0 es este:

     

    Private Type Alumno
    
     Apellido As String
     Nombre As String
     Materia As String
     Notas As Double
    
    End Type
    
    Private Sub Command1_Click()
    Dim Alumnos() As Alumno
    Dim Notas(3) As Alumno
     Dim Tamaño As Integer
     Dim i As Integer
     Tamaño = (InputBox("Cuantos Alumnos va a agregar", "Ingreso de ALumnos"))
     
     ReDim Preserve Alumnos(Tamaño)
     
      For i = 0 To UBound(Alumnos)
       Alumnos(i).Apellido = (InputBox("Apellido del Alumno(a) :", "Información Personal"))
       Alumnos(i).Nombre = (InputBox("Nombre del Alumno(a) : ", "Información Personal"))
       Alumnos(i).Materia = (InputBox("Materia: ", "Información Personal"))
       Notas(0).Notas = InputBox("Nota 1: ", "Notas")
       Notas(1).Notas = InputBox("Nota 2: ", "Notas")
       Notas(2).Notas = InputBox("Nota 3: ", "Notas")
       Notas(3).Notas = InputBox("Nota Final: ", "Notas")
       
       DataGrid1.Columns(0) = Alumnos(i).Apellido
       DataGrid1.Columns(1) = Alumnos(i).Nombre
       DataGrid1.Columns(2) = Alumnos(i).Materia
       DataGrid1.Columns(3) = Notas(0).Notas
       DataGrid1.Columns(4) = Notas(1).Notas
       DataGrid1.Columns(5) = Notas(2).Notas
       DataGrid1.Columns(6) = Notas(3).Notas
       
      Next
    End Sub
    
    
    
    

     

    En Lugar de Columns intente usar el Rows pero no me hace nada no agrega los datos correspondientes.

    Como puedo solucionar este problema, o habra otro control que me permita hacer lo mismo que el DataGrid de forma mas sencilla...

    No He podido solucionar este problema, ya que no son bases de datos las que intento manejar sino solo mandarle los datos que el usario indique, pero como  mencione tengo problemas en eso de llenar las celdas del DataGrid y no se como solucionarlo, solo tengo la solucion hecha en VB 2010 y veo que el DatGrid se usa de manera mas facil, Vengo de Programar en VB 2010 y necesito que me den una ayudadita en este Problema que tengo.

    Si en algo me equivoco corregirme por favor ya que es primera vez que programo en el VB.6.0.

     


    Estudiante de Sistemas Informáticos.
    viernes, 20 de mayo de 2011 1:54
  • El ejemplo es para un Flexgrid. Cambia el control Datagrid.

     

    • Marcado como respuesta P. Mata sábado, 21 de mayo de 2011 2:47
    viernes, 20 de mayo de 2011 10:40
  • Gracias por las respuestas.

     


    Estudiante de Sistemas Informáticos.
    sábado, 21 de mayo de 2011 2:47