TAILIEUCHUNG - Visual Basic .NET at Work Building 10 Enterprise Projects phần 4

Gõ vào một tên cho biểu mẫu và sau đó nhấn Open. Trên cửa sổ tiếp theo, như trong hình 1,11, lựa chọn hình thức mà bạn muốn kế thừa. Lựa chọn hình thức frmBase và nhấn OK. Bây giờ bạn có một hình thức di truyền trong chương trình của bạn. | 134 Project 4 sWhere AND RTRIM FunctionName sFunction . Else sWhere WHERE RTRIM FunctionName sFunction . End If End If Tack on the where clause. sSQL sWhere Load the data. Try Dim da As New SqlDataAdapter sSQL CONNSTR ds perfdata Catch ex As SqlException Throw ex End Try Return ds End Function If a beginning date is supplied we will only retrieve data later than that date. If an end date is supplied we only retrieve data earlier than that date. If a username is supplied only records that match that username will be retrieved. The same goes for the FunctionName. The bulk of the GetPerfData method is dedicated to building the WHERE clause based on these parameters. Once the WHERE clause is constructed we simply retrieve the data using a DataAdapter. Lastly we return the DataSet to the caller. Remember that DataSets are derived from MarshalByValueObject and this can be serialized for Remoting. The code for the Analysis is more complex but works well. We will be calculating Minimum Maximum and Average values for all the data by FunctionName. Therefore we need to get data back from the database by function name for all the function names. There are two steps in this process. First we load a list of unique function names that currently reside in the database. Second this list is used to load performance data for each function name that we just loaded. Take a look at the code then we ll talk. Public Function BasicStats As DataSet Dim conn As New SqlConnection CONNSTR Dim dsFunctions As New DataSet Holds returned functions Dim dsData As New DataSet Holds all data for a function Dim dsStats As New DataSet Our return DataSet Dim sSQL As String Performance Testing with Remoting 135 Dim sWhere As String Dim cmd As New SqlCommand Get the list of functions we need to process. sSQL SELECT DISTINCT FunctionName FROM PerfData Dim da As New SqlDataAdapter sSQL CONNSTR Try dsFunctions functions Catch ex As SqlException .

TỪ KHÓA LIÊN QUAN
TAILIEUCHUNG - Chia sẻ tài liệu không giới hạn
Địa chỉ : 444 Hoang Hoa Tham, Hanoi, Viet Nam
Website : tailieuchung.com
Email : tailieuchung20@gmail.com
Tailieuchung.com là thư viện tài liệu trực tuyến, nơi chia sẽ trao đổi hàng triệu tài liệu như luận văn đồ án, sách, giáo trình, đề thi.
Chúng tôi không chịu trách nhiệm liên quan đến các vấn đề bản quyền nội dung tài liệu được thành viên tự nguyện đăng tải lên, nếu phát hiện thấy tài liệu xấu hoặc tài liệu có bản quyền xin hãy email cho chúng tôi.
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.