REVISIÓN: MSHFLexGrid no muestra filas de más de 2048

Volver al principio

Pasos para reproducir este comportamiento

Volver al principio

Tabla de prueba

1. Crear una tabla simple con los siguientes campos:

        Name         Data Type (SQL Server)       Data Type(Access) 
     ------------------------------------------------------------------
   
        PartID          Integer                      Integer
        PartName        VarChar (10)                 Text (10)
   					

2. Insertar discusión sobre las filas de 3000 10000 de la tabla. Por motivos de simplicidad, puede crear un bucle e insertar el mismo registro en un contador de 3000 a 10000.
3. Guarde la tabla como "Prueba".
   
   Nota: Puede elegir cualquier otro back-end para realizar la prueba.

Volver al principio

Cliente de Visual Basic

1. Inicie un nuevo proyecto EXE estándar en Visual Basic. Se creará Form1 de manera predeterminada.
2. Seleccione "Componentes" en el menú proyecto y elija los componentes siguientes:
   • Microsoft ADO Data Control 6.0 (OLE DB).
   • Control Microsoft Hierarchical FlexGrid 6.0.
   
   
3. Seleccione referencias en el menú proyecto y haga clic en "Microsoft ActiveX Data Objects 2.0 Library."
4. Coloque los siguientes objetos en el formulario:

       Control             Name                  Caption
      -------------------------------------------------------------------
   
      CommandButton       Command1           Using ADO Recordset
      CommandButton       Command2           Using ADODC
      CommandButton       Command3           Free MSHFlexGrid
      MSHFlexGrid         MSHFlexGrid1       Testing MSHFlexGrid Display
      ADODC               Adodc1
   					

5. Enlazar ADODC mediante el DSN o mediante el proveedor OLEDB nativo (si existe). En la propiedad RecordSource, escriba: seleccionar * de prueba.
6. Coloque el código siguiente en la sección General Declaration de Form1:

          Option Explicit
   
          Private Sub Command1_Click()
   
             Dim cn As New ADODB.Connection
             Dim rs As New ADODB.Recordset
   
             cn.Open "Testing"               '<-- Your DSN
   
             rs.Open "select * from Test", cn, adOpenStatic, adLockOptimistic
             rs.MoveLast
   
             ' Check the number records in your ADO recordset
             ' The RecordCount property of the ADO recordset reflects the
             ' actual number of records
   
             Debug.Print "ADO recordset record-count: " & vbTab & _
                 rs.RecordCount
   
             Form1.Caption = "Loading grid... please wait..."
   
             Set MSHFlexGrid1.Recordset = rs
   
             ' Check the number of rows that the Hierarchical FlexGrid
             ' contains The RecordCount property of the Hierarchical
             ' FlexGrid also reflects the actual number of records
   
             Debug.Print "MSHFlexGrid1 Recordset record-count: " & vbTab &  _
                MSHFlexGrid1.Recordset.RecordCount
   
             Form1.Caption = "MSHFlexGrid Display Sample"
   
             ' Free resources
             rs.Close
             Set rs = Nothing
             cn.Close
             Set cn = Nothing
   
          End Sub
   
          Private Sub Command2_Click()
   
             Form1.Caption = "Loading data... please wait..."
   
             ' Set the Grid's source to be ADODC
             Set MSHFlexGrid1.DataSource = Adodc1
   
             ' Check the number of records in ADODC recordset
             Debug.Print "ADO data control record-count: " & vbTab &  _
                Adodc1.Recordset.RecordCount
             Form1.Caption = "MSHFlexGrid Display Sample"
          End Sub
   
          Private Sub Command3_Click()
             MSHFlexGrid1.Clear
             Form1.Caption = "Grid is clear now..."
          End Sub
   					

7. Presione la tecla F5 para ejecutar el código y tenga en cuenta que 2048 sólo registros se muestran en la MSHFlexGrid.
   
   Nota: Conectar con el origen de datos mediante el proveedor OLEDB para ODBC o mediante el proveedor OLEDB nativo no tiene ningún efecto en el comportamiento del control Hierarchical FlexGrid.

Volver al principio