Yo una vez tuve que hacer un programa llenando un MSHFlexGrid, y luego descubri el DataGrid que era mucho mas eficiente para cargarlo.
Aca te dejo el codigo que use para el MSHFlexGrid, espero que te sirva por lo menos para una idea:
Cita: fila = 0
gridnombres.Visible = True
gridnombres.Cols = 4
gridnombres.Row = 0
gridnombres.Col = 0
gridnombres.Text = "1º Nombre"
gridnombres.Col = 1
gridnombres.Text = "2º Nombre"
gridnombres.Col = 2
gridnombres.Text = "1º Apellido"
gridnombres.Col = 3
gridnombres.Text = "2º Apellido"
Do
fila = fila + 1
gridnombres.Rows = fila + 1
gridnombres.Row = Val(fila)
gridnombres.Col = 0
gridnombres.Text = rsAlumno.Fields(2).Value
gridnombres.Col = 1
If rsAlumno.Fields(3).ActualSize = 0 Then
gridnombres.Text = "-"
Else
gridnombres.Text = rsAlumno.Fields(3).Value
End If
gridnombres.Col = 2
gridnombres.Text = rsAlumno.Fields(4).Value
gridnombres.Col = 3
If rsAlumno.Fields(5).ActualSize = 0 Then
gridnombres.Text = "-"
Else
gridnombres.Text = rsAlumno.Fields(5).Value
End If
rsAlumno.MoveNext
If fila >= 2 Then
gridnombres.Cols = gridnombres.Col + 1
End If
Loop Until rsAlumno.EOF
rsAlumno.Close
rsAlumno: era el RecordSet que usaba
gridnombre: era la MSHFlexGrid
Y ya que estoy te dejo el del DataGrid que a mi me hubiese gustado saberlo antes ya que hice esto con 25 MSHFlexGrid y despues me entere de lo del DataGrid...
Cita: Buscar = txtBuscar
If rsPersona.State = 1 Then
rsPersona.Close
End If
If optNomb.Value = True Then
SQLBuscar = "SELECT codPers, primNomb, segNomb, primApe, segApe FROM Personas WHERE primNomb LIKE '" & Buscar & "%';"
rsPersona.Open SQLBuscar, dbPrincipal, adOpenKeyset, adLockOptimistic
Set dgUsuario.DataSource = rsPersona
End If
If optApe.Value = True Then
SQLBuscar = "SELECT codpers, primNomb, segNomb, primApe, segApe FROM Personas WHERE primApe LIKE '" & Buscar & "%';"
rsPersona.Open SQLBuscar, dbPrincipal, adOpenKeyset, adLockOptimistic
Set dgUsuario.DataSource = rsPersona
End If
End Sub
Este codigo era para buscar una persona por nombre o por apellido, buscaba solo sin botones usando el evento Change del TextBox
dgUsuario: era el DataGrid.
El % que se encuetra en la cosulta SQL es devido a que cuando tiene una variable no funciona con *.
Espero que te sirvan estos codigos