Solved

I need to put my VB hog on a diet!  Resource hog!

Posted on 2002-07-24
7
170 Views
Last Modified: 2010-05-02
I have an app I wrote which is actually pretty intensive.  It does alot fo data base access, calculation using about 17 different datasources.  During execution of the application, the system become totally bogged down with this process!

I have used the sleep API in my attempts to solve similar situations.  Unfortunately, I had no luck with that.  Does anyone have any ideas how to lean up this pig so i can run other processes while it is going?

Thanks In Advance,

Michael
0
Comment
Question by:mjs082969
[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
7 Comments
 
LVL 28

Accepted Solution

by:
vinnyd79 earned 100 total points
ID: 7174562
Have you tried adding DoEvents?
0
 
LVL 28

Expert Comment

by:vinnyd79
ID: 7174570
0
 
LVL 26

Expert Comment

by:EDDYKT
ID: 7175180
Try this

set priority to THREAD_PRIORITY_LOWEST

ie.

Const THREAD_BASE_PRIORITY_IDLE = -15
Const THREAD_BASE_PRIORITY_LOWRT = 15
Const THREAD_BASE_PRIORITY_MIN = -2
Const THREAD_BASE_PRIORITY_MAX = 2
Const THREAD_PRIORITY_LOWEST = THREAD_BASE_PRIORITY_MIN
Const THREAD_PRIORITY_HIGHEST = THREAD_BASE_PRIORITY_MAX
Const THREAD_PRIORITY_BELOW_NORMAL = (THREAD_PRIORITY_LOWEST + 1)
Const THREAD_PRIORITY_ABOVE_NORMAL = (THREAD_PRIORITY_HIGHEST - 1)
Const THREAD_PRIORITY_IDLE = THREAD_BASE_PRIORITY_IDLE
Const THREAD_PRIORITY_NORMAL = 0
Const THREAD_PRIORITY_TIME_CRITICAL = THREAD_BASE_PRIORITY_LOWRT
Const HIGH_PRIORITY_CLASS = &H80
Const IDLE_PRIORITY_CLASS = &H40
Const NORMAL_PRIORITY_CLASS = &H20
Const REALTIME_PRIORITY_CLASS = &H100
Private Declare Function SetThreadPriority Lib "kernel32" (ByVal hThread As Long, ByVal nPriority As Long) As Long
Private Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long
Private Declare Function GetThreadPriority Lib "kernel32" (ByVal hThread As Long) As Long
Private Declare Function GetPriorityClass Lib "kernel32" (ByVal hProcess As Long) As Long
Private Declare Function GetCurrentThread Lib "kernel32" () As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim hThread As Long, hProcess As Long
    'retrieve the current thread and process
    hThread = GetCurrentThread
    hProcess = GetCurrentProcess
    'set the new thread priority to "lowest"
    SetThreadPriority hThread, THREAD_PRIORITY_LOWEST
    'set the new priority class to "idle"
    SetPriorityClass hProcess, IDLE_PRIORITY_CLASS
    'print some results
    Me.AutoRedraw = True
    Me.Print "Current Thread Priority:" + Str$(GetThreadPriority(hThread))
    Me.Print "Current Priority Class:" + Str$(GetPriorityClass(hProcess))
End Sub
0
Online Training Solution

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.

 
LVL 1

Expert Comment

by:jdc0724
ID: 7175338
When you say the system got bogged down, do you mean your VB application??  If so, vinnid79's suggestion of using do events will free up your processor and allow you to run other tasks.  Or when you say "system" are you reffering to a mainframe you are connecting to from VB?  I know that many db2 applications if not coded carefully in VB can really bog down a Mainframe using DB2 because all the SQL statements need to be bound and prepared everytime.  Depending on what databases you are going and your answer to my question above, there are a number of things you can do to LEAN your application.

Cheers,
JDC0724
0
 
LVL 2

Expert Comment

by:mmcmillen
ID: 7175716
I would look into closing each connection to the datasource after you are done with it.

example

set rs = new recordset
rs.open Strsql,dbconnection,options,options

do until rs.eof
  code...

loop

if rs.state = adstateopen then
  rs.close
  set rs = nothing
endif


making that many
0
 
LVL 2

Expert Comment

by:mmcmillen
ID: 7176174
Making that many connections and not closing them will create overhead.  Is it slow from the beginning?
Or as it runs?
0
 

Author Comment

by:mjs082969
ID: 7188752
Thank you people!  
0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
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
Course of the Month9 days, 3 hours left to enroll

617 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