LLenar un DataGrid

Question

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.

Answer 1

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.

Answer 2

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.

Answer 3

El ejemplo es para un Flexgrid. Cambia el control Datagrid.

 

Answer 4

Gracias por las respuestas.

 

---

Estudiante de Sistemas Informáticos.