Hướng dẫn cách ứng dụng kỹ thuật XML Web Service trong VB.NET
Nguồn : forum.t3h.vn

I. Đặt vấn đề
Đối với các ứng dụng phân tán chúng ta hoàn toàn có thể sử dụng kiến trúc .NET
Remoting để giải quyết các vấn đề xử lý khai thác dữ liệu trên các máy ở xa.Tuy
nhiên điều này có nhược điểm là nó đòi hỏi ứng dụng phải được xây dựng trên
cùng platform hoặc cùng hệ thống mạng.
Để khắc phục tình trang này, MS đưa ra khái niệm các dịch vụ Web XML. Chúng
cho phép bạn trưng ra chức năng của ứng dụng đối với phạm vi rộng rãi người
dùng. Các dịch vụ Web XML có thể được sử dụng khi nó là không thể sử dụng
.NET Remoting— bởi vì ứng dụng XML Web services vận hành trên một web
server có thể truy xuất tới Internet, người dùng không có cùng platform hoặc cùng
hệ thống mạng để có thể truy xuất ứng dụng của bạn. Các dịch vụ Web dựa trên
nền tảng của các chuẩn Internet, ví dụ như HTTP, XML, và SOAP, nó cho phép
ứng dụng của bạn có thể thấy và truy xuất đối với người dùng trên platform bất kỳ.
Các dịch vụ Web mang lại cho các ứng dụng của bạn khả năng truy xuất tài
nguyên thông qua Internet với sự dễ dàng, và điều đó làm cho World Wide Web
trở nên được ưa chuộng đến mức phổ dụng đối với việc tìm và duyệt thông tin.
II. Cách xây dựng ứng dụng với việc sử dụng các dịch vụ Web XML
Trong bài viết này, tôi sẽ hướng dẫn các bạn cách xây dựng một ứng dụng theo
tinh thần hướng service này.
Yêu cầu của ví dụ mà tôi sẽ đưa ra làm mẫu cho các bạn được tóm tắt như sau:
- Đơn vị đào tạo XYZ đang có sẵn cơ sở dữ liệu lưu trữ thông tin liên quan đến
nghiệp vụ đào tạo, một phần trong đó là thông tin về các kỳ thi.
- Do nhu cầu được sớm biết thông tin về tình hình học tập của con em mình, các vị
phụ huynh có nhu cầu được xem trực tiếp kết quả học tập với cách dễ dàng và
thuận tiện nhất.
- Để giải quyết vấn đề này,đơn vị XYZ quyết định cung cấp thông tin kết quả học
tập thông qua trang WEB với việc bổ sung thêm chức năng này trên trang đang tồn
tại của đơn vị.

Code:
Dim Ket_noi As New SqlConnectionDim Chuoi_CSDL As String =
"Data_DiemThi" Dim Chuoi_vi_tri As String = "IBM-333CF670847" Dim Chuoi_nguoi_dung As String = "sa"
Dim Chuoi_mat_khau As String = ""
Bước 5 : Bổ sung các tham số Name và Description tớithuộc tính WebService cho
việc định nghĩa lớp. Mã chương trình của bạn sẽ giống như sau:
chú ý là khai báo trên đặt phía trên của dòng lệnh Public Class TraCuuDiem
Ket_noi.ConnectionString = Chuoi_ket_noi
Try
Ket_noi.Open()
Catch ex As Exception
MsgBox("Lỗi kết nối CSDL! Chi tiết lỗi: " & vbNewLine & ex.Message,
MsgBoxStyle.Critical, "Thông báo lỗi")
Throw ex
End Try
End Sub

Bước 7: Bổ sung mã chương trình sau đây vào bên trong lớp để tạo phương thức
Web, phương thức lấy thông tin kết quả của kỳ thi với các tham số là mã kỳ thi và
mã hoc viên, phương thức GetDiem:
HTML Code:

Return BangKetQua
Catch ex As SqlException
MsgBox("Lỗi kết nối CSDL! Chi tiết lỗi: " & vbNewLine &
ex.Message, MsgBoxStyle.Critical, "Thông báo lỗi")
Throw ex
End Try
End Function
Code:

Bước 10: Lưu công việc của bạn và thực hiện build WebService_TraCuuDiem.
II.3 Kiểm tra thử nghiệm Web Service

Bước 1: Khởi động trình duyệt web của bạn và gõ vào URL sau:
http://localhost/WebService_TraCuuDiem/TraCuuDiem.asmx
Một trang kiểm thử được phát sinh bởi Visual Studio dựa trên các phương thức mà
nó tìm thấy trong mã chương trình Web service của bạn (Xem hình bên dưới). Bước 2: Click vào hyperlink của phương thức GetDiem. Bạn sẽ thấy một trang thử
thứ hai, nó trưng bày tham số được yêu cầu khi gọi phương thức GetDiem và nút
lệnh Invoke để chạy thử. button to run the test. Gõ vào một giá trị và click nút lệnh
Invoke.

Kết quả kiểm tra sẽ được hiển thị trong một cửa sổ browser mới. Các kết quả được