Llenar FLEXGRID
¿Alguien me puede decir como lleno un flexgrid? Ya tengo en un recordet (rs) los resultados de mi consulta a mi base, ¿pero no se como llenar el flex? ...
¿Otra cosita que es mejor el flexgrid o el datagrid?
¿Otra cosita que es mejor el flexgrid o el datagrid?
Respuesta de bezael
1
Esto es bastante fácil.
Primero para establecer una consulta sql:
'*************************************
Dim DB As New Connection
Dim RS As New Recordset
Dim Direccion as String
Dim Sql as String
Direccion = App.path & "\MiBd.mdb"
SQL = "SELECT * FROM [Clientes]"
DB.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & Direccion & ";"
RS.Open SQL, DB, adOpenKeyset, adLockOptimistic
'*************************************
'Ahora para cargar en un MSFlexGrid:
'*************************************
MSFlexGrid1.Cols = RS.Fields.Count + 1
MSFlexGrid1.Rows = RS.RecordCount + 1
MSFlexGrid1.Row = 0
A = 0
While Not A = RS.Fields.Count
MSFlexGrid1.Col = A + 1
MSFlexGrid1.Text = RS.Fields(A).Name
A = A + 1
Wend
'Colocamos la cantidad de columnas y filas
Counta = 0
While Not RS.EOF
MSFlexGrid1.Row = Counta + 1
B = 0
While Not B = RS.Fields.Count
MSFlexGrid1.Col = B + 1
If Not IsNull(RS.Fields(B)) Then
MSFlexGrid1.Text = RS.Fields(B)
End If
B = B + 1
Wend
RS.MoveNext
Counta = Counta + 1
Wend
'*************************************
'Y Para el DataGrid se hace bastante facil
'*************************************
Set DataGrid.Datasource = RS
Primero para establecer una consulta sql:
'*************************************
Dim DB As New Connection
Dim RS As New Recordset
Dim Direccion as String
Dim Sql as String
Direccion = App.path & "\MiBd.mdb"
SQL = "SELECT * FROM [Clientes]"
DB.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & Direccion & ";"
RS.Open SQL, DB, adOpenKeyset, adLockOptimistic
'*************************************
'Ahora para cargar en un MSFlexGrid:
'*************************************
MSFlexGrid1.Cols = RS.Fields.Count + 1
MSFlexGrid1.Rows = RS.RecordCount + 1
MSFlexGrid1.Row = 0
A = 0
While Not A = RS.Fields.Count
MSFlexGrid1.Col = A + 1
MSFlexGrid1.Text = RS.Fields(A).Name
A = A + 1
Wend
'Colocamos la cantidad de columnas y filas
Counta = 0
While Not RS.EOF
MSFlexGrid1.Row = Counta + 1
B = 0
While Not B = RS.Fields.Count
MSFlexGrid1.Col = B + 1
If Not IsNull(RS.Fields(B)) Then
MSFlexGrid1.Text = RS.Fields(B)
End If
B = B + 1
Wend
RS.MoveNext
Counta = Counta + 1
Wend
'*************************************
'Y Para el DataGrid se hace bastante facil
'*************************************
Set DataGrid.Datasource = RS
Okis si ya veo la gran diferencia, ¿pero me podrías decir cual es al diferencia/ventaja/el porque entonces utilizar un flex en vez de un datagrid? ¿O en que casos?
El DataGrid como es reciente lógicamente es lo que te aconsejaría, es prácticamente los mismo pero Mejorado.
