Truy cập cơ sở dữ liệu với lớp

Dùng lớp tập hợp để thao tác với các phần tử dữ liệu

Để xây dựng ứng dụng dùng lớp COrder và colOrder, ta theo các bước sau :

1. Tạo đề án Standard Exe mới. Thêm lớp COrder và colOrder.

2. Trong đề án, tạo một biểu mẫu cho phép người sử dụng đưa vào Date, CustomerID,Item,Price.Thêm 2 nút lệnh vào giao diện, nút thứ nhất nhập dữ liệu, trong khi nút thứ hai tính toán tổng số hoá đơn được nhập.

3. Trong biểu mẫu, khai báo 2 biến mức mô-dun, một cho đối tượng COrdervà một cho tập hợp colOrder.

Option Explicit
    Private ThisOrder as COrder
    Private AllOrders as colOrder
    

4. Tạo instance cho tập hợp colOrder trong sự kiện Load của biểu mẫu.

Private Sub Form_Load ()
    Set AllOrders = New colOrder
    End Sub
    

5. Viết chương trình cho sự kiện Clickcủa nút Add để thêm hoá đơn vào tập hợp, rồi khởi động lại giao diện người sử dụng của ứng dụng.

Private Sub cmdAdd_Click ()
    ‘ Creates a new order and adds
    ‘ it to the collection
    Set ThisOrder = AllOrders.Add
    ThisOrder.OrderDate = txtOrderDate.Text ThisOrder.CustomerID = txtCustomerID.Text ThisOrder.ItemOrdered = txtItemOrdered.Text ThisOrder.Price = txtPrice.Text
    ‘ Reset the user Interface txtOrderDate.Text = " " txtCustomerID.Text = " " txtItemOrdered.Text = " " txtPrice.Text = " " txtOrderDate.SetFocus
    End Sub
    

6. Sau cùng, trong sự kiện Click của nút Total, viết chương trình để trả về tổng số hoá đơn đã nhập dùng vòng lặp

For Each.. Next.
    Private Sub cmdTotal_Click() Dim curTotal As Currency
    For Each ThisOrder In AllOrders
    curTotal = curTotal + ThisOrder.Price
    Next
    MsgBox "The total is " & curTotal, vbInformation
    End Sub
    

Tham chiếu đến phần tử trong tập hợp

Dùng vòng lặp ForEach..Next để duyệt qua tập hợp không phải là cách duy nhất để làm việc với tập hợp. Sau khi thiết lập và đưa vào các đối tượng, ta có thể lấy ra phần tử từ tập hợp. Nếu thêm đối tượng vào tập hợp với một khoá hay giá trị chuỗi duy nhất, ta có thể lấy về đối tượng mà không không cần xác định vị trí của nó trong tập hợp - một ưu điểm so với mảng.

Ví dụ, Để lấy về hoá đơn thứ 4 trong tập hợp :

Set MyOrder = AllOrders(4)
    

Để tham chiếu đến thuộc tính của đối tượng Order thứ 4 trong tập hợp, ta truyền vào chỉ mục của tập hợp :

AllOrders(4).OrderDate = #6/5/98#

Dòng lệnh này hoạt động nhờ thủ tục mặc định của tập hợp trả về một tham chiếu đến phần tử được đánh số. Thủ tục mặc định này là phương thức Item. Vì là mặc định, nên ta không cần gọi nó một cách tường minh. Nếu không, có thể dùng:

AllOrders.Item(4).OrderDate= #6/5/98#

Để trả về một phần tử từ tập hợp sử dụng một khoá trước đó, ta phải thêm nó vào tập với một khoá. Để thực hiện điều này, truyền một chuỗi duy nhất cho phương thức

Add :

AllOrders.Add "ORD193").prive

Ta sẽ gặp thông báo lỗi nếu như chuỗi này không duy nhất. Để tham chiếu đến một thuộc tính của đối tượng này, ta dùng dòng lệnh :

MsgBox AllOrders ("ORD193").prive

Lưu ý rằng ta không dùng giá trị số cho khoá của một đối tượng, ngay cả khi ta truyền nó cho phương thức Adddưới dạng chuỗi. Bởi vì phương thức Itemcó thể trả về một đối tượng từ tập hợp bằng khoá hoặc bằng vị trí xếp thứ tự. Nếu phương thức Itemnhận số n, nó trả về phần tử thứ n trong tập hợp. Nếu nó nhận một chuỗi, nó trả về đối tượng với khoá là chuỗi đó. Mặc dù vậy, Nếu chuỗi có thể chuyển thành số, ta sẽ có nguy cơ gặp lỗi.

Sử dụng các lớp xử lý bản ghi duy nhất

Lớp xử lý bản ghi trả về một bản ghi duy nhất từ cơ sở dữ liệu và đưa nó vào ứng dụng dưới dạng một đối tượng. Các trường trong bản ghi được trình bày như những thuộc tính của đối tượng. Bất kỳ hành động nào thi hành trên dữ liệu ( như là lưu dữ liệu về cơ sở dữ liệu, in ấn, hay tiến hành tính toán ) đều được trình bày như những phương thức của đối tượng xử lý bản ghi.

Để cho phép lớp điền giá trị cho thuộc tính, ta cung cấp cho nó một phương thức (đặt tên là GetData) thi hành truy vấn một bản ghi duy nhất trên cơ sở dữ liệu, nó dùng các trường trong bản ghi được trả về để điền giá trị vào thuộc tính của đối tượng.

Khi giao cho đối tượng vai trò lấy bản ghi về từ cơ sở dữ liệu, ta cần cung cấp cho đối tượng ID của bản ghi, thường là khoá chính này; phương thức GetDatacủa đối tượng sẽ dùng khoá chính này để lấy về bản ghi cần thiết.

Đối tượng cũng có thể có thêm phương thức Savecho phép người sử dụng của thành phần lưu bản ghi vào cơ sở dữ liệu.

Sử dụng lớp xử lý mảng(ARRAY-HANDLING CLASS)

Ta có thể tạo lớp truy vấn cơ sở dữ liệu, sau đó truyền dữ liệu về ứng dụng Client dưới dạng mảng. Ưu điểm của giải pháp này là nếu lớp xử lý mảng được biên dịch thành ActiveX Server DLL hay EXE, nó có thể tạo ứng dụng Client mà không đòi hỏi tham chiếu đến bộ máy của cơ sở dữ liệu. Tất cả những gì Client cần là một tham chiếu đến thành phần ActiveX server. Điều này làm cho ứng dụng Client tiêu tốn ít tài nguyên hơn; ứng dụng dễ phân phát và định cấu hình hơn.

Tạo một thành phần phía server trả về một mảng nghĩa là ứng dụng phía Client không cần duy trì kết nối liên tục đến server, giúp tăng cường tính linh hoạt của ứng dụng Client/Server.

Sử dụng phương thức xưởng sản suất(FACTORY METHOD)

Xưởng sản xuất đối tượng là một phương pháp tạo các đối tượng khác. Ta dùng Xưởng sản xuất đối tượng trong trường hợp một đối tượng giữ vai trò tạo ra các đối tượng khác. Để tạo ra các đối tượng khác, ta dùng phương thức; các phương thức này gọi là phương thức xưởng sản xuất.

Ví dụ, đối tượng Database của DAO,có một số phương thức xưởng sản xuất cung cấp đối tượng :

Ngoài việc sử dụng các phương thức xưởng sản xuất do Visual Basic cung cấp, ta có thể tạo ra các phương thức này trong các lớp tự tạo.

Một lý do phổ biến để dùng các phương thức xưởng sản xuất là yêu cầu thực hiện theo cách tạo đối tượng trong Visual Basic. Các ngôn ngữ lập trình khác sử dụng đối tượng (như Visual C++) có contructor đảm nhiệm việc tạo Instance của đối tượng từ lớp; những constructor còn có thể thi hành các tác vụ khác, như cung cấp các dữ liệu khởi tạo cho lớp. Lớp có nhiều constructor để người lập trình có thể chọn lựa và constructor có thể lấy và trả về tham số.

Tuy nhiên, không có tương quan trực tiếp với constructor trong Visual Basic. Thay vào đó, các lớp Visual Basic có sự kiện Initialize. Ta có thể lập trình trong sự kiện Initializenhư trong constructor của Visual C++, nhưng không may là ta không thể truyền tham số cho sự kiện Initializecủa Visual Basic, và ta chỉ có một sự kiện Initialize cho mỗi lớp. Nó làm tính tiện dụng của sự kiện Initialize bị hạn chế đối với mọi phần tử, ngoại trừ các giá trị cơ bản nhất là các giá trị mặc định. Các phương thức xưởng sản xuất cung cấp giải pháp khắc phục điều này.

Option Explicit
    ' Requires CCustomer class
    Public Function CreateCustomer(Optional lngID As Variant) As CCustomer
    Dim Cust As CCustomer
    If IsMissing(lngID) Then
    ' Create new customer
    Set CreateCustomer = New CCustomer
    Else
    ' Retrieve customer from DB Set Cust = New CCustomer Cust.GetData (lngID)
    Set CreateCustomer = Cust
    End If
    End Function
    

Xưởng sản xuất đối tượng tạo một đối tượng khách hàng rất dễ dàng với đầy đủ tính năng. Đoạn chương trình sau tạo đối tượng CCustomer:

Dim MyCust As CCustomer
    Dim cf As CCustFactory
    Set cf = New CCustFactory
    ' Retrieve data
    Set MyCust = cf.CreateCustomer(txtID.Text)
    

Một lý do khách để dùng các phương thức xưởng sản xuất trong lập trình cơ sở dữ liệu Visual Basic là để tiết kiệm các tài nguyên kết nối, bởi kết nối đến cơ sở dữ liệu đòi hỏi tiêu tốn nhiều thời gian và bộ nhớ trên Client và Server.

Nếu dùng lớp xưởng sản xuất sẽ dễ dàng hạn chế số kết nối thực hiện với server. Ta chỉ kết nối một lần, trong lớp xưởng sản xuất thay vì trong mỗi mô-dun lớp.

Sử dụng thành phần ActiveX trong một đề án thông thường STANDARD EXE

Sau khi biên dịch thành phần ActiveX, ta có thể lập một tham chiếu đến nó từ trong các đề án khác của Visual Basic. Khi ta thực hiện điều này, nghĩa là ta có thể dùng lớp chứa trong thành phần ActiveX để tạo đối tượng trong đề án. Điều này cho phép ta tận dụng tính năng của thành phần ActiveX một cách đơn giản, nhất quán, không bận tâm đến chương trình bên trong của thành phần.

Để thực hiện tham chiếu ActiveX Server dùng menu ProjectReferences.

Option Explicit
    ' References CustSvr
    Private Cust As CCustomer
    Private Sub Form_Load()
    Set Cust = New CCustomer
    End Sub
    Private Sub cmdGetCust_Click() Cust.GetData txtID.Text
    MsgBox Cust.FirstName & " " & _ Cust.LastName & " " & _ Cust.Address & " " & _ Cust.City & " " & _
    Cust.State
    End Sub
    

Đăng ký thành phần trong ActivateX trên máy người sử dụng

Thành phần ActiveX cần được đăng ký trên máy tính để sử dụng lại trên máy đó. Việc đăng ký bảo đảm rằng hệ điều hành sẽ nhận ra sự tồn tại của thành phần mỗi khi ứng dụng tạo đối tượng từ đó.

Khi ta làm việc với ActiveX server trên một máy tính dùng vào việc phát triển phần mềm, việc đăng ký không là vấn đề. Bởi vì thành phần được tự động đăng ký với Visual Basic ngay lúc chúng được biên dịch. Tuy nhiên khi ta phân phát thành phần đến người sử dụng, ta phải bảo đảm rằng thành phần ActiveX được đăng ký trên máy người sử dụng. Có một số phương pháp để thực hiện điều này.

Sử dụng Trình đóng gói và triển khai ứng dụng (Package and Deployment Wizard) để phân phát người sử dụng.

Sử dụng bằng phương pháp thủ công dùng tiện ích Regsrv32. EXE.

Chuyển đổi đề án Standard EXE thành đề án ActivateX

Ta có thể chuyển đổi đề án StandardEXE thành đề án ActiveX khi ta dự định dùng lại một đề án có sẵn và biến nó thành thành phần ActiveX độc lập.

Ngoài ra, ta có thể chuyển đổi giữa 2 kiểu thành phần ActiveX : ActiveXDLLvà ActiveX EXE) bằng cách đổi thuộc tính của đề án :

1. Trong Visual Basic, mở đề án ta dự định chuyển đổi.

2. Chọn menu ProjectProperties.

3. Chọn kiểu đề án :

Sử dụng thành phần ActiveX từ xa

Khả năng biên dịch bộ các lớp độc lập thành các thành phần ActiveX là phần quan trọng của truy cập cơ sở dữ liệu từ xa. Trong môi trường Client/Server,ta có thể dùng ActiveX Server để xử lý tương tác giữa ứng dụng Client và các Servercơ sở dữ liệu.

Tạo thành phần đa luồng

Visual Basic có khả năng tạo thành phần ActiveX đaluồng(multi-thread).Với đa luồng, thành phần thi hành theo cách đáp ứng hơn. Bởi vì hệ điều hành có thể cấp phát tài nguyên bộ xử lý cho nhiều luồng; nếu thành phần thi hành với nhiều luồng, chức năng của thành phần được chia thành nhiều khối cho nhiều luồng (một số luồng có thể được gán những mức ưu tiên cao bởi hệ điều hành ). Ta có thể xem luồng như đơn vị điều khiển nhỏ nhất của hệ điều hành có khả năng lập lịch biểu thi hành.

Ngoài ra, trên những máy có nhiều bộ vi xử lý, hệ điều hành có khả năng gán những luồng nhất định để thi hành trên những bộ vi xử lý riêng. Cho thành phần khả năng đa luồng là giải pháp tận dụng tối đa năng lực máy tính với nhiều bộ vi xử lý.

Thêm hỗ trợ đa luồng trong thành phần chỉ đòi hỏi ta đổi thuộc tính đề án vào lúc biên dịch. Không có thay đổi nào khác trong chương trình.

1. Trong Visual Basic, mở đề án của thành phần (ActiveX EXE,ActiveX DLL, điềukhiểnActiveX).

2. Từ menu Project,chọn Properties

3. Chọn Apartment Threaded trong bảng Threading Model.

4. Nhấn OK. Khi đề án được biên dịch, nó sẽ có hỗ trợ đa luồng.

Ta có thêm khả năng bổ sung cho ActiveX EXE là : Thread perObject hay ThreadPool.ThreadperObjectcó nghĩa là ActiveXEXEsẽ sinh ra một luồng cho mỗi đối tượng được tạo. Điều này cung cấp khả năng hoạt động tốt nhất, nhưng có thể tiêu tốn nhiều tài nguyên máy tính.

ThreadPool, trái lại, cho phép ta kiểm soát có bao nhiêu luồng mà thành phần ActiveX có thể tạo cùng một lúc, cho phép ta hạn chế tài nguyên tiêu tốn bởi thành phần. Tuy nhiên, nếu số đối tượng yêu cầu vượt quá số luồng trong Threadpool của Server của thành phần, những yêu cầu đến sau trên đối tượng của Server sẽ bị ngăn lại cho đến khi quá trình của Client giải phóng một luồng.

Các hạn chế của thành phần đa luồng

• Ngôn ngữ hạn chế hỗ trợ đa luồng: Đây là chuyển đổi biên dịch. Ta không thể viết chương trình để làm gì với nó cả.
• Không có trình gỡ rối hỗ trợ đa luồng.
• Không có hỗ trợ đa luồng trong ứng dụng MDI
• Không hỗ trợ cho các điều khiển ActiveX đơn luồng trong ứng dụng đa luồng: Điểm hạn chế này bị áp đặt bởi Visual Basic do vấn đề lớn khả năng hoạt động sinh ra bởi tổ hợp của một điều khiển đơn luồng trong một nơi chứa đa luồng. Điều này có nghĩa là nếu ta tạo một điểu khiển ActiveX đa luồng sử dụng các điều khiển đơn luồng khác – nó sẽ không hoạt động. Tuy nhiên phần lớn các điều khiển trong Visual Basic là đa luồng.
• Các thuộc tính và phương thức được khai báo là Friend không thể gọi qua luồng. Để goi thuộc tính và phương thức đặc biệt gọi qua Public.