LẬP TRÌNH CƠ SỞ DỮ LIỆU

Các chủ đề sẽ được bàn đến trong chương này bao gồm: ‰ Lớp đối tượng truy cập dữ liệu DAO- Data Access Objects; ‰ Bài toán tìm kiếm; ‰ Bài toán đặt lọc; ‰ Một số bài toán khác... Kỹ

CHƯƠNG 7

LẬP TRÌNH CƠ SỞ DỮ LIỆU

Access không những là một hệ quản trị CSDL mạnh mà còn cung cấp những công cụ mạnh cho phép phát triển một CSDL đơn thuần thành một sản phẩm đóng gói thương mại Chúng ta đã được học Queries, Forms, Report – đó là những công

cụ khá mạnh và dễ học dùng để xây dựng các truy vấn, biểu mẫu và báo cáo in ấn trong Access Chương 7 đã được làm quen với ngôn ngữ VBA- một ngôn ngữ lập trình trực quan, hướng đối tượng trong các ứng dụng Microsoft Office nói chung cũng như trên Access Đó là cơ sở quan trọng để trong chương này chúng ta tìm hiểu những kỹ thuật lập trình CSDL bằng VBA- có thể nói là một mức chuyên sâu tiếp theo những gì đã học VBA căn bản

Các chủ đề sẽ được bàn đến trong chương này bao gồm:

‰ Lớp đối tượng truy cập dữ liệu (DAO- Data Access Objects);

‰ Bài toán tìm kiếm;

‰ Bài toán đặt lọc;

‰ Một số bài toán khác

1 Kỹ thuật DAO

DAO (Data Access Objects – Các đối tượng truy xuất dữ liệu) là tập hợp bao gồm lớp các đối tượng có thể dùng để lập trình truy cập và xử lý dữ liệu trong các

hệ CSDL Ở đây CSDL Access, ngôn ngữ lập trình VBA

DAO được phát triển khá sớm, gần đây nhất là phiên bản DAO 3.5 và 3.51- nó

có thể thực hiện tốt được trên các phiên bản Access từ 97 trở về trước Với Access

2000, XP phải dùng phiên bản DAO 3.6 Với phiên bản mới này, DAO 3.6 sử dụng nền Microsoft Jet 4.0 Vì vậy, có thể làm việc được trên nền Unicode dễ dàng

Để nạp thư viện DAO3.6 vào làm việc, hãy thực hiện như sau:

Bước 1: Mở cửa sổ lập trình VBA;

Bước 2: Chọn thực đơn Tools | References Hộp thoại sau xuất hiện:

Hãy chọn (tích) mục Microsoft DAO 3.6 Object Libraly trên danh sách

Available References; chọn xong, nhấn OK để đóng lại

Trước khi bước vào học lập trình CSDL, các bạn hãy xem cách thức làm việc như thế nào?

Trong đó:

- Tầng ứng dụng: bao gồm những giao diện người sử dụng cũng như những công

cụ đơn giản mà người lập trình có thể dùng để xử lý dữ liệu theo các bài toán;

- Tầng Kết nối dữ liệu: bao gồm tập hợp các công cụ, phương thức để kết nối tới những dữ liệu cần làm việc trong CSDL Ở đây, tầng kết nối bao gồm các chuẩn Microsoft Jet 4.0 và các lớp đối tượng DAO;

- Tầng Cơ sở dữ liệu: bao gồm các bảng, các query trong cơ sở dữ liệu thực tại Như vậy để lập trình trên một CSDL phải sử dụng các đối tượng, các phương thức ở tầng kết nối như là những công cụ để có thể truy cập được vào CSDL tác nghiệp xử lý Tầng kết nối đó chính là Jet 4.0 và DAO 3.6 mà chúng ta sẽ được tìm hiểu dưới đây

1.1 Lớp đối tượng DAO

Cấu trúc một CSDL bao gồm nhiều thành phần, đòi hỏi lập trình cũng cần có những thành phần tương ứng để làm việc Lớp các thành phần tương ứng để có thể lập trình được trên toàn bộ cấu trúc CSDL là lớp các đối tượng DAO Chúng có tên gọi, có những tập thuộc tính, các phương thức làm việc và có quan hệ mật thiết với nhau Cây phân cấp lớp các đối tượng DAO sau đây thể hiện điều đó:

Cơ sở dữ liệu Các kết nối dữ liệu Ứng dụng

Trong đó:

• Workspaces – định nghĩa tập hợp các vùng làm việc Đây có thể coi là lớp

làm việc cao nhất Về lý thuyết có thể khai báo một vài vùng làm việc (Workspace), những trên thực tế chỉ cần khai báo một vùng làm việc và vùng này luôn được khai báo ngầm định cho CSDL hiện tại Nên sẽ không cần bàn nhiều đến lớp các WorkSpace này;

• Databases - định nghĩa tập hợp các CSDL Access cần làm việc trên một dự

án;

• RecordSets- định nghĩa các tập hợp bản ghi (Records) cần làm việc;

• QueryDefs - định nghĩa tập hợp các Query để làm việc Querydefs và

Recordsets là khả năng truy xuất, xử lý dữ liệu (Data Manipulation) của DAO;

• TableDefs - định nghĩa tập hợp các bảng (Table) cần làm việc Đây là khả

năng định nghĩ dữ liệu (Data-Definition Language);

• Relations - định nghĩa tập hợp các quan hệ (Relationship) cần làm việc;

Mỗi lớp các đối tượng trên sẽ bao gồm tất cả các đối tượng đối tượng cùng loại trong một đối tượng mẹ đang mở Ví dụ:

- Databases sẽ bao gồm tất cả các CSDL đang đựoc mở trong vùng làm việc hiện tại;

- RecordSets sẽ bao gồm tập hợp tất cả các Recordset đang được mở trên CSDL hiện tại

Khi đó, để tham chiếu đến một đối tượng cụ thể cần làm việc, có thể dùng chỉ số (số thứ tự của đối tượng đó trên tập hợp tất cả các đối tượng đó) hoặc dùng tên gọi đối tượng đó để tham chiếu Ví dụ sau liệt kê tên của tất cả các Recordset đang sử dụng trong CSDL db

1.2 Đối tượng Database

Database là đối tượng dùng làm việc với một CSDL (trong trường hợp này có thể hiểu một CSDL như một tệp Access MDB)

Lớp các đối tượng con của Database được thể hiện qua sơ đồ sau:

1.3 Đối tượng RecordSet

Recordset là đối tượng dùng để miêu tả tập hợp các bản ghi của một bảng, của một query hoặc tập các bản ghi kết quả của việc thi hành một câu lệnh SQL nào đó Lớp các đối tượng con của Recordset được thể hiện qua sơ đồ sau:

Khai báo

Set rs=db.OpenRecordset(<Name>)

Trong đó:

- Set rs = db.OpenRecordset là lệnh để tạo ra tập hợp các bản ghi từ CSDL db

gán vào biến kiểu recordset rs;

- <Name> là một xâu ký tự chỉ ra nguồn dữ liệu sẽ trả về cho Recordset Xâu

này có thể là tên một bảng, một Query hoặc một câu lệnh SQL;

Mỗi biến Recordset khi làm việc, phải được chỉ ra Database xuất xứ của nó (phải

được tham chiếu từ một biến kiểu Database đã được khai báo) Sau đây là các ví dụ:

Gán tập hợp các bản ghi từ một câu lệnh chọn dữ liệu SQL vào biến Recordset

(ở đây là các thông tin hoten, ngaysinh của tất cả các cán bộ nữ từ bảng canbo)

Dim rs As DAO.Recordset

Set rs = db.OpenRecordset("SELECT hoten, ngaysinh FROM canbo

WHERE gioitinh = False")

Một số thuộc tính của Recordset

Thuộc tính Name

Trả về xâu ký tự trong tham số <name> của lệnh gọi Recordset Ví dụ: lệnh sau

sẽ cho biết xâu ký tự tạo nguồn dữ liệu cho Recordset là gì?

MsgBox rs.Name

Thuộc tính AbsolutePosition

Cho biết vị trí bản ghi hiện tại (được tính từ 0) Trong trường hợp không có bản ghi nào trên recordset hoặc con trỏ bản ghi đang nằm ở EOF- sẽ không thể lấy được giá trị thuộc tính này Do vậy để sử dụng thuộc tính này thường phải đi kèm thuộc tính kiểm tra có tồn tại bản ghi nào hay không (RecordCount > 0) và con trỏ bản ghi có ở cuối tệp chưa (EOF = False)

Value Nếu không chỉ định thuộc tính cụ thể nào cho Field, VBA vẫn hiểu ngầm

Phương thức AddNew, Update

Để thêm mới một bản ghi vào Recordset Qui trình thêm một bản ghi mới như sau:

Phương thức Edit, Update

Phương thức Edit để sửa dữ liệu một bản ghi nào đó trên recordset Qui trình để sửa một bản ghi như sau:

1 Định vị tới bản ghi cần sử trên recordset

tbao = MsgBox("Đã chắc chắn xoá chưa?", vbYesNo + vbCritical)

If tbao = vbYes Then

rs.Delete

rs.MoveNext

End If

End Sub

1.4 Đối tượng QueryDef

Đối tượng Querydef dùng để tham chiếu tới các Query có sẵn (Buil-in) trên CSDL Access, hoặc cũng có thể lập trình tạo các Query từ các câu lệnh SQL

Để tạo và kích hoạt một query trên VBA bằng cách thực thi câu lệnh SQL bạn làm theo hướng dẫn sau:

'Ra lệnh tạo một Query mới, có tên rỗng (chỉ ở trong bộ nhớ)

Set qr = db.CreateQueryDef(<tên query>)

- Bắt buộc phải khai báo một biến kiểu QueryDef để làm việc (biến qr);

- Phải có một biến Database đã được khai báo sẵn (biến db);

- Lệnh Set qr = db.CreatQueryDef(<tên query>) để tạo một query mới lên

CSDL <tên query> sẽ được hiển thị trên danh sách trong thẻ Queries trên

cửa sổ Database Nếu <tên query>="", query này sẽ chỉ tồn tại trong bộ nhớ

Tuỳ thuộc vào mục đích công việc mà có đặt tên query hay không, nếu chỉ

đơn thuần tạo một query để xử lý công việ nào đó rồi giải phóng, nên đặt <tên

query>="";

- Lệnh qr.SQL=<câu lệnh SQL> để gán lệnh SQL cần thực thi vào Query Tuỳ

thuộc vào câu lệnh SQL này mà query sẽ thực hiện những gì Ví dụ: qr.SQL =

"DELETE * FROM canbo" lệnh này sẽ xoá tất cả các bản ghi trên bảng cán bộ;

- Lệnh qr.Excute để thi hành câu lệnh SQL đã được thiết lập Lệnh này tương đương nhấn nút Run đối với một query trên chế độ thiết kế;

- Lệnh qr.Close để đóng query hiện tại và giải phóng bộ nhỡ khi không cần làm việc đến nữa

Sau đây là một số ví dụng về sử dụng biến QueryDef để tạo ra một số loại query

xử lý dữ liệu trong môi trường VBA

Ví dụ 1: Tạo DELETE query để xoá danh sách những cán bộ có tuổi lớn hơn 60

ra khỏi bảng canbo (cán bộ đã nghỉ hưu)

Ví dụ 2: Giả sử đã thêm một trường mới trên bảng cán bộ có tên luongchinh

Tạo UPDATE query để tính giá trị cho trường này = hesoluong * 290000

1.5 Đối tượng TableDef

Đối tượng TableDef được dùng để tham chiếu tới các bảng dữ liệu (Table) trên CSDL Thông qua đối tượng này có thể thiết kế, chỉnh sửa được cấu trúc các bảng

dữ liệu trong chế độ Run-time của VBA như trên chế độ thiết kế bảng Design View

Một số thuộc tính quan trọng của TableDef

Dưới đây là thủ tục hiển thị tên của tất các các trường trong một bảng nào đó

(ngầm định trên một CSDL đã được khai báo và gán biến db - kiểu Database)

Ví dụ 1:

Sub LietKeTenTruong(tenbang As String)

Dim tbl As DAO.TableDef

Để tạo ra một bảng mới bằng VBA Cú pháp tạo bảng mới như sau:

Set tbl = db.CreateTableDef(<Tên bảng mới>)

- db – là biến kiểu Database đã được gán bởi CSDL cần làm việc (bảng mới sẽ

được tạo ra trên CSDL này);

- <Tên bảng mới> là tên bảng cần tạo

- Lệnh db.TableDefs.Append tbl là lệnh ghi cấu trúc bảng đang khai báo lên

- <tên trường> - tên trường mới cần tạo;

- <KiểuDL> - là một tuỳ chọn để khai báo kiểu dữ liệu của trường cần tạo Kiểu

dữ liệu được khai báo theo các hằng số như sau:

Giá trị: Tương ứng với kiểu

dbBoolean Boolean

dbByte Byte dbChar Char dbCurrency Currency

dbDate Date/Time dbDecimal Decimal

dbDouble Double

dbFloat Float dbGUID GUID

dbInteger Integer

dbLong Long dbMemo Memo

dbNumeric Numeric

dbSingle Single

dbText Text dbTime Time

- <Độ lớn> là một tuỳ chọn để khai báo độ lớn dữ liệu nếu cần

Tiếp theo là ví dụ minh hoạ cách tạo cấu trúc một bảng dữ liệu tổng hợp những hướng dẫn đã trình bày trên

tbl.Fields.Append tbl.CreateField("ID", dbInteger)

tbl.Fields.Append tbl.CreateField("Name", dbText)

tbl.Fields.Append tbl.CreateField("Age", dbByte)

tbl.Fields.Append tbl.CreateField("DateBirth", dbDate)

tbl.Fields.Append tbl.CreateField("Comment", dbMemo)

db.TableDefs.Append tbl

Exit Sub

1.6 Đối tượng Relation

Đối tượng Relation dùng để tạo kết nối (RelationShip) giữa 2 bảng trong CSDL Access Dưới đây là một ví dụ tạo kết nối giữa 2 bảng hoadon và khach trong CSDL Quản lý bán hàng

Trong truờng hợp đã tồn tại kết nối này, một thông báo lỗi tiếng Việt "Đã tồn tại

quan hệ này !" xuất hiện

2 Bài toán đặt lọc dữ liệu

Đặt lọc là lớp bài toán phổ dụng trong thực tế Với bài toán này phải có những yêu cầu cụ thể về lọc dữ liệu (điều kiện lọc) Kết quả trả về sẽ là một tập hợp các bản ghi, có thể được kết xuất trên form hoặc được in ra máy in dưới dạng report Dưới đây là minh hoạ một bài toán đặt lọc sau khi đã được xây dựng và đang hoạt động:

Qui trình xây dựng một bài toán đặt lọc có thể thực hiện như sau:

Bước 1: Xây dựng form con - form sẽ chứa những kết quả lọc được;

Bước 2: Xây dựng form mẹ - form chứa những thiết lập điều kiện để lọc;

Bước 3: Thực hiện lọc ra các bản ghi thoả mãn các điều kiện trên form mẹ và

hiển thị kết quả lên form con

Với bài toán trên, cách giải quyết như sau:

Bước 1: Xây dựng Form con

Sử dụng các kỹ năng thông thường để tạo một form con đáp ứng được các kết quả theo như bài toán Cụ thể từng bước như sau:

- Tạo mới form ở chế độ Design view;

- Thiết lập thuộc tính Record Source cho form là một Total Query như sau:

- Thiết lập thuộc tính Defaul View cho form con là Datasheets;

- Mở cửa sổ FieldList và thiết kế form như sau:

- Đóng thiết kế form con lại và ghi ten là frm_formcon

Bước 2: Xây dựng form mẹ

- Tạo mới form ở chế độ Design view;

- Đưa hộp Combobox từ thành công cụ Toolbox lên form mẹ (giả sử tên (Name)

của Combo này là Combo0) Sử dụng tính năng Combobox Wizard của Access

để làm việc này Mục đích là đưa danh sách các khách hàng từ bảng khach vào hộp Combo để chọn, phục vụ nhu cầu lọc dữ liệu;

- Sử dụng đối tượng Sub-form/Sub-report trên thanh công cụ Toolbox để đưa form con vừa tạo lên form mẹ Ngầm định tên của sub-form này là

frm_formcon Chú ý đến tên gọi này vì phần tiếp sau sẽ sử dụng nó để lập trình

Cuối cùng, giao diện thiết kế form mẹ như sau:

Bước 3: Thiết lập lệnh lọc dữ liệu trên form mẹ

Công việc của bước này là làm sao để sau khi chọn tên một khách hàng ở hộp Combobox, danh sách các hoá đơn mua hàng của khách đó sẽ được hiển thị lên form con Muốn thế, việc lập trình lọc dữ liệu ở đây phải được thực hiện trong thủ

tục đáp ứng sự kiện Combo0_Click Giải thuật sẽ là:

- Tạo một biến Recordset để thi hành câu lệnh SQL đưa ra danh sách kết quả thoả mãn điều kiện đặt lọc Câu lệnh SQL trong trường hợp này là:

"SELECT hoadonID, khachID, ngayban, Sum([soluong]*[dongia]) “ _ + ” AS tongtien FROM " _

+ " hoadon INNER JOIN (hang INNER JOIN hangban ON " _

+ " hang.hangID = hangban.hangID) ON hoadon.hoadonID =" _ + " hangban.hoadonID WHERE Trim(khachID)='"+Trim(Combo0)" _ + " GROUP BY hoadonID, khachID, ngayban "

- Gán thuộc tính Recorset của form con là biến kiểu recordset vừa tạo ra (chứa kết quả đã lọc);

- Ra lệnh làm tươi dữ liệu cho form con

Tất nhiên, trước đó phải khai báo một biến kiểu Database toàn cục trong form và định nghĩa nó ở thủ tục Form_Load()

Toàn bộ mã lệnh cho bài toán trên như sau:

+ " hang.hangID = hangban.hangID) ON hoadon.hoadonID =" _ + " hangban.hoadonID WHERE Trim(khachID)='"+Trim(Combo0)" _ + " GROUP BY hoadonID, khachID, ngayban ")

Chú ý

Việc viết ra câu lệnh SQL đúng là rất khó, đòi hỏi lập trình viên phải có nhiều kinh nghiệm Để làm tốt được việc này, nên thiết kế một query ở chế độ design view; rồi sử dụng tính năng Copy, Paste để dán câu lệnh SQL mà query đã tạo lên nơi soạn thảo lệnh VBA và chỉnh sửa cho phù hợp Thông thường sửa mệnh đề WHERE của câu lệnh