Run a Stored Procedure with ADO
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
'EXECUTE adAsyncExecute, adAsyncFetch
'You can do same this with RDO
'Do While rs.StillExecuting
This code originally appeared on AndreaVB.com, 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.