Timm,
Is an ADO error. Pleaser review the complete errors of the process (TAdoDataSource:ShowErrorList), it may help.
On new version the ADO code has ONLY this differences (in red):
METHOD FieldPut( nField, Value ) CLASS XAdoRecords
IF ::lOnAppend
RETURN ::aRecord[ nField ] := Value
ENDIF
WITH OBJECT ::oAdo
TRY
IF !( :Bof .OR. :Eof )
IF Value == Nil
Value := OLE_NULL
ENDIF
WITH OBJECT :Fields[ nField - 1 ]
IF lAnd( :Attributes, adFldUpdatable )
IF :Type == adLongVarBinary .AND. lAnd( :Attributes, adFldLong )
:AppendChunk( VTArrayWrapper():New( 17, Value ) ) // 17 = VT_UI1 = byte
ELSE
Value := :Value := Value
ENDIF
ENDIF
END WITH
ENDIF
CATCH
::Cancel()
::NewADOError( "ADODB:RecordSet:FieldPut( '" + Ltrim( Str( nField ) ) + "' )" )
END
END WITH
RETURN Value
Regards,
--
Ignacio Ortiz de Zúñiga
Xailer support / Soporte de Xailer
http://www.xailer.com
http://www.xailer.info
"Timm Sodtalbers" <
info@sodtalbers-it.de> escribió en el mensaje news:4a6ebed2$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Ignacio,
>
> #1: ADODB:RecordSet:AddNew()
> Error at a process consisting of several steps. Check the single status
> values. [# 0]
>
> Best regards, Timm.
>
> "Ignacio Ortiz de Zúñiga" <
NoNameToAvoidSpam@xailer.com> schrieb im
> Newsbeitrag news:[email=4a6eb190@svctag-j7w3v3j....]4a6eb190@svctag-j7w3v3j....[/email]
>> Timm,
>>
>> Please the error.log. TIA.
>>
>> Regards,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> Xailer support / Soporte de Xailer
>>
http://www.xailer.com
>>
http://www.xailer.info
>> "Timm Sodtalbers" <
info@sodtalbers-it.de> escribió en el mensaje
>> news:4a6e9b15$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> Hi,
>>>
>>> with the newest Xailer version I get an error message when I use
>>> TSQLTable:Update().
>>> The same code works with the Xailer version from 03 Jul 2009.
>>>
>>> What has changed in new Xailer version?
>>>
>>> Best regards, Timm.
>>>
>>
>>
>
>
>
--