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


 
 



CREATE PROCEDURE UpdateRequestXML
   @RequestID int,
   @XML text 
AS
SET NOCOUNT ON
UPDATE Requests SET Data=@XML
WHERE Id=@RequestID
RETURN @@ROWCOUNTPublic 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
 
 



Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 12