Search Tools Links Login

Run a Stored Procedure with ADO

Posted: 2019-10-04
By: MikeG
Viewed: 207

Filed Under:

VB6 Databases, VB6 Code Cache

No attachments for this post

Sometimes you have stored proc that takes 2,3 or 5 min to execute. Application that lock up frequently frustrates users and waste their time and resources.

Solution use ADO ASYNCHROUS OPTION to get back CPU resorces.

Public Sub ExecuteAsync()
    Dim cmd As ADODB.Command
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = "DSN=test"
    cmd.CommandTimeout = 180
    cmd.CommandText = "sp_name"
    cmd.CommandType = adCmdStoredProc
    cmd.EXECUTE , , adAsyncExecute '<--- start ASYNCHROUS
    'You can also make a dumy progress bar to show proggres
    Do While (cmd.State And adStateExecuting) = adStateExecuting
    'Methods Options
    'EXECUTE adAsyncExecute, adAsyncFetch
    'OPEN adAsyncConnect
    'You can do same this with RDO
    'Do While rs.StillExecuting
    '    DoEvents
End Sub

Special Instructions

This code originally appeared on, and has been republished here with the permission of Andrea Tincani.

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.