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 |
|
); |
170 |
|
|
171 |
|
function GetErrorMessage(ErrMess: TIBClientError): AnsiString; |
182 |
|
STrue = 'true'; |
183 |
|
SFalse = 'false'; |
184 |
|
SArray = '(array)'; |
185 |
+ |
SBatchCompletionError = 'Error Processing update/insert batch on row number %d - '; |
186 |
|
|
187 |
|
implementation |
188 |
|
|
273 |
|
SDecFloatNotSupported = 'DecFloat Data Type not supported'; |
274 |
|
SInt128NotSupported = 'INT128 Data Type not supported'; |
275 |
|
SUnknownParamTypeName = '%s:Unknown Param Type Name "%s"'; |
276 |
+ |
SInvalidQueryAction = 'Query Action only valid for an Update or Insert Query'; |
277 |
+ |
SSQLTypeUnchangeable = 'Cannot change SQL Type from %s to %s'; |
278 |
+ |
SCannotIncreaseMetadatasize = 'Cannot increase Metadata size from %d to %d'; |
279 |
+ |
SBatchModeNotSupported = 'Batch Mode is not available. Firebird 4 or later client and server is required'; |
280 |
+ |
SNotInBatchMode = 'Not in Batch Mode - have you called AddToBatch?'; |
281 |
+ |
SInBatchMode = 'Invalid Operation: a Batch is pending'; |
282 |
+ |
SInvalidBatchQuery = 'This query type (%s) cannot be batched'; |
283 |
+ |
SBatchRowBufferOverflow = 'Adding Row No. %d - batch buffer size limit (%d bytes) exceeded'; |
284 |
+ |
SBatchBufferSizeTooBig = 'Requested Batch Buffer Size (%d bytes) exceeds 256MB limit'; |
285 |
|
|
286 |
|
const |
287 |
|
IBErrorMessages: array[TIBClientError] of string = ( |
365 |
|
SNoTimezoneSupport, |
366 |
|
SDecFloatNotSupported, |
367 |
|
SInt128NotSupported, |
368 |
< |
SUnknownParamTypeName |
368 |
> |
SUnknownParamTypeName, |
369 |
> |
SInvalidQueryAction, |
370 |
> |
SSQLTypeUnchangeable, |
371 |
> |
SCannotIncreaseMetadatasize, |
372 |
> |
SBatchModeNotSupported, |
373 |
> |
SNotInBatchMode, |
374 |
> |
SInBatchMode, |
375 |
> |
SInvalidBatchQuery, |
376 |
> |
SBatchRowBufferOverflow, |
377 |
> |
SBatchBufferSizeTooBig |
378 |
|
); |
379 |
|
|
380 |
|
function GetErrorMessage(ErrMess: TIBClientError): AnsiString; |
388 |
|
Format(GetErrorMessage(ErrMess), Args)); |
389 |
|
end; |
390 |
|
|
391 |
+ |
|
392 |
|
end. |
393 |
|
|