XML Web Service 数据交换

王朝other·作者佚名  2006-01-31
窄屏简体版  字體: |||超大  

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航