Advertisement

06.03.2008 at 02:12PM PDT, ID: 23454734
[x]
Attachment Details

VB6: Cannot determine why I would end up in Class_Terminate()

Asked by neverrealm in Visual Basic Programming, VB Database Programming

Tags: Visual Basic 6

I have the loop below.  The returned record set is roughly 21000 rows.  If I insert a breakpoint at the if condition and hit F5 to watch every loop iteration, it got through roughly the first 11000 before I gave up (since it took about half an hour that I didn't have).  

If I insert a breakpoint at the first line in the if condition and the line immediately following the loop, and let it run, I end up in Class_Terminate() after less than a minute.  The class is far from completed at the end of the loop, as it has about 15 more similar loops, just with different record sets, some bigger, some smaller.

I don't see how I'm ending up in Class_Terminate().  Is there any way that I could end up there based on the description and the code?  Is there anyway to break up a recordset (pulled from a stored procedure that can't be changed), so that maybe I can do a couple hundred at a time?Start Free Trial 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Do While Not rsFPIndividual.EOF
  strErrDetails = " DETAILS: executing cmdDeleteIndividualbyFPID"
  
   apwProxy.FP_CmdDeleteIndividualByFPID m_adoProv, rsFPIndividual!lngIndivCnt
  
  strErrDetails = " DETAILS: Inserting individual record " & CStr(rsFPIndividual!lngIndivCnt) & " into FLDPOINT"
  apwProxy.FP_tblIndividualC_Insert m_adoProv, rsFPIndividual
  
  If rsFPIndividual!lngAgyAssc > 0 Then
    strErrDetails = " DETAILS: executing ProcessAgyToLocalFP: IndividualAgyNr= " & rsFPIndividual!lngAgyAssc
    If Not ProcessAgyToLocalFP(rsFPIndividual!lngAgyAssc) Then
      cErrorOccurred = True
      cErrorMessage = "GetAllForFPTrans Error Calling ProcessAgyToLocalFP" & vbCrLf & cErrorMessage
      GoTo ErrorTrap
    End If
  End If
  
  rsFPIndividual.MoveNext
Loop
[+][-]06.04.2008 at 05:46AM PDT, ID: 21709414

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]06.04.2008 at 05:54AM PDT, ID: 21709491

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]06.04.2008 at 06:00AM PDT, ID: 21709544

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]06.04.2008 at 06:32AM PDT, ID: 21709875

Assisted solutions are selected by the member who asked the question as a comment that contributed to their question's solution.

Start your 7-day free trial to view this Assisted Solution or ask the Experts your question.

 
[+][-]06.04.2008 at 08:21AM PDT, ID: 21711008

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]06.04.2008 at 10:57AM PDT, ID: 21712396

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]06.04.2008 at 11:00AM PDT, ID: 21712424

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]06.04.2008 at 11:10AM PDT, ID: 21712490

View this solution now by starting your 7-day free trial. Setting up your free trial is quick, easy, and secure. We will return you to this solution, unlocked, when you're done.

 

About this solution

Zones: Visual Basic Programming, VB Database Programming
Tags: Visual Basic 6
Sign Up Now!
Solution Provided By: angelIII
Participating Experts: 2
Solution Grade: B
 
 
[+][-]06.04.2008 at 01:16PM PDT, ID: 21713735

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]06.10.2008 at 06:14AM PDT, ID: 21750873

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
 
Loading Advertisement...
20080716-EE-VQP-32 / EE_QW_2_20070628