XML Web Service 数据交换

love没天理

love没天理

2016-01-29 13:05

XML Web Service 数据交换,XML Web Service 数据交换
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.DefaultEnd Sub
服务器端的 Web 服务接受 DataSet 并将 XML 直接传递到 SQL Server 2000 存储的过程中,该过程使用 SQLXML(英文)和 OPENXML 解析 XML 并将新数据插入适当的表格。
_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 integerDECLARE @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, @UsernameFROM OPENXML (@iDoc, '/DataSet/Feedback',2) WITH ( ID uniqueidentifier, PlantSection int, Part int, DefectScope int, ScopeID nvarchar(50), DefectType int, RichInk nvarchar(50) )
SELECT @Error = @@ERRORIF (@Error <> 0)BEGIN GOTO ErrorhandlerEND
/* 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
展开更多 50%)
分享

猜你喜欢

XML Web Service 数据交换

电脑网络
XML Web Service 数据交换

什么是 XML Web Service

Web开发
什么是 XML Web Service

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

Excel和Access之间的数据交换

编程语言 网络编程
Excel和Access之间的数据交换

剪贴板和动态数据交换(一)

Delphi
剪贴板和动态数据交换(一)

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

实现Windows与Unix、Linux间数据交换

Linux Linux命令 Linux安装 Linux编程 Linux桌面 Linux软件 Linux内核 Linux管理
实现Windows与Unix、Linux间数据交换

Delphi 剪贴板和动态数据交换

编程语言 网络编程
Delphi 剪贴板和动态数据交换

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

fmx2004 1000问(2)

fmx2004 1000问(2)

3种平台下安装php4经验点滴

3种平台下安装php4经验点滴
下拉加载更多内容 ↓