PRB: DBGRID Can Cause VB5 To Crash When Scrolling Horizontally

• Microsoft Visual Basic Enterprise Edition for Windows, version 5.0

SYMPTOMS

Using the Remote Data Control and DBGrid can cause Visual Basic 5.0 to crash when scrolling horizontally in the DBGrid (dbgrid32.ocx).

RESOLUTION

Either size the grid so there is no need to scroll horizontally or implement the FlexGrid control.

STATUS

Microsoft is researching this problem and will post new information here in the Microsoft Knowledge Base as it becomes available.

MORE INFORMATION

This problem only occurs on Windows 95.

Steps to Reproduce Behavior

1. Run the following SQL Server script file on SQL Server:

         if exists (select * from sysobjects
           where id = object_id('dbo.test') and sysstat & 0xf = 3)
          drop table dbo.test
         GO
   
         CREATE TABLE dbo.test
         ( id int NOT NULL , a char (255) NULL , b char (255) NULL ,
         c char (255) NULL , d char (255) NULL )
         GO
   
   

2. Create a new project in Visual Basic 5.0. Form1 is created by default.

3. Add a Remote Data Control, a DBGrid, and a CommandButton to Form1.

4. Set the appropriate properties for the Remote Data Control to connect with the Server.

5. Set the following properties for the DBGrid control accordingly:

         DataSource = MSRDC1
   

6. Add the following code to the CommandButton's Click method:

         Dim con As rdoConnection
         Dim rs As rdoResultset
         Set con = rdoEngine(0).OpenConnection("", _
            rdDriverNoPrompt, _
            false, _
            "DRIVER={SQL Server};" _
            & "SERVER=<server_name>;" _
            & "UID=<userID>;" _
            & "PWD=<password>;" _
            & "DATABASE=<databasename>")"
         For i = 1 To 30
          Set rs = con.OpenResultset("INSERT INTO test (id,a,b,c)" _
           & " VALUES (" & i & " ,'" & CStr(i) " _
           & "','2222222222222222222222222','3333333333333333333333333')")"
          Debug.Print i
         Next i
   
   

7. Save the Project and run it. Under Components on the Project menu, check the Microsoft Remote Data Control.

8. When the form is loaded, press the CommandButton to populate the table, MSRDC, and grid.

9. When the grid is populated, scroll down using the mouse and the DOWN ARROW button on the grid, and then try scrolling to the right.