troubleshooting Question

ADODB recordset FetchComplete event never fires

Avatar of Natchiket
NatchiketFlag for United Kingdom of Great Britain and Northern Ireland asked on
Visual Basic Classic
7 Comments1 Solution1278 ViewsLast Modified:
Hi, I'm new to this, so I hope someone can help.

I'm trying to write an analysis package which takes some hefty SQL server (version 7) views and then uses the data to generate graphs etc.
The problem is that I'm trying to use an asyncronous recorcordset and then have the fetchcomplete event fire once the recordset is loaded.  This is so I can gave a nice little spinning globe while SQL server does it's stuff.

I've tested the view on SQL Query Analyser and it takes about 15 seconds to load, however in my application the fetchcomplete event never seems to fire.

I'm using Windows 2000, MDAC 2.7, VB 6 with Sp 6 loaded

Here's some of the code ... (it's running in form hence a class module)

Declarations...
Option Explicit
Dim mblnTimer As Boolean
Dim mtrv As TreeView
Dim mnd As Node
Dim mintSS As Integer
Dim WithEvents mrst As ADODB.Recordset
Dim mblnGotData As Boolean

..code that starts the recordset...

strSQL = "SELECT * FROM " & strView
cnn.CommandTimeout = 200
Set mrst = New ADODB.Recordset
With mrst
    .CursorLocation = adUseClient
    .Properties("Initial Fetch Size") = 0
    .Open Source:=strSQL, ActiveConnection:=cnn, Options:=adAsyncExecute
End With

.. code that services the fetchcomplete...

Private Sub mrst_FetchComplete(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal precordset As ADODB.Recordset)
ClearFetch
If adStatus <> adStatusOK Then
    MsgBox "Record retrieval Failed"
Else
    MsgBox "Got the data"
End If
   
   
End Sub

Any ideas anyone ?

Thanks in advance


Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 7 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 7 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros