ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/runtime/IBSQL.pas

Comparing ibx/trunk/runtime/IBSQL.pas (file contents):
Revision 49 by tony, Thu Feb 2 16:20:12 2017 UTC vs.
Revision 139 by tony, Wed Jan 24 16:16:29 2018 UTC

#	Line 694 | Line 694 | begin
694		end;
695
696		procedure TIBSQL.ExecQuery;
697	–	var
698	–	fetch_res: ISC_STATUS;
697		{$IFDEF IBXQUERYSTATS}
698	+	var
699		stats: TPerfCounters;
700		{$ENDIF}
701		{$IFDEF IBXQUERYTIME}
702	+	var
703		tmsecs: comp;
704		{$ENDIF}
705		begin
#	Line 879 | Line 879 | end;
879
880		procedure TIBSQL.SetDatabase(Value: TIBDatabase);
881		begin
882	+	if Value = FBase.Database then Exit;
883		FBase.Database := Value;
884	+	FreeHandle;
885		end;
886
887		procedure TIBSQL.Prepare;
#	Line 936 | Line 938 | end;
938
939		procedure TIBSQL.SetTransaction(Value: TIBTransaction);
940		begin
941	+	if FBase.Transaction = Value then Exit;
942	+	FreeHandle;
943		FBase.Transaction := Value;
944		end;
945

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines