最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
XML Web Service 数据交换
时间：2022-07-02 11:44:53 编辑：袖梨 来源：一聚教程网
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 并将新数据插入适当的表格。
_
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",
客户端调用服务器端的 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 并将新数据插入适当的表格。
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",
相关文章
- Claude Design避坑指南：3个新手常犯的错误 05-27
- Project Genie 地区限制避坑：这些热门国家无法使用 05-27
- 戴文军个人简历怎么查？从打工仔到百亿掌门只用6年 05-27
- 绝味鸭脖戴文军简介：揭秘鸭王背后不为人知的创业真相 05-27
- 亲测京东JoyInside一个月，这些优缺点你必须知道 05-27
- uc浏览器网页版入口官网-手机/电脑uc浏览器网页版入口地址 05-26