ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/client/3.0/FB30Array.pas
(Generate patch)

Comparing ibx/trunk/fbintf/client/3.0/FB30Array.pas (file contents):
Revision 60 by tony, Mon Mar 27 15:21:02 2017 UTC vs.
Revision 113 by tony, Thu Jan 18 14:37:59 2018 UTC

# Line 104 | Line 104 | const
104                        'From RDB$FIELDS F JOIN RDB$RELATION_FIELDS RF '+
105                        'On F.RDB$FIELD_NAME = RF.RDB$FIELD_SOURCE JOIN RDB$FIELD_DIMENSIONS FD '+
106                        'On FD.RDB$FIELD_NAME = F.RDB$FIELD_NAME ' +
107 <                      'Where RF.RDB$RELATION_NAME = ? and RF.RDB$FIELD_NAME = ? Order by FD.RDB$DIMENSION asc';
107 >                      'Where RF.RDB$RELATION_NAME = ? and RF.RDB$FIELD_NAME = ? ' +
108 >                      'UNION '+
109 >                      'Select F.RDB$FIELD_LENGTH, F.RDB$FIELD_SCALE, F.RDB$FIELD_TYPE, '+
110 >                      'F.RDB$DIMENSIONS, FD.RDB$DIMENSION, FD.RDB$LOWER_BOUND, FD.RDB$UPPER_BOUND, '+
111 >                      'F.RDB$CHARACTER_SET_ID '+
112 >                      'From RDB$FIELDS F JOIN RDB$PROCEDURE_PARAMETERS PP '+
113 >                      'On F.RDB$FIELD_NAME = PP.RDB$FIELD_SOURCE JOIN RDB$FIELD_DIMENSIONS FD '+
114 >                      'On FD.RDB$FIELD_NAME = F.RDB$FIELD_NAME ' +
115 >                      'Where PP.RDB$PROCEDURE_NAME = ? and PP.RDB$PARAMETER_NAME = ? '+
116 >                      'Order by 5 asc';
117  
118  
119   { TFB30ArrayMetaData }
# Line 124 | Line 133 | begin
133    begin
134      SQLParams[0].AsString := RelationName;
135      SQLParams[1].AsString := ColumnName;
136 +    SQLParams[2].AsString := RelationName;
137 +    SQLParams[3].AsString := ColumnName;
138      with OpenCursor do
139      if FetchNext then
140      begin

Diff Legend

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