Login | ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/indexer_suite/trunk/AdoConnHelper.pas
(Generate patch)

Comparing trunk/AdoConnHelper.pas (file contents):
Revision 7 by daniel-marschall, Sun Jun 13 10:13:01 2021 UTC vs.
Revision 8 by daniel-marschall, Sun Jun 13 22:42:19 2021 UTC

# Line 3 | Line 3 | unit AdoConnHelper;
3   (*
4   * Class helper for TAdoConnection
5   * by Daniel Marschall, ViaThinkSoft <www.viathinksoft.com>
6 < * Revision: 28 Aug 2018
6 > * Revision: 14 June 2021
7   *)
8  
9   interface
# Line 91 | Line 91 | begin
91    result.CommandType := cmdText;
92    result.CommandText := SQL;
93    result.DisableControls;
94 <  if ATimeout <> -1 then result.CommandTimeout := ATimeout;
94 >  if ATimeout <> -1 then
95 >    result.CommandTimeout := ATimeout
96 >  else
97 >    result.CommandTimeout := self.CommandTimeout;
98    result.Active := true;
99   end;
100  
# Line 176 | Line 179 | begin
179      cmd.ParamCheck := false;
180      cmd.CommandType := cmdText;
181      cmd.CommandText := SQL;
182 <    if ATimeOut <> -1 then cmd.CommandTimeout := ATimeout;
182 >    if ATimeOut <> -1 then
183 >      cmd.CommandTimeout := ATimeout
184 >    else
185 >      cmd.CommandTimeout := self.CommandTimeout;
186      cmd.Execute;
187    finally
188      cmd.Free;
# Line 189 | Line 195 | var
195   begin
196    for s in List do
197    begin
198 <    ExecSQL(s);
198 >    ExecSQL(s, ATimeout);
199    end;
200   end;
201  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines