| 206 |
|
procedure CheckValidStatement; { raise error if statement is invalid.} |
| 207 |
|
procedure Close; |
| 208 |
|
procedure ExecQuery; |
| 209 |
< |
function HasField(FieldName: String): boolean; |
| 209 |
> |
function HasField(FieldName: String): boolean; {Note: case sensitive match} |
| 210 |
|
function FieldByName(FieldName: String): ISQLData; |
| 211 |
|
function ParamByName(ParamName: String): ISQLParam; |
| 212 |
|
procedure FreeHandle; |
| 741 |
|
end; |
| 742 |
|
|
| 743 |
|
function TIBSQL.HasField(FieldName: String): boolean; |
| 744 |
+ |
var i: integer; |
| 745 |
|
begin |
| 746 |
< |
if FResults = nil then |
| 746 |
> |
if MetaData = nil then |
| 747 |
|
IBError(ibxeNoFieldAccess,[nil]); |
| 748 |
|
|
| 749 |
< |
Result := FResults.ByName(FieldName) <> nil; |
| 749 |
> |
Result := false; |
| 750 |
> |
for i := 0 to MetaData.Count - 1 do |
| 751 |
> |
begin |
| 752 |
> |
if MetaData.ColMetaData[i].Name = FieldName then |
| 753 |
> |
begin |
| 754 |
> |
Result := true; |
| 755 |
> |
Exit; |
| 756 |
> |
end; |
| 757 |
> |
end; |
| 758 |
|
end; |
| 759 |
|
|
| 760 |
|
function TIBSQL.GetEOF: Boolean; |
