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 |
|
); |
177 |
|
|
178 |
|
function GetErrorMessage(ErrMess: TIBClientError): AnsiString; |
189 |
|
STrue = 'true'; |
190 |
|
SFalse = 'false'; |
191 |
|
SArray = '(array)'; |
192 |
+ |
SBatchCompletionError = 'Error Processing update/insert batch on row number %d - '; |
193 |
|
|
194 |
|
implementation |
195 |
|
|
280 |
|
SDecFloatNotSupported = 'DecFloat Data Type not supported'; |
281 |
|
SInt128NotSupported = 'INT128 Data Type not supported'; |
282 |
|
SUnknownParamTypeName = '%s:Unknown Param Type Name "%s"'; |
283 |
+ |
SInvalidQueryAction = 'Query Action only valid for an Update or Insert Query'; |
284 |
+ |
SSQLTypeUnchangeable = 'Cannot change SQL Type from %s to %s'; |
285 |
+ |
SCannotIncreaseMetadatasize = 'Cannot increase Metadata size from %d to %d'; |
286 |
+ |
SBatchModeNotSupported = 'Batch Mode is not available. Firebird 4 or later client and server is required'; |
287 |
+ |
SNotInBatchMode = 'Not in Batch Mode - have you called AddToBatch?'; |
288 |
+ |
SInBatchMode = 'Invalid Operation: a Batch is pending'; |
289 |
+ |
SInvalidBatchQuery = 'This query type (%s) cannot be batched'; |
290 |
+ |
SBatchRowBufferOverflow = 'Adding Row No. %d - batch buffer size limit (%d bytes) exceeded'; |
291 |
+ |
SBatchBufferSizeTooBig = 'Requested Batch Buffer Size (%d bytes) exceeds 256MB limit'; |
292 |
+ |
SNoScrollableCursors = 'Scrollable cursors are not supported'; |
293 |
+ |
SUnableTosetaTextType = 'Param[%d] "%s": Unable to change from a %s to a string type'; |
294 |
+ |
SCantDropAcquiredDB = 'Drop database not allowed by acquired attachment'; |
295 |
+ |
STransactionNotOwned = 'Cannot Commit or Rollback a linked transaction'; |
296 |
+ |
SIntegerOverflow = 'Integer overflow when scaling numeric'; |
297 |
+ |
SIntegerUnderflow = 'Integer underflow when scaling numeric'; |
298 |
+ |
SScaleCannotBeChanged = 'Unable to change numeric field scale'; |
299 |
|
|
300 |
|
const |
301 |
|
IBErrorMessages: array[TIBClientError] of string = ( |
379 |
|
SNoTimezoneSupport, |
380 |
|
SDecFloatNotSupported, |
381 |
|
SInt128NotSupported, |
382 |
< |
SUnknownParamTypeName |
382 |
> |
SUnknownParamTypeName, |
383 |
> |
SInvalidQueryAction, |
384 |
> |
SSQLTypeUnchangeable, |
385 |
> |
SCannotIncreaseMetadatasize, |
386 |
> |
SBatchModeNotSupported, |
387 |
> |
SNotInBatchMode, |
388 |
> |
SInBatchMode, |
389 |
> |
SInvalidBatchQuery, |
390 |
> |
SBatchRowBufferOverflow, |
391 |
> |
SBatchBufferSizeTooBig, |
392 |
> |
SNoScrollableCursors, |
393 |
> |
SUnableTosetaTextType, |
394 |
> |
SCantDropAcquiredDB, |
395 |
> |
STransactionNotOwned, |
396 |
> |
SIntegerOverflow, |
397 |
> |
SIntegerUnderflow, |
398 |
> |
SScaleCannotBeChanged |
399 |
|
); |
400 |
|
|
401 |
|
function GetErrorMessage(ErrMess: TIBClientError): AnsiString; |
409 |
|
Format(GetErrorMessage(ErrMess), Args)); |
410 |
|
end; |
411 |
|
|
412 |
+ |
|
413 |
|
end. |
414 |
|
|