| 138 |
|
function GetRelationName: AnsiString; override; |
| 139 |
|
function GetScale: integer; override; |
| 140 |
|
function GetCharSetID: cardinal; override; |
| 141 |
– |
function GetCodePage: TSystemCodePage; override; |
| 142 |
– |
function GetCharSetWidth: integer; override; |
| 141 |
|
function GetIsNull: Boolean; override; |
| 142 |
|
function GetIsNullable: boolean; override; |
| 143 |
|
function GetSQLData: PByte; override; |
| 144 |
|
function GetDataLength: cardinal; override; |
| 145 |
|
function GetSize: cardinal; override; |
| 148 |
– |
function GetAttachment: IAttachment; override; |
| 146 |
|
function GetDefaultTextSQLType: cardinal; override; |
| 147 |
|
procedure SetIsNull(Value: Boolean); override; |
| 148 |
|
procedure SetIsNullable(Value: Boolean); override; |
| 149 |
|
procedure SetSQLData(AValue: PByte; len: cardinal); override; |
| 150 |
< |
procedure SetScale(aValue: integer); override; |
| 151 |
< |
procedure SetDataLength(len: cardinal); override; |
| 152 |
< |
procedure SetSQLType(aValue: cardinal); override; |
| 150 |
> |
procedure InternalSetScale(aValue: integer); override; |
| 151 |
> |
procedure InternalSetDataLength(len: cardinal); override; |
| 152 |
> |
procedure InternalSetSQLType(aValue: cardinal); override; |
| 153 |
|
procedure SetCharSetID(aValue: cardinal); override; |
| 154 |
|
public |
| 155 |
|
constructor Create(aParent: TIBXSQLDA; aIndex: integer); |
| 240 |
|
function FetchAbsolute(position: Integer): boolean; {fetch record by its absolute position in result set} |
| 241 |
|
function FetchRelative(offset: Integer): boolean; {fetch record by position relative to current} |
| 242 |
|
function GetCursorName: AnsiString; |
| 246 |
– |
function GetTransaction: ITransaction; override; |
| 243 |
|
function IsEof: boolean; |
| 244 |
|
function IsBof: boolean; |
| 245 |
|
procedure Close; |
| 357 |
|
end; |
| 358 |
|
end; |
| 359 |
|
|
| 364 |
– |
function TIBXSQLVAR.GetCodePage: TSystemCodePage; |
| 365 |
– |
begin |
| 366 |
– |
result := CP_NONE; |
| 367 |
– |
with Statement.GetAttachment do |
| 368 |
– |
CharSetID2CodePage(GetCharSetID,result); |
| 369 |
– |
end; |
| 370 |
– |
|
| 371 |
– |
function TIBXSQLVAR.GetCharSetWidth: integer; |
| 372 |
– |
begin |
| 373 |
– |
result := 1; |
| 374 |
– |
with Statement.GetAttachment DO |
| 375 |
– |
CharSetWidth(GetCharSetID,result); |
| 376 |
– |
end; |
| 377 |
– |
|
| 360 |
|
function TIBXSQLVAR.GetIsNull: Boolean; |
| 361 |
|
begin |
| 362 |
|
result := IsNullable and (FNullIndicator = -1); |
| 382 |
|
Result := FMetadataSize; |
| 383 |
|
end; |
| 384 |
|
|
| 403 |
– |
function TIBXSQLVAR.GetAttachment: IAttachment; |
| 404 |
– |
begin |
| 405 |
– |
Result := FStatement.GetAttachment; |
| 406 |
– |
end; |
| 407 |
– |
|
| 385 |
|
function TIBXSQLVAR.GetArrayMetaData: IArrayMetaData; |
| 386 |
|
begin |
| 387 |
|
if GetSQLType <> SQL_ARRAY then |
| 529 |
|
Changed; |
| 530 |
|
end; |
| 531 |
|
|
| 532 |
< |
procedure TIBXSQLVAR.SetScale(aValue: integer); |
| 532 |
> |
procedure TIBXSQLVAR.InternalSetScale(aValue: integer); |
| 533 |
|
begin |
| 534 |
|
FXSQLVAR^.sqlscale := aValue; |
| 535 |
|
Changed; |
| 536 |
|
end; |
| 537 |
|
|
| 538 |
< |
procedure TIBXSQLVAR.SetDataLength(len: cardinal); |
| 538 |
> |
procedure TIBXSQLVAR.InternalSetDataLength(len: cardinal); |
| 539 |
|
begin |
| 540 |
|
if not FOwnsSQLData then |
| 541 |
|
FXSQLVAR^.sqldata := nil; |
| 546 |
|
Changed; |
| 547 |
|
end; |
| 548 |
|
|
| 549 |
< |
procedure TIBXSQLVAR.SetSQLType(aValue: cardinal); |
| 549 |
> |
procedure TIBXSQLVAR.InternalSetSQLType(aValue: cardinal); |
| 550 |
|
begin |
| 551 |
|
FXSQLVAR^.sqltype := aValue or (FXSQLVAR^.sqltype and 1); |
| 552 |
|
Changed; |
| 650 |
|
Result := FResults.FStatement.FCursor; |
| 651 |
|
end; |
| 652 |
|
|
| 676 |
– |
function TResultSet.GetTransaction: ITransaction; |
| 677 |
– |
begin |
| 678 |
– |
Result := FResults.GetTransaction; |
| 679 |
– |
end; |
| 680 |
– |
|
| 653 |
|
function TResultSet.IsEof: boolean; |
| 654 |
|
begin |
| 655 |
|
Result := FResults.FStatement.FEof; |
| 726 |
|
|
| 727 |
|
function TIBXOUTPUTSQLDA.GetTransaction: TFB25Transaction; |
| 728 |
|
begin |
| 729 |
< |
Result := FTransaction; |
| 729 |
> |
if FTransaction <> nil then |
| 730 |
> |
Result := FTransaction |
| 731 |
> |
else |
| 732 |
> |
Result := inherited GetTransaction; |
| 733 |
|
end; |
| 734 |
|
|
| 735 |
|
procedure TIBXOUTPUTSQLDA.GetData(index: integer; var aIsNull:boolean; var len: short; |
