| 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] 下一页 | 
