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

Voltar ao topo

Passos para reproduzir o comportamento

Voltar ao topo

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 debate sobre linhas de 3000 10000 na sua tabela. Para uma questão de simplicidade, pode criar um ciclo e inserir o mesmo registo num contador de 3000 para 10000.
3. Guardar a tabela como "Teste".
   
   NOTA: Pode escolher qualquer outro back-end para efectuar o teste.

Voltar ao topo

Cliente de Visual Basic

1. Inicie um novo projecto EXE padrão no Visual Basic. É criado o Form1 por predefinição.
2. Seleccione "Components" no menu projecto e escolha os seguintes componentes:
   • Controlo de dados Microsoft ADO 6.0 (OLE DB).
   • Controlo de FlexGrid hierárquica 6.0 da Microsoft.
   
   
3. Seleccione References no menu projecto e clique em "Microsoft ActiveX Data Objects 2.0 Library."
4. Coloque os seguintes objectos 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. Ligar ADODC através do DSN ou através do fornecedor de OLEDB nativo (se existir). Na propriedade OrigemDosRegistos, escrever: seleccione * de teste.
6. Coloque o código seguinte na secção Geral declaração 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. Prima a tecla F5 para executar o código e note que apenas 2048 registos são apresentados no MSHFlexGrid.
   
   NOTA: Ligar à origem de dados utilizando o fornecedor de OLEDB para ODBC ou utilizando o fornecedor de OLEDB nativo não tem efeito no comportamento FlexGrid hierárquica.

Voltar ao topo