Prikazi cijelu temu 26.08.2016 15:40
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Ado command i progrsbar
Imam neki jako velike procedure koi se izvrsavaju na serveru mozda prakticnije bi bilo meriti vremena izvrsavajne procedura odosto prikazivajne na progresbaru.
mozda imas neka druga ideja .
e sad nesao sam neki kod na netu oko ova problematika ali mi nije jasan
Evo pogledaj pa mozda moglo bi se i nesto obraditi.
PreuzmiIzvorni kôd (Visual Basic):
  1. 'Sometimes you have stored proc that takes 2,3 or 5 min to execute.
  2. 'Application that lock up frequently frustrates users and waste their time and resources.
  3. 'Solution use ADO ASYNCHROUS OPTION to get back CPU resorces.
  4.  
  5. Public Sub ExecuteAsync()
  6.     Dim cmd As ADODB.Command
  7.    
  8.     Set cmd = New ADODB.Command
  9.     cmd.ActiveConnection = "DSN=test"
  10.     cmd.CommandTimeout = 180
  11.     cmd.CommandText = "sp_name"
  12.     cmd.CommandType = adCmdStoredProc
  13.     cmd.EXECUTE , , adAsyncExecute '<--- start ASYNCHROUS
  14.    'You can also make a dumy progress bar  to show proggres
  15.    
  16.     Do While (cmd.State And adStateExecuting) = adStateExecuting
  17.        DoEvents
  18.     Loop
  19.    
  20.     'Methods Options
  21.    'EXECUTE adAsyncExecute, adAsyncFetch
  22.    'OPEN adAsyncConnect
  23.    
  24.     'You can do same this with RDO
  25.    
  26.     'Do While rs.StillExecuting
  27.    '    DoEvents
  28.    'Loop
  29. End Sub