diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2018-07-18 16:40:56 +0200 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2018-07-18 16:48:05 +0200 |
| commit | 7ea081d9f7938c59b1f71399bf32ce3fb738ad66 (patch) | |
| tree | 2ed8f31bd1852c2308e70d0eb17716858ef97469 /wizards | |
| parent | ec640f452af7c62b2e72b84261e2162bae4cef7e (diff) | |
Access2Base - tdf#118680 Fix VARCHAR_IGNORECASE error
Precision property of com.sun.star.sdbcx.Column service
is set to the maximum length for VARCHAR database fields
while it remains at 0 for VARCHAR_IGNORECASE fields.
Access2Base reported erroneously an overflow error.
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/Field.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/access2base/Field.xba b/wizards/source/access2base/Field.xba index 0c3b6ef2880e..adf73818243d 100644 --- a/wizards/source/access2base/Field.xba +++ b/wizards/source/access2base/Field.xba @@ -704,7 +704,7 @@ Dim oParent As Object End If Case .CHAR, .VARCHAR, .LONGVARCHAR, .CLOB If Not Utils._CheckArgument(pvValue, iArgNr, vbString, , False) Then Goto Trace_Error_Value - If Len(pvValue) > _Precision Then Goto Trace_Error_Length + If _Precision > 0 And Len(pvValue) > _Precision Then Goto Trace_Error_Length Column.updateString(pvValue) ' vbString Case .DATE If Not Utils._CheckArgument(pvValue, iArgNr, vbDate, , False) Then Goto Trace_Error_Value @@ -776,7 +776,7 @@ Trace_Error_Updatable: _PropertySet = False Goto Exit_Function Trace_Error_Length: - TraceError(TRACEFATAL, ERROVERFLOW, Utils._CalledSub(), 0, , Array(lSize, "AppendChunk")) + TraceError(TRACEFATAL, ERROVERFLOW, Utils._CalledSub(), 0, , Array(Len(pvValue), "AppendChunk")) _PropertySet = False Goto Exit_Function Error_Function: |