Kaydet (Commit) 7ea081d9 authored tarafından Jean-Pierre Ledure's avatar Jean-Pierre Ledure

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.
üst ec640f45
......@@ -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:
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment