IX. MỘT VÀI LĨNH VỰC TIÊU BIỂU ỨNG DỤNG PLC
2. Sử dụng Microsoft Access để tạo một cơ sở dữ liệu
Microsoft Access cĩ một giao diện tinh xảo và dể dàng để tạo các đối tượng cơ sở dữ liệu . Quan hệ giữa các bảng
a.Quan hệ Một - Một
Là loại quan hệ dễ hiểu và dể thực hiện nhất, bởi vì trong những mối quan hệ như vậy, một bảng sẽ lấy vị trí của một trường trong bảng khác; trường liên quan cũng dễ nhận dạng. Tuy nhiên, quan hệ một - một khơng phải là mối quan hệ thơng dụng nhất trong ứng dụng cơ sở dữ liệu.
Phổ biến hơn quan hệ Một - Một, trong đĩ, mỗi mẩu tin trong một bảng này khơng cĩ, hoặc cĩ một, hoặc nhiều mẩu tin trong một bảng liên hệ
c.Quan hệ Nhiều - Nhiều
Quan hệ Nhiều - Nhiều là bước phát triển của quan hệ Một - Nhiều. Ví dụ cổ điển nhất của quan hệ Nhiều - Nhiều là học sinh và lớp. Mổi học sinh cĩ nhiều lớp, mỗi lĩp cĩ nhiều học sinh.
3.Liên kết Cơ sở dữ liệu( Access ) với Visual Basic
a.Sử dụng điều khiển DAO DATA
Ta cĩ thể sử dụng điều khiển DAO Data để kết nối với một cơ sở dữ liệu Jet của Microsoft. Mặc dù với sự xuất hiện của điều khiển mạnh hơn, ADO Data, việc sử dụng điều khiển DAO Data bị giảm bớt, nhưng vẫn tồn tại lý do để sử dụng điều khiển cổ điển DAO Data. Ngồi ra, nĩ cịn cĩ khả năng kết nối với các nguồn dữ liệu như các tập tin dBASE, văn bản, bảng tính Excel.
b.Sử dụng điều khiển ADO DATA
Để tạo một ứng dụng dùng điều khiển ADO Data rất đơn giản. Thực ra, nếu những gì ta quan tâm chỉ là duyệt cơ sở dữ liệu thì ta khơng cần phải lập trình gì cả. Đây là một quy trình gồm hai bước quy định thuộc tính ConnectionString và
RecordSource của điều khiển Data, sau đĩ ràng buộc điều khiển với điều khiển giao diện người sử dụng. Để thực hiện điều này, ta theo các bước sau:
Bắt đầu một đề án mới của Visual Basic
Dùng menu Project Components, lập trình tham chiếu đến “Microsoft ADO Data Control 6.0 (OLEDB) bằng cách chọn vào hộp đánh dấu trong danh sách.
Nhấn OK. Điều khiển ADO Data xuất hiện trên thanh cơng cụ của Visual Basic. Nhấn đúp chuột lên điều khiển để tạo một instance của điều khiển trên biểu mẩu.
Nhấn nút phải chuột lên điều khiển. Từ menu bật ra, chọn ADODC Properties. Chọn “User Connection Srting” rồi nhấn Build.
Hộp thoại Data Link Properties xuất hiện. Đây là hộp thoại ta dùng để kết nối với cơ sở dữ liệu. Sau đĩ nhấn nút OK khi hồn tất.
Đến đây bạn đã quay lại hộp thoại Property Pages của điều khiển ADO Data. Kế tiếp, ta thơng báo cho điều khiển bảng nào sẽ được dùng. Chọn tab
RecordSource, rồi chọn 2 – adCmdTable từ hộp kết hợp CommandType.
Chọn hợp kết hợp Table ỏ Stored Procedure Name. Hộp kết hợp hiển thị danh sách tất cả các bảng trong cơ sở dữ liệu. Chọn tblCustomer, rồi nhấn OK.
Kết nối đến cơ sở dữ liệu xảy ra khi ứng dụng thi hành. Tuy nhiên kết nối khơng cĩ thơng báo, bởi vì khơng cĩ cách nào để hiển thị dữ liệu. Để hiển thị dữ liệu trả về từ một điều khiển dữ liệu, ta phải tạo các điều khiển kết nối ràng buộc với điều khiển dữ liệu bằng cách gán thuộc tính Datasource và DataField.
Cài đặt và thiết lập tham chiếu đến ADO trong ứng dụng Visual Basic
Trong đề án Visual Basic, chọn Project, References.
Hộp thoại References xuất hiện.
Chọn vào hộp đánh dấu “Microsoft AtiveX Data Objects 2.0 Library” rồi nhấn OK.
Dùng đối tượng Connection của ADO để kết nối với nguồn dữ liệu
Đây là cách thứ hai liên kết với nguồn dữ liệu mà khơng thơng qua điều khiển ADO Data.
Dùng phương thức Open của đối tượng Connection để thiết lập kết nối với nguồn dữ liệu. Để thơng báo cho ADO cách nối với nguồn dữ liệu, ta phải cung cấp thơng tin dưới dạng chuỗi kết nối tương tự chuỗi kết nối của ODBC. Ta dùng thuộc tính ConnectionString để thực hiện điều này. Ta cịn cĩ khả năng tùy chọn để chọn trình cung cấp nào sẽ được dùng bằng cách quy định giá trị của thuộc tính Provider của đối tượng Connection.
Option Explicit
Dim dl as New ADODB. Connection ‘ Biến kết nối với nguồn dữ liệu
Dim rs as New ADODB. Recordset ‘ Biến truy cập đến các bảng trong nguồn dữ liệu
Public Sub ADOconnect() Dim dbpath As String
dbpath = App.Path & "\DATA.mdb" ‘ đường dẩn đến nguồn dữ liệu Set DL = New ADODB.Connection
With DL
.ConnectionString = "Provider=microsoft.jet.oledb.4.0; data source=" & bpath .CommandTimeout = 0
.CursorLocation = adUseClient .Open
End With
PHẦN V