Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

ADO Recordset Timeout Error

Posted on 2006-06-21
10
Medium Priority
?
1,578 Views
Last Modified: 2013-11-23
Dear Experts,
I am working with an ADO recordset in a VBScript and am encountering the following error:

Code: 80004005
Error: [Microsoft][ODBC SQL Server Driver] Timeout Expired
Source: Microsoft OLEDB Provider for ODBC Drivers

The error is thrown when I call MoveNext within a Do While loop:

Do While Not rst.EOF

  'code block

  rst.MoveNext       'point at which error occurs
Loop

It seems to only occur when it is on the last record and should be moving to EOF.  I am not explicitly setting any connection or command timeout.  Recordset properties are as follows:

rst.CursorType = 3            'adOpenStatic
rst.CursorLocation = 3       'adUseClient
rst.LockType = 1               'adLockReadOnly

What is baffling to me is that I don't get timeout errors at any other point, but only when it's at the last record.  Any ideas as to why it only happens then?  I don't think I've ever encountered this before.  Thanks in advance for suggestions.

-Chris
0
Comment
Question by:uncle_ho
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 5
  • 5
10 Comments
 
LVL 18

Expert Comment

by:Sethi
ID: 16956611
Try while loop:

While rst.EOF=False

  'code block

  rst.MoveNext       'point at which error occurs
Wend
0
 
LVL 1

Author Comment

by:uncle_ho
ID: 16962694
Sorry Sethi, but I still haven't had a chance to test this out.  I'll let you know how it works out once I can get around to it.  Thanks for the help.
0
 
LVL 18

Expert Comment

by:Sethi
ID: 16965048
Sure.
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
LVL 1

Author Comment

by:uncle_ho
ID: 16994116
Tried the while loop, but ran into same errors.  As a workaround, I am now retrieving the record count after opening the recordset, then using a For loop.  Before MoveNext is called, I compare the counter to the total record count and if it is already on the last record and would be going to EOF, I never call movenext.  Seems to be sufficient.  I may also try a disconnected recordset, if I have a chance.

Thanks.
0
 
LVL 18

Expert Comment

by:Sethi
ID: 16994538
But I am surprised why you are getting this problem.
0
 
LVL 1

Author Comment

by:uncle_ho
ID: 16994760
Me too.  The error is somewhat sporadic, but seems more frequent with larger recordsets.
0
 
LVL 1

Author Comment

by:uncle_ho
ID: 17004755
UPDATE:  calling RecordCount has also been timing out, as well as a MoveLast call, so my work-around didn't prove to be very effective.  I ran a SQL Server trace and saw that there were a ton of sp_cursorfetch calls generated by the recordset, even though I'm specifying client-side cursors in the connection object and the recordset object.  I know I'm getting into more of a database area than programming, but any idea why it appears to be using server-side cursors?
0
 
LVL 18

Accepted Solution

by:
Sethi earned 1500 total points
ID: 17006203
Not sure. As I see you are specifying ClientSide cursor in your code.
0
 
LVL 1

Author Comment

by:uncle_ho
ID: 17009510
Thanks for your time.  I think I have some DB investigation to do.
0
 
LVL 18

Expert Comment

by:Sethi
ID: 17009606
Do tell me when you come to some conclusion. Thanks.
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…
Suggested Courses

609 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question