
Вот добавление записей через INSERT без проблем, а AppendChunk только через Recordset ?

CREATE PROCEDURE UpdateRequestXML
@RequestID int,
@XML text
AS
SET NOCOUNT ON
UPDATE Requests SET Data=@XML
WHERE Id=@RequestID
RETURN @@ROWCOUNT
Public Function UpdateRequestXML(ByVal RequestID As Long, ByVal XML As String) As Boolean
'<EhHeader>
On Error GoTo Err_Debug
'</EhHeader>
Dim cmd As ADODB.Command, p As ADODB.Parameters
100 Set cmd = New ADODB.Command
110 cmd.ActiveConnection = GetConnectionString()
120 cmd.CommandType = adCmdStoredProc
130 cmd.CommandText = "UpdateRequestXML"
140 Set p = cmd.Parameters
150 p.Append cmd.CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue)
160 p.Append cmd.CreateParameter("@RequestID", adInteger, adParamInput, , RequestID)
170 p.Append cmd.CreateParameter("@XML", adLongVarChar, adParamInput, 2147483647, XML)
180 cmd.Execute , , adExecuteNoRecords
190 If p("RETURN_VALUE").Value Then
200 UpdateRequestXML = True
End If
'<EhFooter>
lb_out:
210 Set p = Nothing
220 Set cmd = Nothing
Exit Function
Err_Debug:
LogError "UpdateRequestXML"
Resume lb_out
'</EhFooter>
End Function
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0