ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/nongui/IBSQL.pas
(Generate patch)

Comparing ibx/trunk/runtime/nongui/IBSQL.pas (file contents):
Revision 291 by tony, Fri Apr 17 10:26:08 2020 UTC vs.
Revision 345 by tony, Mon Aug 23 14:22:29 2021 UTC

# Line 188 | Line 188 | type
188      function GetFieldIndex(FieldName: String): Integer;
189      function GetPlan: String;
190      function GetRecordCount: Integer;
191 <    function GetRowsAffected: Integer;
191 >    function GetRowsAffected: Int64;
192      function GetSQLParams: ISQLParams;
193      function GetTransaction: TIBTransaction;
194      procedure SetDatabase(Value: TIBDatabase);
# Line 225 | Line 225 | type
225      property Plan: String read GetPlan;
226      property Prepared: Boolean read GetPrepared;
227      property RecordCount: Integer read GetRecordCount;
228 <    property RowsAffected: Integer read GetRowsAffected;
228 >    property RowsAffected: Int64 read GetRowsAffected;
229      property SQLStatementType: TIBSQLStatementTypes read GetSQLStatementType;
230      property UniqueRelationName: String read GetUniqueRelationName;
231      property Statement: IStatement read FStatement;
232      property MetaData: IMetaData read FMetaData;
233 +  public
234 +   {Batch Interface}
235 +   function HasBatchMode: boolean;
236 +   function IsInBatchMode: boolean;
237 +   procedure AddToBatch;
238 +   function ExecuteBatch: IBatchCompletion;
239 +   procedure CancelBatch;
240 +   function GetBatchCompletion: IBatchCompletion;
241 +   function GetBatchRowLimit: integer;
242 +   procedure SetBatchRowLimit(aLimit: integer);
243    published
244      property Database: TIBDatabase read GetDatabase write SetDatabase;
245      property CaseSensitiveParameterNames: boolean read FCaseSensitiveParameterNames
# Line 864 | Line 874 | begin
874    Result := FRecordCount;
875   end;
876  
877 < function TIBSQL.GetRowsAffected: Integer;
877 > function TIBSQL.GetRowsAffected: Int64;
878   var
879    SelectCount, InsertCount, UpdateCount, DeleteCount: integer;
880   begin
# Line 936 | Line 946 | begin
946      result := '';
947   end;
948  
949 + function TIBSQL.HasBatchMode: boolean;
950 + begin
951 +  CheckValidStatement;
952 +  Result := Statement.HasBatchMode;
953 + end;
954 +
955 + function TIBSQL.IsInBatchMode: boolean;
956 + begin
957 +  CheckValidStatement;
958 +  Result := Statement.IsInBatchMode;
959 + end;
960 +
961 + procedure TIBSQL.AddToBatch;
962 + begin
963 +  CheckValidStatement;
964 +  Statement.AddToBatch;
965 + end;
966 +
967 + function TIBSQL.ExecuteBatch: IBatchCompletion;
968 + begin
969 +  CheckValidStatement;
970 +  Result := Statement.ExecuteBatch;
971 + end;
972 +
973 + procedure TIBSQL.CancelBatch;
974 + begin
975 +  CheckValidStatement;
976 +  Statement.CancelBatch;
977 + end;
978 +
979 + function TIBSQL.GetBatchCompletion: IBatchCompletion;
980 + begin
981 +  CheckValidStatement;
982 +  Result := Statement.GetBatchCompletion;
983 + end;
984 +
985 + function TIBSQL.GetBatchRowLimit: integer;
986 + begin
987 +  CheckValidStatement;
988 +  Result := Statement.GetBatchRowLimit;
989 + end;
990 +
991 + procedure TIBSQL.SetBatchRowLimit(aLimit: integer);
992 + begin
993 +  CheckValidStatement;
994 +  Statement.SetBatchRowLimit(aLimit);
995 + end;
996 +
997   procedure TIBSQL.SetSQL(Value: TStrings);
998   begin
999    if FSQL.Text <> Value.Text then

Diff Legend

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