Snake.Net
XML Web Service 數(shù)據(jù)交換
?
客戶端調(diào)用服務(wù)器端的 Web 服務(wù)并傳遞包含數(shù)據(jù)的 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
?
服務(wù)器端的 Web 服務(wù)接受 DataSet 并將 XML 直接傳遞到 SQL Server 2000 存儲的過程中，該過程使用 SQLXML（英文）和 OPENXML 解析 XML 并將新數(shù)據(jù)插入適當(dāng)?shù)谋砀瘛?/span>
?
<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
?
??? ' 設(shè)置參數(shù)
??? 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
?
《新程序員》：云原生和全面數(shù)字化實踐50位技術(shù)專家共同創(chuàng)作，文字、視頻、音頻交互閱讀總結(jié)
- 上一篇： PowerPoint中的LinkForm
- 下一篇： 广州.NET 俱乐部第三次聚会成功举办。