9. Public nwindConn As SqlConnection = New SqlConnection("Data Source=localhost;Integrated Security=SSPI;Initial Catalog=northwind")
10. <WebMethod( Description := "Returns Northwind Customers", EnableSession := False )> _
11. Public Function GetCustomers() As DataSet
12. Dim custDA As SqlDataAdapter = New SqlDataAdapter("SELECT CustomerID, CompanyName FROM Customers", nwindConn)
13. Dim custDS As DataSet = New DataSet()
14. custDA.MissingSchemaAction = MissingSchemaAction.AddWithKey
15. custDA.Fill(custDS, "Customers")
16. GetCustomers = custDS
17. End Function
18. <WebMethod( Description := "Updates Northwind Customers", EnableSession := False )> _
19. Public Function UpdateCustomers(custDS As DataSet) As DataSet
20. Dim custDA As SqlDataAdapter = New SqlDataAdapter()
21. custDA.InsertCommand = New SqlCommand("INSERT INTO Customers (CustomerID, CompanyName) " & _ "Values(@CustomerID, @CompanyName)", nwindConn)
22. custDA.InsertCommand.Parameters.Add("@CustomerID", SqlDbType.NChar, 5, "CustomerID")
23. custDA.InsertCommand.Parameters.Add("@CompanyName", SqlDbType.NChar, 15, "CompanyName")
24. custDA.UpdateCommand = New SqlCommand("UPDATE Customers Set CustomerID = @CustomerID, " & _
25. "CompanyName = @CompanyName WHERE CustomerID = @OldCustomerID", nwindConn)
26. custDA.UpdateCommand.Parameters.Add("@CustomerID", SqlDbType.NChar, 5, "CustomerID")
27. custDA.UpdateCommand.Parameters.Add("@CompanyName", SqlDbType.NChar, 15, "CompanyName")
28. Dim myParm As SqlParameter = custDA.UpdateCommand.Parameters.Add("@OldCustomerID", SqlDbType.NChar, 5, "CustomerID")
29. myParm.SourceVersion = DataRowVersion.Original
30. custDA.DeleteCommand = New SqlCommand("DELETE FROM Customers WHERE CustomerID = @CustomerID", nwindConn)
31. myParm = custDA.DeleteCommand.Parameters.Add("@CustomerID", SqlDbType.NChar, 5, "CustomerID")
32. myParm.SourceVersion = DataRowVersion.Original
33. custDA.Update(custDS, "Customers")
34. UpdateCustomers = custDS
35. End Function
36. End Class
37.
38. ‘C#
39. <% @ WebService Language = "C#" Class = "Sample" %>
40. using System;
41. using System.Data;
42. using System.Data.SqlClient;
43. using System.Web.Services;
44. [WebService(Namespace="http://microsoft.com/webservices/")]
45. public class Sample
46. {
47. public SqlConnection nwindConn = new SqlConnection("Data Source=localhost;Integrated Security=SSPI;Initial Catalog=northwind");
48. [WebMethod( Description = "Returns Northwind Customers", EnableSession = false )]
49. public DataSet GetCustomers()
50. {
51. SqlDataAdapter custDA = new SqlDataAdapter("SELECT CustomerID, CompanyName FROM Customers", nwindConn);
52. DataSet custDS = new DataSet();
53. custDA.MissingSchemaAction = MissingSchemaAction.AddWithKey;
54. custDA.Fill(custDS, "Customers");
55. return custDS;
56. }
57. [WebMethod( Description = "Updates Northwind Customers", EnableSession = false )]
58. public DataSet UpdateCustomers(DataSet custDS)上一页 [1] [2] [3] [4] [5] 下一页 [C语言系列]NET 中C#的switch语句的语法 [系统软件]托拽Explore中的文件到VB.net的窗口 [系统软件]Boost库在XP+Visual C++.net中的安装 [常用软件]新配色面板:Paint.Net3.0RC1官方下载 [常用软件]用内建的“Net Meeting”聊天 [VB.NET程序]Henry的VB.NET之旅(三)—共享成员 [VB.NET程序]Henry的VB.NET之旅(二)—构造与析构 [VB.NET程序]Henry的VB.NET之旅(一)—失踪的窗体 [VB.NET程序]在托盘上显示Balloon Tooltip(VB.NET) [VB.NET程序]Henry手记-VB.NET中动态加载Treeview节点(二)
|