BUG: Application Error Occurs When Rebinding a Bound DBGrid

Last reviewed: May 16, 1996
Article ID: Q140898
The information in this article applies to:
  • Professional and Enterprise Editions of Microsoft Visual Basic 32-bit only, for Windows, version 4.0
  • Microsoft Windows NT, version 3.51

SYMPTOMS

An application error occurs when a Visual Basic 32-bit program with a DBGrid control bound to a Data control rebinds the Data control to a recordset containing at least 26 fields and 11 records.

STATUS

Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article. Microsoft is researching this problem and will post new information here in the Microsoft Knowledge Base as it becomes available.

MORE INFORMATION

The code example provides steps to reproduce this behavior. In this example, create a form containing a command button, data control, and a DBGrid control. Set the DataSource property of the DBGrid control to the data control. After copying the code to the Form1 code window, run the program and click any row in the DBGrid control except the first row. Click the Command1 button to swap the recordsets. An application error occurs.

Steps to Reproduce Problem

  1. Start the 32-bit version of Visual Basic 4.0, or if it is already running, click New Project on the File menu.

  2. Add a command button, data control, and a DBGrid control on the Form1 form.

  3. Use the following steps to set the DataSource property of the DBGrid control to Data1.

    a. Click the DBGrid control on the Form1 form.

    b. In the Properties Window, click the DataSource property.

    c. In the DataSource Property, click the down arrow. The Data1 option

          appears. Click this option.
    

  4. Copy the following code sample to the Form1 code window:

          Dim rs1 As Recordset
          Dim rs2 As Recordset
          Dim db As Database
          Dim td As TableDef
          Dim fl As Field
    

          Private Sub Command1_Click()
    
             Set Data1.Recordset = rs2
             Set Data1.Recordset = rs1
          End Sub
    
          Private Sub Form_Load()
          Dim x As Integer, y As Integer
    
          'If the database does not exist, create the database
          If Dir("C:\TEST.MDB") = "" Then
             Set db = CreateDatabase("C:\test.mdb", dbLangGeneral)
    
             'Create the table in the database
             Set td = db.CreateTableDef("TABLE1")
    
             'Create the fields in the database
             For x = 1 To 26
                Set fl = td.CreateField("Field " & CStr(x), dbInteger)
                td.Fields.Append fl
             Next x
             db.TableDefs.Append td
    
             'Add records to the database through a recordset
             Set rs1 = db.OpenRecordset("TABLE1", dbOpenTable)
             For y = 1 To 11      'For each row
                rs1.AddNew        'Add a new record
    
                For x = 1 To 26   'For each cell in the record
                   rs1("Field " & CStr(x)) = x   'Add a number
                Next x
    
                rs1.Update
             Next y
    
             'Close both the recordset and database
             rs1.Close
             db.Close
          End If
    
          'Open the database and create the recordsets
          Set db = OpenDatabase("C:\TEST.MDB")
          Set rs1 = db.OpenRecordset("Select * From TABLE1")
          Set rs2 = db.OpenRecordset("Select * From TABLE1")
          Set Data1.Recordset = rs1
    
          End Sub
    
    

  5. Press the F5 key or click Start on the Run menu to run the program.

  6. Click on any row on the DBGrid control except the first row.

  7. Click on the Command1 button to swap the recordsets. An application error occurs and Visual Basic ends.


Additional reference words: 4.00 vb4win vb432 buglist4.00
KBCategory: kbprg kbbuglist
KBSubcategory: PrgCtrlsCus


THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Last reviewed: May 16, 1996
© 1998 Microsoft Corporation. All rights reserved. Terms of Use.