| 156 |
|
ibxeNoTimezoneSupport, |
| 157 |
|
ibxeDecFloatNotSupported, |
| 158 |
|
ibxeInt128NotSupported, |
| 159 |
< |
ibxeUnknownParamTypeName |
| 159 |
> |
ibxeUnknownParamTypeName, |
| 160 |
> |
ibxInvalidQueryAction, |
| 161 |
> |
ibxeSQLTypeUnchangeable, |
| 162 |
> |
ibxeCannotIncreaseMetadatasize, |
| 163 |
> |
ibxeBatchModeNotSupported, |
| 164 |
> |
ibxeNotInBatchMode, |
| 165 |
> |
ibxeInBatchMode, |
| 166 |
> |
ibxeInvalidBatchQuery, |
| 167 |
> |
ibxeBatchRowBufferOverflow, |
| 168 |
> |
ibxeBatchBufferSizeTooBig, |
| 169 |
> |
ibxeNoScrollableCursors, |
| 170 |
> |
ibxeUnableTosetaTextType, |
| 171 |
> |
ibxeCantDropAcquiredDB, |
| 172 |
> |
ibxeTransactionNotOwned, |
| 173 |
> |
ibxeIntegerOverflow, |
| 174 |
> |
ibxIntegerUnderflow, |
| 175 |
> |
ibxeScaleCannotBeChanged, |
| 176 |
> |
ibxeStringOverflow |
| 177 |
|
); |
| 178 |
|
|
| 179 |
|
function GetErrorMessage(ErrMess: TIBClientError): AnsiString; |
| 190 |
|
STrue = 'true'; |
| 191 |
|
SFalse = 'false'; |
| 192 |
|
SArray = '(array)'; |
| 193 |
+ |
SBatchCompletionError = 'Error Processing update/insert batch on row number %d - '; |
| 194 |
|
|
| 195 |
|
implementation |
| 196 |
|
|
| 281 |
|
SDecFloatNotSupported = 'DecFloat Data Type not supported'; |
| 282 |
|
SInt128NotSupported = 'INT128 Data Type not supported'; |
| 283 |
|
SUnknownParamTypeName = '%s:Unknown Param Type Name "%s"'; |
| 284 |
+ |
SInvalidQueryAction = 'Query Action only valid for an Update or Insert Query'; |
| 285 |
+ |
SSQLTypeUnchangeable = 'Cannot change SQL Type from %s to %s'; |
| 286 |
+ |
SCannotIncreaseMetadatasize = 'Cannot increase Metadata size from %d to %d'; |
| 287 |
+ |
SBatchModeNotSupported = 'Batch Mode is not available. Firebird 4 or later client and server is required'; |
| 288 |
+ |
SNotInBatchMode = 'Not in Batch Mode - have you called AddToBatch?'; |
| 289 |
+ |
SInBatchMode = 'Invalid Operation: a Batch is pending'; |
| 290 |
+ |
SInvalidBatchQuery = 'This query type (%s) cannot be batched'; |
| 291 |
+ |
SBatchRowBufferOverflow = 'Adding Row No. %d - batch buffer size limit (%d bytes) exceeded'; |
| 292 |
+ |
SBatchBufferSizeTooBig = 'Requested Batch Buffer Size (%d bytes) exceeds 256MB limit'; |
| 293 |
+ |
SNoScrollableCursors = 'Scrollable cursors are not supported'; |
| 294 |
+ |
SUnableTosetaTextType = 'Param[%d] "%s": Unable to change from a %s to a string type'; |
| 295 |
+ |
SCantDropAcquiredDB = 'Drop database not allowed by acquired attachment'; |
| 296 |
+ |
STransactionNotOwned = 'Cannot Commit or Rollback a linked transaction'; |
| 297 |
+ |
SIntegerOverflow = 'Integer overflow when scaling numeric'; |
| 298 |
+ |
SIntegerUnderflow = 'Integer underflow when scaling numeric'; |
| 299 |
+ |
SScaleCannotBeChanged = 'Unable to change numeric field scale'; |
| 300 |
+ |
SStringOverflow = 'String overflow. String Length %d exceeds permitted maximum (%d)'; |
| 301 |
|
|
| 302 |
|
const |
| 303 |
|
IBErrorMessages: array[TIBClientError] of string = ( |
| 381 |
|
SNoTimezoneSupport, |
| 382 |
|
SDecFloatNotSupported, |
| 383 |
|
SInt128NotSupported, |
| 384 |
< |
SUnknownParamTypeName |
| 384 |
> |
SUnknownParamTypeName, |
| 385 |
> |
SInvalidQueryAction, |
| 386 |
> |
SSQLTypeUnchangeable, |
| 387 |
> |
SCannotIncreaseMetadatasize, |
| 388 |
> |
SBatchModeNotSupported, |
| 389 |
> |
SNotInBatchMode, |
| 390 |
> |
SInBatchMode, |
| 391 |
> |
SInvalidBatchQuery, |
| 392 |
> |
SBatchRowBufferOverflow, |
| 393 |
> |
SBatchBufferSizeTooBig, |
| 394 |
> |
SNoScrollableCursors, |
| 395 |
> |
SUnableTosetaTextType, |
| 396 |
> |
SCantDropAcquiredDB, |
| 397 |
> |
STransactionNotOwned, |
| 398 |
> |
SIntegerOverflow, |
| 399 |
> |
SIntegerUnderflow, |
| 400 |
> |
SScaleCannotBeChanged, |
| 401 |
> |
SStringOverflow |
| 402 |
|
); |
| 403 |
|
|
| 404 |
|
function GetErrorMessage(ErrMess: TIBClientError): AnsiString; |
| 412 |
|
Format(GetErrorMessage(ErrMess), Args)); |
| 413 |
|
end; |
| 414 |
|
|
| 415 |
+ |
|
| 416 |
|
end. |
| 417 |
|
|
