Visual Basic.NET - Cargar MsFlexGrid

   
Vista:

Cargar MsFlexGrid

Publicado por Llaverin (22 intervenciones) el 22/10/2007 10:19:42
Hola a tod@s:
Como puedo cargar un MsFlexGrid, utilizando VB.Net y con base de datos SQL.

Muchas gracias de antemano.

Saludos
Ana
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cargar MsFlexGrid

Publicado por lester (2 intervenciones) el 25/10/2007 15:44:12
bueno el msflex se carga atraves de un for te explico con un ejemplito
el flex se llama miLista
pasa q en este ejemplo consulto un tabla de cultivos y los agrego como encabezado de mi MSFLEX los tipos de cultivo y luego agrego el año pa tener un mejor vista

MIlista.Clear()
MIlista.Rows = 2
AbrirBase() 'funcion de me conecta a mi BD
sql = "SELECT * FROM CULTIVO"
ConsultaMyBcadERs(sql)
If MyBcDERs.EOF Then
Exit Sub
Else
MIlista.Cols = Val(MyBcDERs.RecordCount) + 2
MIlista.set_TextMatrix(0, 0, "AÑO")
MIlista.set_ColWidth(0, 1000)
MIlista.set_TextMatrix(0, 1, "MES")
MIlista.set_ColWidth(1, 1000)
For i = 2 To 12
If Not MyBcDERs.EOF Then
MIlista.set_TextMatrix(0, i, MyBcDERs.Fields(4).Value)
MyBcDERs.MoveNext()
End If
Next
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Cargar MsFlexGrid

Publicado por Llaverin (22 intervenciones) el 26/10/2007 12:47:49
Muchas gracias Lester, lo he modificado para poderlo utilizar para mi aplicación y me da un error en el MsFlexgrid, te pongo el codigo:

AbrirADO() 'Abrimos la base de datos
rst.Open("SELECT Pedido.CodigoPedido, Cliente.Nombre " & _
"FROM Cliente RIGHT JOIN Pedido ON Cliente.CodigoCliente = Pedido.CodigoCliente " & _
"WHERE (((Pedido.Semaforo)='" & vBloqueo & "'))" & _
" Order By Pedido.CodigoPedido;", cnn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
If rst.EOF Then
Exit Sub
Else
Do Until rst.EOF
mfgDocumentos.set_TextMatrix(mfgDocumentos.Rows - 1, vColumna1, rst("CodigoPedido").Value) "AQUI me ERROR en el mfgDocumentos.Rows - 1"
mfgDocumentos.set_TextMatrix(mfgDocumentos.Rows - 1, vColumna2, rst("CodigoPedido").Value)
mfgDocumentos.set_TextMatrix(mfgDocumentos.Rows - 1, vColumna3, rst("Nombre").Value)
rst.MoveNext()
Loop

End If

CerrarADO() 'Cerramos la base de datos

El MsFlexgrid es de la version VB 6.0 (SP6). No se si tengo que añadir otro o que hacer.

Si sabes algo dimelo, aunque sigo buscando y no encuentro mucha informacion.

Muchas gracias

Saludos
Ana
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar