ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/client/2.5/FB25Array.pas
(Generate patch)
# Line 78 | Line 78
78    sGetArrayMetaData = 'Select F.RDB$CHARACTER_SET_ID '+
79                        'From RDB$FIELDS F JOIN RDB$RELATION_FIELDS RF '+
80                        'On F.RDB$FIELD_NAME = RF.RDB$FIELD_SOURCE '+
81 <                      'Where RF.RDB$RELATION_NAME = ? and RF.RDB$FIELD_NAME = ?';
81 >                      'Where RF.RDB$RELATION_NAME = ? and RF.RDB$FIELD_NAME = ? '+
82 >                      'UNION '+
83 >                      'Select F.RDB$CHARACTER_SET_ID '+
84 >                      'From RDB$FIELDS F JOIN RDB$PROCEDURE_PARAMETERS PP '+
85 >                      'On F.RDB$FIELD_NAME = PP.RDB$FIELD_SOURCE '+
86 >                      'Where PP.RDB$PROCEDURE_NAME = ? and PP.RDB$PARAMETER_NAME = ?';
87  
88    { TFB25ArrayMetaData }
89  
# Line 109 | Line 114
114      begin
115        SQLParams[0].AsString := RelationName;
116        SQLParams[1].AsString := ColumnName;
117 +      SQLParams[2].AsString := RelationName;
118 +      SQLParams[3].AsString := ColumnName;
119        with OpenCursor do
120        if FetchNext then
121        begin

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines