XML Web Service 数据交换

XML Web Service 数据交换

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- XML Web Service 数据交换 (http://www.webasp.net/article/26/25727.htm)

-- 作者：未知
-- 发布日期： 2005-07-21

XML Web Service 数据交换

客户端调用服务器端的 Web 服务并传递包含数据的 DataSet (ds)：

Private Sub Synchronize()
    Dim username As String = "JohnS"
    Dim blnSuccess As Boolean
    ' 使用 XML Web Service 进行同步
    Cursor.Current = Cursors.WaitCursor
    Dim wsFeedback As New wsFeedback.feedback
    blnSuccess = wsFeedback.InsertFeedback(ds, username)

    Cursor.Current = Cursors.Default
End Sub

服务器端的 Web 服务接受 DataSet 并将 XML 直接传递到 SQL Server 2000 存储的过程中，该过程使用 SQLXML（英文）和 OPENXML 解析 XML 并将新数据插入适当的表格。

<WebMethod()> _
Public Function InsertFeedback(ByVal ds As DataSet, ByVal username As
  String) As Boolean
    Dim con As New SqlConnection(connectionstring)
    Dim cmd As New SqlCommand("p_Feedback_i", con)
    cmd.CommandType = CommandType.StoredProcedure

    ' 设置参数
    Dim prmXML As SqlParameter = cmd.Parameters.Add("@XML",
      SqlDbType.NText)
    prmXML.Direction = ParameterDirection.Input
    prmXML.Value = ds.GetXml

    Dim prmUsername As SqlParameter = cmd.Parameters.Add("@Username",
      SqlDbType.NVarChar)
    prmUsername.Direction = ParameterDirection.Input
    prmUsername.Value = username

    Try
    con.Open()
        cmd.ExecuteNonQuery()
    Catch ex As Exception
        ' 处理、记录并重掷错误
        Throw ex

    Finally
        con.Close()
    End Try

    Return True

End Function

The stored procedure inserts the new data:

CREATE PROCEDURE p_Feedback_i
   @XML ntext,
   @Username nvarchar(50)

AS

SET NOCOUNT ON

DECLARE @iDoc   integer
DECLARE @Error   integer

/* Create XML document. */
EXEC sp_xml_preparedocument @iDoc OUTPUT, @XML

/* Insert new records */
INSERT INTO    Feedback
      (
      FeedbackID,
      PlantSection,
      Part,
      DefectScope,
      ScopeID,
      DefectType,
      RichInk,
      Username
      )
SELECT     ID,
      PlantSection,
      Part,
      DefectScope,
      ScopeID,
      DefectType,
      RichInk,
      @Username
FROM OPENXML (@iDoc, '/DataSet/Feedback',2) WITH
      (
      ID   uniqueidentifier,
      PlantSection   int,
      Part      int,
      DefectScope   int,
      ScopeID   nvarchar(50),
      DefectType   int,
      RichInk      nvarchar(50)
      )

SELECT @Error = @@ERROR
IF (@Error <> 0)
BEGIN
   GOTO Errorhandler
END

/* Remove the XML document*/
EXEC sp_xml_removedocument @iDoc

RETURN

Errorhandler:

IF NOT @iDoc IS NULL
   EXEC sp_xml_removedocument @iDoc

RAISERROR (@Error,16,1)

RETURN

webasp.net