Visual Basic - pregunta sobre msflexgrid

quisiera pedir su ayuda para resolver u problema con el flexgrid:

estoy tratando de hacer un sistema de consulta de datos, que me arroje lo buscado en una BD en un flexgrid.
como puedo llenar un msflexgrid con los datos de una base de datos.
si ya estableci la propiedad rows y cols en propiedades, o ya sea en el form load.

sin embargo no se cuando los datos vayan a variar de 1, 2, 3,.....hasta 50000.

¿existira alguna forma de hacerlo con un ciclo, que me vaya creando una fila cada vez que haya un registro despues del otro, en tiempo de ejecucion?

para no poner un numero de filas especificamente y me genere algun ruido.

agradeceria mucho su respuesta

Entiendo que Grid lo cargas a través de un Recordset. Si es así, pones esto en el evento Form_Load():
With MSFlexGrid1
.Rows = rs.RecordCount + .FixedRows
.Cols = rs.Fields.Count + .FixedCols
End With
Nota: "rs" es tu Recordset.
Saludos

gracias por responderme mi pregunta tratare de utilizar estos metodos, para ver si resulta. cualquier duda se las comento.
gracias por sus respuestas

Gracias amigo por tu aporte, tratare de usar ese codigo
Gracias

http://lawebdelprogramador.com/codigo/enlace.php?idp=1230&id=93&texto=Visual+Basic

Digo yo... en vez de hacer semejante quilombo... Porqué no le asignan el recordset al Flex Grid y listo?????

Si usan DAO, se lo asignan a un FlexGrid y si usan ADO, a un MSHFlexGrid.

Ejemplo DAO-FlexGrid:

Set FlexGrid.DataSource = myRecordset

'Donde myRecordset es el recordset de DAO con el que quieren llenar el Grid y FlexGrid es control que agregaron en el formulario

Ejemplo ADO-MSHFlexGrid:

Set MSHFlexGrid.DataSource = myRecordset

'Donde myRecordset es el recordset de ADO con el que quieren llenar el Grid y MSHFlexGrid es control que agregaron en el formulario.

Con una sola línea ya tienen solucionado todo el problema porque automáticamente les llena las líneas de encabezado con el nombre de los campos. Si hubiese alguna columna que no quieren ver, una vez cargado el grid le ponen el valor 0 (cero) al ancho de esa columna y listo!

Como manipular el flexgrid con las teclas de desplazamiento, por ejemplo si estas en la celda 1,1 y presionas la tecla de flecha derecha valide el data y automaticamente que se mueva a la 1,2 y así ....se te agaredecera mucho

Mira lo que podrias hacer es el siguiete codigo, no c si te sirva

primero preguntas si el recorset no esta vacio ,ejemplo.
if rstbase_datos.recordcount>0 then
ejecutas el llenado del flex
msflexgrid.textmatrix(fil,0)=rstbase_datos!Nombre
//debes tener en cuenta que fil es una varable de tipo integer
end if
de igual forma puedes hcerlo con un while, con el while mientras la tabla contenga datos, te los mostrara

este es el procedimiento amigo
'primero tienes que irte a referencias(Ctrl +t) y selecionar la tecnologia Microsoft Acivex Data Objects 2.7 library
Esta es la que permite crear Los recordset y la coneccion hacia la base de datos

'Crear modulo
en el modulo tienes que crear el objeto que hace la coneccion a la base y el famoso recordset(registros):
Public base as new ADODB.Coneccion
Public recorset as new ADODB.Recordset

' en el mismo modulo crear una sentencia Publica :
Public Sub coneccion()
base.Provider = "Microsoft.Jet.OLEDB.4.0"
base.ConnectionString = "Data Source = " & (App.Path & "origen.mdb") & ""
base.Open
End Sub
'cabe recalcar que base es el objeto que va hacer la coneccion y origen es la base de datos

'Ahora si vamos a llenar en el flex los datos de una tabla que esta en la base em este caso la tabla CLIENTE que tiene esos campos.. esto se lo hace en el form_load o en um comando o mas bien en el objeto en en el cual le vas a dar el evento para llenar el flex en este caso en el form load,,, esto quiere decir que al cargar el formulario ya los datos en el flex ya deben estar disponibles

Private Sub form_load()
1.- vamos a diseñar el flex dependiendo a los campos de la tabla
Me.MSFlexGrid1.TextMatrix(0, 0) = "id"
Me.MSFlexGrid1.TextMatrix(0, 1) = "Nombre"
Me.MSFlexGrid1.TextMatrix(0, 2) = "Apellido"
Me.MSFlexGrid1.TextMatrix(0, 3) = "telefono"
2.-
recorset.Open "select * from CLIENTE", base, adOpenKeyset, adLockBatchOptimistic
f = 1
Do While Not recorset.EOF
Me.MSFlexGrid1.Rows = Me.MSFlexGrid1.Rows + 1
Me.MSFlexGrid1.TextMatrix(f, 0) = rs2!id
Me.MSFlexGrid1.TextMatrix(f, 1) = rs2!Nombre
Me.MSFlexGrid1.TextMatrix(f, 2) = rs2!Apellido
Me.MSFlexGrid1.TextMatrix(f, 3) = rs2!Telefono
recorset.MoveNext
f = f + 1
Loop
recorset.close
End Sub

pruebalo ese es mi modo para llenar todos lo datos de una tabla en un flex
Gracias...
ATT.ANDRES RAUL
[email protected]

Gracias amigo por tu respuesta, nada mas que se me olvido decirte que estoy trabajando con DAO, que tal vez ya es obsoleto, asi que voy a intentar este mismo procedimiento tratando de convertirlo a DAO. Gracias Por tu apoyo.

como llenar con los datos de una base en acces un msflexgrid

como pudo saber que me marca un error que me dice que la propiedad chars es readonly