ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/fbintf/IB.pas
(Generate patch)

Comparing ibx/trunk/fbintf/IB.pas (file contents):
Revision 347 by tony, Mon Sep 20 22:08:20 2021 UTC vs.
Revision 352 by tony, Thu Oct 21 12:17:43 2021 UTC

# Line 614 | Line 614 | type
614    }
615    IResultSet = interface(IResults)
616      ['{0ae4979b-7857-4e8c-8918-ec6f155b51a0}']
617 <    function FetchNext: boolean;
617 >    function FetchNext: boolean; {fetch next record}
618 >    function FetchPrior: boolean; {fetch previous record}
619 >    function FetchFirst:boolean; {fetch first record}
620 >    function FetchLast: boolean; {fetch last record}
621 >    function FetchAbsolute(position: Integer): boolean; {fetch record by its absolute position in result set}
622 >    function FetchRelative(offset: Integer): boolean; {fetch record by position relative to current}
623      function GetCursorName: AnsiString;
624 +    function IsBof: boolean;
625      function IsEof: boolean;
626      procedure Close;
627    end;
628  
629    {The ISQLParam interface is used to provide access to each parameter in a
630 <   parametised SQL Statement. It subclasses IColumnMetaData and this part of
625 <   the interface may be used to access information on the expected SQL Type, etc.
626 <
627 <   It also subclasses ISQLData and this part of the interface may be used to access
628 <   current values for each parameter.
629 <
630 <   Otherwise, the interface comprises the Setter Methods and properties used to
630 >   parametised SQL Statement. The interface comprises the Setter Methods and properties used to
631     set the value of each parameter.
632  
633     Automatic conversion is provided to and from strings. That is GetAsString and
634     SetAsString are safe to use for sql types other than boolean - provided automatic
635     conversion is possible.
636 +
637 +   ISQLParam is subclassed from the IParamMetaData interface. This interface provides
638 +   access to the parameter metadata. This metadata is mutable and can change after
639 +   a parameter is set to a given value. This is acceptable as long as the parameter
640 +   metadata is type compatible with the underlying column metadata and hence the
641 +   parameter value can be converted by Firebird into a value acceptable by the
642 +   underlying column. The column metadata, which is unmutable, can be obtained
643 +   by the ISQLParam.getColMetadata interface. When a statement is prepared, the
644 +   parameter metadata is always initialised to the column metadata.
645    }
646  
647 <  ISQLParam = interface
648 <    ['{b22b4578-6d41-4807-a9a9-d2ec8d1d5a14}']
640 <    function GetIndex: integer;
647 >  IParamMetaData = interface
648 >  ['{4e148c4e-2d48-4991-a263-f66eca05c6aa}']
649      function GetSQLType: cardinal;
650      function GetSQLTypeName: AnsiString;
651      function getSubtype: integer;
644 –    function getName: AnsiString;
652      function getScale: integer;
653      function getCharSetID: cardinal;
654      function getCodePage: TSystemCodePage;
655      function getIsNullable: boolean;
656      function GetSize: cardinal;
657 +    property SQLType: cardinal read GetSQLType;
658 +  end;
659 +
660 +  ISQLParam = interface(IParamMetaData)
661 +    ['{b22b4578-6d41-4807-a9a9-d2ec8d1d5a14}']
662 +    function getColMetadata: IParamMetaData;
663 +    function GetIndex: integer;
664 +    function getName: AnsiString;
665      function GetAsBoolean: boolean;
666      function GetAsCurrency: Currency;
667      function GetAsInt64: Int64;
# Line 723 | Line 738 | type
738      property IsNullable: Boolean read GetIsNullable;
739      property Modified: Boolean read getModified;
740      property Name: AnsiString read GetName;
726 –    property SQLType: cardinal read GetSQLType;
741    end;
742  
743     {
# Line 781 | Line 795 | type
795      function IsPrepared: boolean;
796      function HasBatchMode: boolean;
797      function IsInBatchMode: boolean;
798 <    procedure Prepare(aTransaction: ITransaction=nil);
798 >    procedure Prepare(aTransaction: ITransaction=nil); overload;
799 >    procedure Prepare(CursorName: AnsiString; aTransaction: ITransaction=nil); overload;
800      function Execute(aTransaction: ITransaction=nil): IResults;
801 <    function OpenCursor(aTransaction: ITransaction=nil): IResultSet;
801 >    function OpenCursor(aTransaction: ITransaction=nil): IResultSet; overload;
802 >    function OpenCursor(Scrollable: boolean; aTransaction: ITransaction=nil): IResultSet; overload;
803      function GetAttachment: IAttachment;
804      function GetTransaction: ITransaction;
805      procedure SetRetainInterfaces(aValue: boolean);
# Line 1059 | Line 1075 | type
1075      function ExecuteSQL(transaction: ITransaction; sql: AnsiString; SQLDialect: integer; params: array of const): IResults; overload;
1076      function ExecuteSQL(TPB: array of byte; sql: AnsiString; params: array of const): IResults; overload;
1077      function ExecuteSQL(transaction: ITransaction; sql: AnsiString; params: array of const): IResults; overload;
1062 –    function OpenCursor(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer): IResultSet; overload;
1078      function OpenCursor(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer;
1079 +                             Scrollable: boolean=false): IResultSet; overload;
1080 +    function OpenCursor(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer;
1081 +                             params: array of const): IResultSet; overload;
1082 +    function OpenCursor(transaction: ITransaction; sql: AnsiString; Scrollable: boolean=false): IResultSet; overload;
1083 +    function OpenCursor(transaction: ITransaction; sql: AnsiString; Scrollable: boolean;
1084                               params: array of const): IResultSet; overload;
1065 –    function OpenCursor(transaction: ITransaction; sql: AnsiString): IResultSet; overload;
1085      function OpenCursor(transaction: ITransaction; sql: AnsiString;
1086                               params: array of const): IResultSet; overload;
1087 <    function OpenCursorAtStart(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer): IResultSet; overload;
1087 >    function OpenCursor(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer; Scrollable: boolean;
1088 >                             params: array of const): IResultSet; overload;
1089 >    function OpenCursorAtStart(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer;
1090 >                             Scrollable: boolean=false): IResultSet; overload;
1091      function OpenCursorAtStart(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer;
1092                               params: array of const): IResultSet; overload;
1093 <    function OpenCursorAtStart(transaction: ITransaction; sql: AnsiString): IResultSet; overload;
1093 >    function OpenCursorAtStart(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer; Scrollable: boolean;
1094 >                             params: array of const): IResultSet; overload;
1095 >    function OpenCursorAtStart(transaction: ITransaction; sql: AnsiString; Scrollable: boolean=false): IResultSet; overload;
1096      function OpenCursorAtStart(transaction: ITransaction; sql: AnsiString;
1097                               params: array of const): IResultSet; overload;
1098 <    function OpenCursorAtStart(sql: AnsiString): IResultSet; overload;
1098 >    function OpenCursorAtStart(transaction: ITransaction; sql: AnsiString; Scrollable: boolean;
1099 >                             params: array of const): IResultSet; overload;
1100 >    function OpenCursorAtStart(sql: AnsiString; Scrollable: boolean=false): IResultSet; overload;
1101 >    function OpenCursorAtStart(sql: AnsiString; Scrollable: boolean;
1102 >                             params: array of const): IResultSet; overload;
1103      function OpenCursorAtStart(sql: AnsiString;
1104                               params: array of const): IResultSet; overload;
1105 <    function Prepare(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer): IStatement; overload;
1106 <    function Prepare(transaction: ITransaction; sql: AnsiString): IStatement; overload;
1105 >    function Prepare(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer; CursorName: AnsiString=''): IStatement; overload;
1106 >    function Prepare(transaction: ITransaction; sql: AnsiString; CursorName: AnsiString=''): IStatement; overload;
1107      function PrepareWithNamedParameters(transaction: ITransaction; sql: AnsiString;
1108                         aSQLDialect: integer; GenerateParamNames: boolean=false;
1109 <                       CaseSensitiveParams: boolean = false): IStatement; overload;
1109 >                       CaseSensitiveParams: boolean = false; CursorName: AnsiString=''): IStatement; overload;
1110      function PrepareWithNamedParameters(transaction: ITransaction; sql: AnsiString;
1111                         GenerateParamNames: boolean=false;
1112 <                       CaseSensitiveParams: boolean = false): IStatement; overload;
1112 >                       CaseSensitiveParams: boolean = false; CursorName: AnsiString=''): IStatement; overload;
1113  
1114      {Events}
1115      function GetEventHandler(Events: TStrings): IEvents; overload;
# Line 1124 | Line 1152 | type
1152      function HasActivity: boolean;
1153      function HasDecFloatSupport: boolean;
1154      function HasBatchMode: boolean;
1155 +    function HasScollableCursors: boolean;
1156  
1157      {Character Sets}
1158      function HasDefaultCharSet: boolean;

Diff Legend

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