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
- Start the 32-bit version of Visual Basic 4.0, or if it is already
running, click New Project on the File menu.
- Add a command button, data control, and a DBGrid control on the Form1
form.
- 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.
- 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
- Press the F5 key or click Start on the Run menu to run the program.
- Click on any row on the DBGrid control except the first row.
- Click on the Command1 button to swap the recordsets. An application
error occurs and Visual Basic ends.
|