DOCUMENT:Q176258 05-NOV-1997 [vbwin] TITLE :BUG: Refresh Method of Data Control Resets QueryTimeout PRODUCT :Microsoft Visual Basic for Windows PROD/VER:WINDOWS:5.0 OPER/SYS:WINDOWS KEYWORDS:vb5all VBKBCtrl VBKBDB ====================================================================== --------------------------------------------------------------------- The information in this article applies to: - Microsoft Visual Basic Control Creation, Learning, Professional, and Enterprise Editions for Windows, version 5.0 --------------------------------------------------------------------- SYMPTOMS ======== The QueryTimeout property of the Database object determines the number of seconds to wait before a timeout occurs when a query is executed. If the DefaultType property of the Data control is set to dbUseODBC, then the QueryTimeout property of the Database object is reset to the default value of 30 when the Refresh method of the Data control is performed. RESOLUTION ========== There are several ways to work around this problem, two of which are listed here: - Modify the DefaultType property of the Data control to dbUseJet. - Use the Remote Data Control (MSRDC) rather than the Data control. However, if it is necessary to use the Data control with an ODBC data source, the following workaround can be used: Private ws As Workspace Private db As Database Private Sub Command1_Click() Dim con As String Dim sql As String con = "ODBC;DSN=your_dsn;UID=sa;PWD=;DATABASE=pubs" Set ws = DBEngine.CreateWorkspace("", "", "", dbUseODBC) Set db = ws.OpenDatabase("", Connect:=con) db.QueryTimeout = 60 sql = "SELECT * FROM Authors" Set Data1.Recordset = db.OpenRecordset(sql, dbOpenDynaset) MsgBox db.QueryTimeout End Sub STATUS ====== Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article. We are researching this bug and will post new information here in the Microsoft Knowledge Base as it becomes available. MORE INFORMATION ================ Steps to Reproduce Behavior --------------------------- 1. Start Visual Basic and create a new Standard EXE. Form1 is created by default. 2. Add a Data control and a CommandButton to Form1. 3. Add the following code to the General Declarations section of Form1: Private Sub Command1_Click() Data1.Database.QueryTimeout = 60 Data1.RecordSource = "SELECT * FROM Authors" Data1.Refresh MsgBox Data1.Database.QueryTimeout End Sub Private Sub Form_Load() Data1.DefaultType = dbUseODBC Data1.Connect = "ODBC;DSN=your_dsn;UID=sa;PWD=;DATABASE=pubs" Data1.Refresh End Sub 4. Run the project. 5. Click on Command1 and note that the QueryTimeout is the default value of 30, rather than 60 that it was assigned to. ====================================================================== Keywords : vb5all VBKBCtrl VBKBDB Version : WINDOWS:5.0 Platform : WINDOWS Issue type : kbbug ============================================================================= 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. Copyright Microsoft Corporation 1997.