CORRECÇÃO: MSHFLexGrid não exibe mais de 2048 linhas

Voltar para o início

Etapas para reproduzir o problema

Voltar para o início

Tabela de teste

1. Criar uma tabela simples com os seguintes campos:

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

2. Inserir sobre 3000 10000 linhas da tabela. Para simplificar, você pode criar um loop e inserir o mesmo registro em um contador de 3000 para 10000.
3. Salvar sua tabela como "Test".
   
   Observação: Você pode escolher qualquer outro back-end para executar o teste.

Voltar para o início

Cliente do Visual Basic

1. Inicie um novo projeto Standard EXE no Visual Basic. O Form1 é criado por padrão.
2. Selecione "Componentes" no menu Project e escolha os seguintes componentes:
   • Controle de dados do Microsoft ADO 6.0 (OLE DB).
   • Controle hierárquico FlexGrid 6.0 da Microsoft.
   
   
3. Selecione referências no menu Project e clique em "Microsoft ActiveX Data Objects 2.0 Library."
4. Coloque os seguintes objetos no formulário:

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

5. Vincule ADODC através do DSN ou por seu provedor OLE DB nativo (se existir). Na propriedade OrigemDoRegistro, escreva: selecione * de teste.
6. Coloque o código a seguir na seção Declaração geral do 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. Pressione a tecla F5 para executar o código e observe que somente 2048 registros são exibidos na MSHFlexGrid.
   
   Observação: Conectar à fonte de dados usando o provedor OLE DB para ODBC ou usando o provedor OLE DB nativo não tem efeito no comportamento FlexGrid hierárquica.

Voltar para o início