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