Me ganó.....cómo lleno un MsFlexgrid sin datacontrol?

[Bluesman74cl]

eso..traté de llenar un msflexgrid y no he podido...


traté de ver varios ejemplos y nada.. alguien me puede ayudar a hacerlo de forma manual... es decir,


while not res.eof

llenar fila a fila

wend

no pongo el ultimo código que tenia pues lo tengo en mi trabajo... desde ya mil gracias..

[bubilo]

esto es un codigo de un progama mio
tdetalleventas es el recordset y fg4 es el mshflexgrid


Do While tdetalleventas.EOF = False
fg4.TextMatrix(x, 0) = detalle_codigo
fg4.TextMatrix(x, 1) = detalle_detalle
fg4.TextMatrix(x, 2) = detalle_cantidad
fg4.TextMatrix(x, 3) = detalle_totalart
sumamozo = sumamozo + detalle_totalart
x = x + 1
tdetalleventas.MoveNext
Loop

[Bluesman74cl]

Mira...copié tu código y quedó asi...

Código:

Private Sub Form_Load()

   Dim res As ADODB.Recordset
   Dim rs As ADODB.Recordset
   
   Dim Vari As String
   Set Miconexion = New ADODB.Connection
   Aux = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=D:\desarrollo_cazo\servacar_visual\db\capacita.mdb"
   Miconexion.ConnectionString = Aux
   Miconexion.Open
   Set res = Nothing
   Set res = Miconexion.Execute("Select count(cargo) as var from cargos")
   
   Vari = res("var")
   MsgBox (Vari)
   Set res = Nothing
   Set res = Miconexion.Execute("Select * from cargos ")
   x = 0
   Do While res.EOF = False
     
   
   MSFlexGrid1.TextMatrix(x, 0) = id_Cargo
   MSFlexGrid1.TextMatrix(x, 1) = cod_cargo
   MSFlexGrid1.TextMatrix(x, 2) = cargo

   res.MoveNext
   x = x + 1
   Loop

End Sub

pero me arroja un error :"Run-Time error '381':
Subscript out of range

[netorres]

res.Fields("id_Cargo")

[Bluesman74cl]

okas... lo agregué pero sigue dando el mismo error..habrá que configurar el MSFlexgrid? otra cosa por qué bubilo lo llamó ms"H"Flexgrid? que diferencias existen entre uno y otro?

[Bluesman74cl]

La verdad es que faltaba agregar esto..


MSFlexGrid1.Rows = Vari + 1 'una fila extra para las cabeceras
MSFlexGrid1.Cols = res.Fields.Count



ya lo he solucionado gracias estimados...

[aldo1982]

bue perdon ke me entrometa, pero esto me sirve de mucho...ya ke no podia hacerlo con el datagrid..perdon pero muchas gracias :PPPP